ileriye doğru sayan kronometre

(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

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

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.

Teşekkürler.