saat projesi

Dim saat, dakika, saniye
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = Hour(Time)
Label3.Caption = Minute(Time)
Label5.Caption = Second(Time)
saat = Hour(Time)
dakika = Minute(Time)
saniye = Second(Time)
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If dakika = 60 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0
End If
End If
End If
Label1.Caption = saat
Label3.Caption = dakika
Label5.Caption = saniye
End Sub

Paylaşım için sağol kanka

bişey değil