Alarm
Tarih
03/01/2012 18:09
Konu Sahibi
mqunetr
Yorumlar
2
Okunma
1209
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mqunetr
Aktif Üye
Kullanici Avatari
Aktif Üye
58
27/11/2011
0
Balıkesir
Ofis 2007
30/04/2012,16:10
Çözüldü 
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?
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.988
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,09:49
Çözüldü 
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:

Visual Basic Code
   IF (saniye == 0) 
   {
       // Şart sağlanınca yapılmasını istediğiniz şeyler.
   }

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
06/12/2016,00:25
Çözüldü 
10 'dan geriye doğru saydırıp 0 olunca beep 'lemesi için ;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    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

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya