Skip to main content

AccessTr.neT


ileriye doğru sayan kronometre

ileriye doğru sayan kronometre

Çözüldü #7
(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.

kronometre.rar
karabattak, 28-12-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
Teşekkürler.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task