+- 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
ileriye doğru sayan kronometre - karabattak - 30/04/2012
Arkadaşlar merhaba
Sizlerden ricam ekte örnek dosyamda basit bir kronometre yapımı konusunda desteğinizi rica edeceğim.
başlat butonuna basılınca geçen zamanın görüntülenmesini istiyorum.
şimdiden cevaplayacak arkadaşlara teşekkürlerimi sunarım.
Cvp: ileriye doğru sayan kronometre - Kur@l - 30/04/2012
İnceleyiniz.
Cvp: ileriye doğru sayan kronometre - perisanoglu - 30/04/2012
ekteki örnek işinizi görür umarım
(30/04/2012, 16:08)Kur@l yazdı: İnceleyiniz.
pardon kur@l hocam mesajınızı görmedim...
Cvp: ileriye doğru sayan kronometre - karabattak - 30/04/2012
(30/04/2012, 16:08)Kur@l yazdı: İnceleyiniz.
Kural hocam cevabınız için teşekkür ederim.
yalnız form açıldığında süre saat kaçsa örneğin 16:44 ise süre 44. dakikadan devam ediyor
form açıldığında süre 00:00 olarak dursa başlata basınca süre başlasa.
bunun için ne gibi bir değişiklik yapmak gerekir.
tekrar teşekkür ederim.
Cvp: ileriye doğru sayan kronometre - Kur@l - 30/04/2012
Teşekkürler, güzel örnek.
form_timer olayının en üstüne
if isnull(sure)=true then exit sub
Cvp: ileriye doğru sayan kronometre - karabattak - 30/04/2012
(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