CARA MEMBUAT STOPWATCH DENGAN VISUAL BASIC 6.0

BERIKUT CODING NYA :

Private Sub CMDRESET_Click()
    TXTMILI.Text = "00"
    TXTDETIK.Text = "00"
    TXTMENIT.Text = "00"
    Timer1.Enabled = False

End Sub

Private Sub CmdStart_Click()
    TXTMILI.Text = "00"
    TXTDETIK.Text = "00"
    TXTMENIT.Text = "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 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