30/04/2012, 20:29
(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.