Visual Basic - Membuat Stopwatch

Selamat pagi!
Selamat berhari minggu kawan...

Pagi ini saya share cara membuat Aplikasi Stopwatch menggunakan Visual Basic 6.0.
Check this out...

Sebelumnya, silahkan kalian buat kerangka program mirip seperti diatas menggunakan :
- Label (untuk Tulisan Menit,Detik,Milisekon,Kotak Waktu,dan Separator waktunya)

- Command Button (untuk Start,Stop,Reset,Exit)

Saya memberikan Added Command Button "Ke Stopwatch mode Jam" karena dalam Tugas Kuliah saya menggunakan dua jenis stopwatch. Kalian bisa saja tak usah menambahkan Button tersebut.

Ok, setelah kerangka program beres. Silahkan Isi dengan Coding berikut :

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdnext2_Click()

frmstopwatchjam.Show

frmstopwatch.Visible = False

End Sub

Private Sub cmdreset_Click()

xmili.Caption = "00"

xdetik.Caption = "00"

xmenit.Caption = "00"

End Sub

Private Sub CmdStart_Click()

xmili.Caption = "00"

xdetik.Caption = "00"

xmenit.Caption = "00"

Timer1.Enabled = True

cmdstart.Enabled = False

cmdstop.Enabled = True

End Sub

Private Sub CmdStop_Click()

Timer1.Enabled = False

cmdstart.Enabled = True

cmdstop.Enabled = False

End Sub

Private Sub Command1_Click()

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

cmdstop.Enabled = False

End Sub

Private Sub Timer1_Timer()

xmili.Caption = Val(xmili.Caption) + 1

If Len(xmili.Caption) = 1 Then xmili.Caption = "0" & xmili.Caption

If xmili.Caption = "60" Then

xmili.Caption = "00"

xdetik.Caption = Val(xdetik.Caption) + 1

If Len(xdetik.Caption) = 1 Then xdetik.Caption = "0" & xdetik.Caption

End If

If xdetik.Caption = "60" Then

xdetik.Caption = "00"

xmenit.Caption = Val(xmenit.Caption) + 1

If Len(xmenit.Caption) = 1 Then xmenit.Caption = "0" & xmenit.Caption

End If

End Sub

Jika sudah, Run dan lihat hasilnya...
Semoga Bermanfaat.

Salam Leaf-Coder!