Aplikasi Stopwatch (VB 6.0)

Berikut ini saya bagikan sebuah lagi kode program yang cukup berguna. Ya, ini adalah kode program Stopwatch yang dibuat dari VB 6.0 (Visual Basic 6.0). Ok, seperti biasa langsung saja simak langkah pembuatannya.

Berikut ini langkah pembuatannya.

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif tambahkan 1 Label, 1 Timer dan 3 Commandbutton.
3. Atur Properties Label dengan Name=time dan Caption=0:0:0:0.
4. Atur Properties Timer dengan Enabled=False dan Interval=10.
5. Atur Properties Textbox pertama dengan Name=cmdStart dan Caption=Start.
6. Atur Properties Textbox ke-2 dengan Name=cmdPause dan Caption=Pause.
7. Atur Properties Textbox ke-3 dengan Name=cmdStop dan Caption=Stop.
8. Double click Timer dan pada Timer1_Timer() ketikkan kode di bawah ini.

If ms >= 0 Then
    ms = ms + 1
End If
If ms = 10 Then
    s = s + 1
    ms = 0
End If
If s = 60 Then
    m = m + 1
    s = 0
End If
If m = 60 Then
    h = h + 1
    m = 0
End If
Me.time.Caption = h & ":" & m & ":" & s & ":" & ms

9. Double click tombol Start dan pada cmdStart_Click() ketikkan kode di bawah ini.

Me.time.Caption = "0:0:0:0"
Me.Timer1.Enabled = True

10. Double click tombol Pause dan pada cmdPause_Click() ketikkan kode di bawah ini.

Me.Timer1.Enabled = Not Me.Timer1.Enabled = True

11. Double click tombol Stop dan pada cmdStop_Click() ketikkan kode di bawah ini.

Me.Timer1.Enabled = False
Me.time.Caption = "0:0:0:0"

Untuk contoh programnya Anda bisa mendownloadnya disini.