Cara Membuat Penghitung waktu (stopwatch)

Cara Membuat Penghitung waktu (stopwatch) - Berikut ini adalah kode dan cara untuk membuat penghitung waktu sederhana menggunakan Visual Basic. Mari kita mulai sobat blogger.





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")