+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alarm (/konu-alarm.html)
Alarm - mqunetr - 03/01/2012
Arkadaşlar bir program yazdım başlat dediğimde 1 saatten geriye doğru sayıyor.
Sayması bittiği zaman bir alarm ötsün istiyorum.
Bunu nasıl yapabilirim?
Cvp: Alarm - alpeki99 - 03/01/2012
20 saniyeden geri saydığını varsayalım. Timer'ın Tick olayında saniyeyi 1 azaltacaksınız ve Tick içinde IF ile kontrol edeceksiniz:
IF (saniye == 0)
{
// Şart sağlanınca yapılmasını istediğiniz şeyler.
}
Cvp: Alarm - ayhan2122 - 30/01/2012
10 'dan geriye doğru saydırıp 0 olunca beep 'lemesi için ;
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Başlatınız..."
Button1.Text = "Başlat"
' Button2.Text = "Durdur"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Başlat" Then
Label1.Text = 10
Timer1.Interval = 1000
Timer1.Start()
Button1.Text = "Durdur"
Else
Timer1.Stop()
Label1.Text = "Başlatınız..."
Button1.Text = "Başlat"
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label1.Text <= 1 Then
Beep()
Label1.Text = 0
Else
Label1.Text = Label1.Text - 1
End If
End Sub