Cara Membuat Stopwatch dengan Menggunakan Visual Basic 6.0

Pasti Anda tau dengan yang namanya stopwatch,
stopwatch adalah alat pengukur waktu. Pada postingan kali ini saya akan membahas pembuatan program stopwatch dengan menggunakan Miscrosoft Visual Basic 6.0.

Pada program ini pengukur waktu yang digunakan dalam satuan menit,detik dan milidetik. Rancanglah Form seperti tampilan gambar diatas.

Kemudian Silahkan Kalian Copy Paste Source Code dari program di Bawah ini :


Private Sub CmdStart_Click()
If cmdstart.Caption = "Start" Then
txtmili.Text = "00"
txtdetik.Text = "00"
txtmenit.Text = "00"
Timer1.Enabled = True
cmdstart.Enabled = False
cmdstop.Enabled = True
ElseIf cmdstart.Caption = "Ulang" Then
txtmili.Text = "00"
txtdetik.Text = "00"
txtmenit.Text = "00"
Timer1.Enabled = True
cmdstart.Enabled = False
cmdstop.Enabled = True
End If
End Sub

Private Sub CmdStop_Click()
Timer1.Enabled = False
cmdstart.Enabled = True
cmdstop.Enabled = False
cmdstart.Caption = "Ulang"
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
cmdstop.Enabled = False
End Sub

Private Sub Timer1_Timer()
txtmili.Text = Val(txtmili.Text) + 1
If Len(txtmili.Text) = 1 Then txtmili.Text = "0" & txtmili.Text
If txtmili.Text = "60" Then
txtmili.Text = "00"
txtdetik.Text = Val(txtdetik.Text) + 1
If Len(txtdetik.Text) = 1 Then txtdetik.Text = "0" & txtdetik.Text
End If
If txtdetik.Text = "60" Then
txtdetik.Text = "00"
txtmenit.Text = Val(txtmenit.Text) + 1
If Len(txtmenit.Text) = 1 Then txtmenit.Text = "0" & txtmenit.Text
End If
End Sub

* * *

Sehingga Ketika Pada Saat di Running (Tekan -F5) maka Akan Seperti Gambar di Bawah Ini :