Üye
1 Timer 1 Label
Form 1 Loada Yapıştırın.
Form 1 Loada Yapıştırın.
Forma Sure Eklemek
- Konuyu başlatan x60
- Başlangıç tarihi
- Durum
Üye
bakalım teşekkürler 
Üye
Teşekkürler XD
hadi bakalıkm neolcak
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
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
Üye
bakayım hemennnn
Uzman Üye
Sağol Knk Adamın Dibisin
- Durum
Benzer Konular
- Kilitli
