ileriye doğru sayan kronometre - Baskı Önizleme +- 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
işlem tamam.
Cvp: ileriye doğru sayan kronometre - karabattak - 30/04/2012 (30/04/2012, 16:45)Kur@l yazdı: Teşekkürler, güzel örnek. 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 |