VB Geri Sayım Aracı

[EcmeL]

1 Adet Label ve 1 Adet Timer ekleyerek aşağıdaki kodları formumuza uyguluyoruz.

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  

[BayR]

Hocam yaptığın şey denedim oldu. Bunun için teşekkür ederim. Ama ben biraz kodlarla değişik yapayım birde öyle deniyeyim dedim. 3 tane textbox 3 Timer 3 buton ekledim Hepsi çalışıyor sadece 2.'nin timer'da bir sorun var acaba sorun nere bakarmısın
Private Sub Timer2_Timer()
Text2 = Val(Tex2) - 1
If Text2 = 0 Then
MsgBox "yy"
Timer2.Enabled = False
End If
End Sub

[EcmeL]

BayR´isimli üyeden Alıntı

Hocam yaptığın şey denedim oldu. Bunun için teşekkür ederim. Ama ben biraz kodlarla değişik yapayım birde öyle deniyeyim dedim. 3 tane textbox 3 Timer 3 buton ekledim Hepsi çalışıyor sadece 2.'nin timer'da bir sorun var acaba sorun nere bakarmısın
Private Sub Timer2_Timer()
Text2 = Val(Tex2) - 1
If Text2 = 0 Then
MsgBox "yy"
Timer2.Enabled = False
End If
End Sub

timer 2 nin üzerine tıklayıp properties bölümünden interval değerini 1000 yaparsan text2 de -1 çıkacaktır.