Gorsel Programlama

Kronometre VB 6.0

Dim saat, dakika, saniye As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
saat = 0
dakika = 0
saniye = 0
Label1.Caption = saat & " " & dakika & " " & saniye
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
dakika = dakika + 1
saniye = 0
End If
If dakika = 60 Then
saat = saat + 1
dakika = 0
End If
If saat = 24 Then saat = 0
Label1.Caption = saat & " " & dakika & " " & saniye
End Sub

Projeyi İNDİR