NBATMAN
Üye
- Katılım
- 7 Şub 2008
- Mesajlar
- 136
- Puanları
- 1
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
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