Alarm

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?

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.

   }

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