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.
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...
(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.
Teşekkürler, güzel örnek.
form_timer olayının en üstüne
if isnull(sure)=true then exit sub
işlem tamam.
(30/04/2012, 16:45)Kur@l yazdı: Teşekkürler, güzel örnek.
form_timer olayının en üstüne
if isnull(sure)=true then exit sub
işlem tamam.
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