Basit bir kronometre

[AcimasiZz-]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

11 tane label 2 tane com buton ekleyerek oluşturulmuştur ...



Kod:
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