+- 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ığı: ileriye doğru sayan kronometre (/konu-ileriye-dogru-sayan-kronometre.html)
Sayfalar:
1
2
Cvp: ileriye doğru sayan kronometre - karabattak - 30/04/2012
(30/04/2012, 18:09)karabattak yazdı:(30/04/2012, 16:45)Kur@l yazdı: Teşekkürler, güzel örnek.
form_timer olayının en üstüne
işlem tamam.
if isnull(sure)=true then exit sub
Kural hocam
kodu böyle yaptım
Private Sub Form_Timer()
If IsNull(sure) = True Then Exit Sub
On Error Resume Next
Debug.Print sure, Format(Time() - sure, "Nn"), Format(Time() - sure, "Ss")
Me.dakika.Caption = Format(Time() - sure, "Nn")
Me.saniye.Caption = Format(Time() - sure, "Ss")
Me.Etiket12.Caption = Format(Right(Timer, 2), "00")
Me.TimerInterval = 100
End Sub
ama bir değişiklik olmadı yanlış yeremi yazdım acaba
Kural hocam ben bir değişiklikle istediğimi elde ettim
(Me.TimerInterval = 100) bu kodu form açıldığında olayına ekledim sayfa açılınca süre başlamadı istediğimde buydu.
başlat süreyi başlatıyor , dur ise durduruyor , tekrar başlata basınca süre sıfırdan tekrar başlıyor.
sayende kronometrem çalışıyor. son halini de ekliyorum kullanmak isteyen arkadaşlar için.
desteğiniz için teşekkür ederim.
Cvp: ileriye doğru sayan kronometre - Kur@l - 30/04/2012
Teşekkürler.