Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/01/2012 18:09
Konu Sahibi
mqunetr
Yorumlar
2
Okunma
1689
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

mqunetr

Aktivasyon Bekleyen
 29
 58
 15
 27/11/2011
 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?



Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.136
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 15/12/2018,11:41
Çö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.

Kullanici Avatari

ayhan2122

Uzman
 41
 680
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çö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.


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.