Kod: Tümünü seç
Private Sub basla_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub durudur_Click()
Timer1.Enabled = False
Label8.Caption = saat
Label9.Caption = dakika
Label10.Caption = saniye
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Now
saniye = saniye + 1
If saniye = 59 Then
dakika = dakika + 1
saniye = 0
End If
If dakika = 59 Then
saat = saat + 1
dakika = 0
End If
Label4.Caption = saat
Label5.Caption = dakika
Label6.Caption = saniye
End Sub