iyi günler
geriye doğru sayan bir kronometre yapmak istiyorum
yardımcı olabilirmisiniz
teşekkürler
@benbendedeilem
(24/09/2009, 18:03)maytas yazdı: Merhaba.
Bu konudaki kodları inceleyiniz.
Dim saat, dakika, saniye, salise
Private Sub Form_Load()
saat = "23"
dakika = "59"
saniye = "59"
salise = "99"
End Sub
Private Sub Form_Timer()
salise = salise - 1
If salise = "0" Then
salise = 99
saniye = saniye - 1
If saniye = "0" Then
saniye = 59
dakika = dakika - 1
If dakika = "0" Then
dakika = 59
saat = saat - 1
If saat = 24 Then
saat = 23
End If
End If
End If
End If
Me.Metin0.Value = saat
Me.Metin2.Value = dakika
Me.Metin4.Value = saniye
Me.Metin8.Value = salise
End Sub
Private Sub Komut6_Click()
Me.TimerInterval = 0
End Sub
Private Sub Komut7_Click()
Me.TimerInterval = 10
End Sub