vb 6 da yardım

[adrenalin2]

Kim 1 milyon tl ister ? tarzı bir program yapıcam can sıkıntısından çoğunluğunu yaptım . Ama sağda sürenin 30 dan geriye doğru saymasını istiyorum . Visual basic te Nasıl yapabilirim ?

 

[LyVio]

Private Sub Form_Load() 
Timer1.Enabled = True 'Timer 1 çalışacak 
Timer1.Interval = 1000 'her 1 SN de  
Label1.Caption = "60" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz 
End Sub 

Private Sub Timer1_Timer() 
Label1.Caption = Val(Label1.Caption) - 1'timer her SN çalıştığı için label 1 de yazarn RAKAM dan 1 çıkaracak  güzel mantık 
If Label1.Caption = "0" Then label1 0 olduğunda msgbox ile bizi uyaracak 
 MsgBox "Süre Doldu" 
 Timer1.Enabled = False 
End If 
End Sub

Buyur

 

[adrenalin2]

eyw. saolasın

 

[LyVio]

Türkçe harfler kullan

Sorun çözüldüyse lütfen bildirin.

 

[adrenalin2]

tamam da kodları yazdım labelde 60 yazıyor ama geri saymıyor

 

[HAKOPS]

Timer İntervalini Ayarladın mı ?

 

[adrenalin2]

evet 1000 yaptım

 

[LyVio]

Burdan sonrasını Hakops üstadımızın yapması daha mantıklı.

 

[adrenalin2]

üstadım sence ne yapmalıyım ?

 

[HAKOPS]

Kodları Bir Verirmisin Label Sayısı Vs. Uyumlu Değilmi

 

[adrenalin2]

Private Sub Form_Load() 
Timer1.Enabled = True 'Timer 1 çalışacak 
Timer1.Interval = 1000 'her 1 SN de  
Label1.Caption = "60" 'hangi sayıdan geri sayacaksak o rakamı yazıyoruz 
End Sub 

Private Sub Timer1_Timer() 
Label1.Caption = Val(Label1.Caption) - 1'timer her SN çalıştığı için label 1 de yazarn RAKAM dan 1 çıkaracak  güzel mantık 
If Label1.Caption = "0" Then label1 0 olduğunda msgbox ile bizi uyaracak 
 MsgBox "Süre Doldu" 
 Timer1.Enabled = False 
End If 
End Sub

Buyur

bunlar işte

 

[adrenalin2]

Label1.Caption = Val(Label1.Caption) - 1 yazıyor ya ondan olabilir mi ? 59 da kalıyor

 

[HAKOPS]

Kodlar Doğru , Kodlarda Bir Sorun Sayı Uyuşumuna Dikkat Edin Mesela Label1 Sizdede Label1'mi ?

 

[adrenalin2]

evet . tekrar kontrol ettim aynı. 60 dan başlıyor 59 da kalıyor

 

[HAKOPS]

aLLAH aLLAH Birşey Timer'İ Engelliyor.

 

[adrenalin2]

neden olabilir acaba ?

 

[adrenalin2]

buldum . Yukarıdaki arkadaşımızın verdiği kodlarda hata var . Timer1.Enabled = False bunun yerine Timer1.Enabled = True yazdım saymaya başladı

 

[LyVio]

Kardeşim sanırım sizde sorun var kodlar gayet güzel çalışıyor. Ayrıca projenizde bir çok timer varsa kodu ekledikten sonra timerin doğru olduğunuda kontrol etmenizde fayda var.


Ben direk kodlar kopyala yapıştır yaptım sorun çıkmadı ? Neyse konuyu bildiriyorum çözüldüyse

 

[adrenalin2]

son 1 şey daha 0 dan sonra durmuyor -1. -2 ... gidiyor . 0 da nasıl durdurabilirim ?