Membuat Aktivitas Stopwatch Visual Basic

Sebelumnya kita telah berguru Cara Membuat Program Lampu Lalu lintas, kali ini kita akan berguru Cara Membuat Stopwatch, menyerupai yang kita ketahui stopwatch yaitu sebuah alat untuk mencatat sebuah waktu pada waktu tertentu, untuk penerapanya yang pernah aku lihat, stopwatch di gunakan oleh guru olahraga aku untuk mencatat waktu dari semua siswa yang sedang test lari sekitar 1 KM, untuk itu kini kita akan menciptakan system stopwatch di visual basic, berikut tutorialnya :

1. Jalankan VB dan pilih Standar EXE
2. Tambahkan 4 text box, 3 command button 1 frame, 1 list box dan 1 timer, atur sehingga menyerupai ini :

3. Rubah propertienya menyerupai ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Text Box 1, 2, 3, 4	Text	00
	Aligment	Center
	Font Size	20
	Enabled	False
Command 1	Caption	RECORD
Command 1	Visible	False
Command 2	Caption	PAUSE
Command 2	Visible	False
Command 3	Caption	START
Command 3	Visible	True
Frame 1	Caption	RESULT
Timer 1	Enabled	False
Timer 1	Interval	10

Dimana text4 = 1/100 Detik, Text3 = Detik, Text2 = Menit, danText1 : Jam, Sehingga menyerupai ini :

4. Lalu tuliskan script berikut :
Sub first()
Text1.Text = "00"
Text2.Text = "00"
Text3.Text = "00"
Text4.Text = "00"
Command1.Visible = False
Command2.Visible = False
Command3.Visible = True
List1.Clear
Timer1.Enabled = False
Command2.Caption = "PAUSE"
Command1.Caption = "RECORD"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "RECORD" Then
List1.AddItem Text1.Text + ":" + Text2.Text + ":" + Text3.Text + ":" + Text4.Text
ElseIf Command1.Caption = "RESET" Then
Call first
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption = "PAUSE" Then
Command2.Caption = "CONTINUE"
Command1.Caption = "RESET"
Timer1.Enabled = False
ElseIf Command2.Caption = "CONTINUE" Then
Timer1.Enabled = True
Command2.Caption = "PAUSE"
Command1.Caption = "RECORD"
End If
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
Command1.Visible = True
Command2.Visible = True
Command3.Visible = False
End Sub

Private Sub Timer1_Timer()
Text4.Text = Text4.Text + 1
If Text4.Text >= 64 Then '
Text4.Text = "0"
Text3.Text = Text3.Text + 1
End If

If Text3.Text = 59 And Text4.Text >= 60 Then
Text2.Text = Text2.Text + 1
Text3.Text = "0"
End If

If Text2.Text = 59 And Text4.Text >= 60 Then
Text1.Text = Text1.Text + 1
Text2.Text = "0"
End If
End Sub

Sub first() Text1.Text = "00" Text2.Text = "00" Text3.Text = "00" Text4.Text = "00" Command1.Visible = False Command2.Visible = False Command3.Visible = True List1.Clear Timer1.Enabled = False Command2.Caption = "PAUSE" Command1.Caption = "RECORD" End Sub   Private Sub Command1_Click() If Command1.Caption = "RECORD" Then  List1.AddItem Text1.Text + ":" + Text2.Text + ":" + Text3.Text + ":" + Text4.Text ElseIf Command1.Caption = "RESET" Then  Call first End If End Sub  Private Sub Command2_Click() If Command2.Caption = "PAUSE" Then Command2.Caption = "CONTINUE" Command1.Caption = "RESET" Timer1.Enabled = False ElseIf Command2.Caption = "CONTINUE" Then Timer1.Enabled = True Command2.Caption = "PAUSE" Command1.Caption = "RECORD" End If End Sub  Private Sub Command3_Click() Timer1.Enabled = True Command1.Visible = True Command2.Visible = True Command3.Visible = False End Sub  Private Sub Timer1_Timer() Text4.Text = Text4.Text + 1 If Text4.Text >= 64 Then ' Text4.Text = "0" Text3.Text = Text3.Text + 1 End If  If Text3.Text = 59 And Text4.Text >= 60 Then Text2.Text = Text2.Text + 1 Text3.Text = "0" End If  If Text2.Text = 59 And Text4.Text >= 60 Then Text1.Text = Text1.Text + 1 Text2.Text = "0" End If End Sub

5. Dan kini coba jalankan,
Penjelasan Singkat :
jikalau nilai text4 lebih dari 64 maka nilai text3 di tambah 1, dan nilai text4 kembali ke 0
jikalau nilai text3 lebih dari 59 maka nilai text2 di tambah 1, dan nilai text3 kembali ke 0
jikalau nilai text2 lebih dari 59 maka nilai text1 di tambah 1, dan nilai text2 kembali ke 0