+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: kronometre (/konu-kronometre.html)
Sayfalar:
1
2
kronometre - accessman - 24/09/2009
iyi günler
geriye doğru sayan bir kronometre yapmak istiyorum
yardımcı olabilirmisiniz
teşekkürler
Cvp: kronometre - maytas - 24/09/2009
Merhaba.
Bu konudaki kodları inceleyiniz.
Cvp: kronometre - accessman - 25/09/2009
ilginiz için teşekkürler
bana Access uygulaması lazım
Cvp: kronometre - kadirdursun - 25/09/2009
(24/09/2009, 18:03)maytas yazdı: Merhaba.
Bu konudaki kodları inceleyiniz.
linkteki kodları nasıl inceleyeceğiz? programı kurdum ama Access yerine exe var.
Cvp: kronometre - accessman - 25/09/2009
kodları nasıl görebiliriz
Cvp: kronometre - Puletin - 25/09/2009
Basit bişey düşündüm belki işinize yarar.
Kod:
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