VB 6.0_Geri Sayıcı

[NBATMAN]

Merhaba,

kodları aşağıdaki gibi kullanın...




Private Sub Form_Load()
Timer1.Enabled = False 'Burada Timer nesnesini durduruyoruz
Timer1.Interval = 1000 ' bir saniyede bir
Label1.Caption = "120" 'hangi dakikadan geriye saydıracaksanız onu yazınız
End Sub

Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) - 1'Timer çalıştığı zaman yazılan rakamdan her saniyede 1 çıkaracak
If Label1.Caption = "0" Then 'Label1 0 olduğunda mesaj kutusu bizi
aşağıdaki örnekte olduğu gibi uyaracak
MsgBox "Süre Bitti" 'Timer i kapatıyoruz
Timer1.Enabled = False
End If
End Sub

'Başlat butonu;

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

'Durdur butonu;

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub


'Restart Butonu

Private Sub Command3_Click()
Label1.Caption = "120" ' Label 'in (Etiket'in) İsmini 120 Yapar...
Timer1.Enabled = True 'Timer ı Açar
End Sub