Stopwatch

Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00 : 00 : 00,00"

Di bagian 'Command1_Click' ketikkan : (Start)

Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")

Di bagian 'Command2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Timer' ketikkan :

mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
      
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
          
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
          
End If
End If
  
Label1.Caption = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik, mDetik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00 : 00 : 00,00"

Di bagian 'Button1_Click' ketikkan : (Start)

Timer1.Enabled = (Button1.Text = "Start")
Button1.Text = IIf(Button1.Text = "Start", "Stop", "Start")

Di bagian 'Button2_Click' ketikkan : (Reset)

Timer1.Enabled = False
Button1.Text = "Start"
Label1.Text = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0

Di bagian 'Timer1_Tick' ketikkan :

mDetik += 1
If mDetik = 100 Then
mDetik = 0

Detik += 1
If Detik = 60 Then
Detik = 0

Menit += 1
If Menit = 60 Then
Menit = 0
Jam += 1
End If

End If
End If

Label1.Text = Format(Jam, "00") & " : " & Format(Menit, "00") & " : " & Format(Detik, "00") & "," & Format(mDetik, "00")