Timer Hakkında Yardımlarınıza İhtiyacım Var :S

slm arkadaşlar.. benim üzerinde uğraştığım bir projem var.. ancak bir türlü beceremediğim bir eksiğim kaldı..

form üzerinde bir label düşünelim.. bu label'e saniye aktaracağım.. button1'e tıklandığında 0 dan başlayarak 20.ci saniyeye kadar gelecek..

şimdiden Teşekkürler..

tabi bu Visual stüdüo 2005 te olması gerekiyor..

Visual studio değilde vb6 olarak vereyim rahatlıkça çevirirsin

---
Dim deger as integer
private sub Timer1_Timer()
deger = deger +1
label1.caption = (deger)
if deger = 20 then deger = 0
end sub

butona basılınca 0 dan 20 ye kadar sayacak değilmi o halde ;
Button1_Click()
Timer1.Enabled.True ( Timeri Çalıştırmak için verilen komut )
Timer1.Interval=1000( Timer 1 Saniye Olarak ayarlanacak )

Timer1_Tick

Label1.Text="0" ( Label1.Text " 0 " dan başlayacak )
Label1.Text=Label1.Text+1 ( Label1.Text Değerine Hep Bir ekleyecek )
if Label1.Text=20 Then ( Label1.Text  "20" Olunca  )
Timer1.Enabled=False  ( Timerı Durduracak )
Msgbox("Süreniz Doldu") ( Ve " Süreniz Doldu " Diye Mesaj Göstereck )

for dngüsüylee yapabilirsin :D

Burak Kızıltaş

on button1.click() handbase
timer1.interval=100
timer1.start()
timer1.tick()handbase
label1.text+=1
if label1.text=20 then
label1.text=0
timer1.stop()
end if
end sub