İlk Once Gereken Nesneleri Soyleyeyim
:3 Adet Label
2 Adet Textbox
1 Adet CommandButton
1 Adet Timer
İlk Once Bu Nesneleri Ekleyelim
Label1 ---->> Saat i
Label2 ---->> Dakika yı
Label3 ---->> Saniyeyi Gosterir
Nesneleri Ekledikten Sonra KodLarımıza Gecelim
Option Explicit
Dim a As Integer ' program boyunca kullanilacak a degiskeni
Dim b As Integer ' program boyunca kullanilacak b degiskeni
Private Sub Command1_Click()
a = Val(Text1.Text) ' text1 degeri (a) ya ataniyor
b = Val(Text2.Text) ' text2 degeri (b) ye ataniyor
End Sub
Private Sub Form_Load()
Dim zaman, dakika
Timer1.Enabled = True
Timer1.Interval = 1000 ' bu deger 1 saniyeye karsilik gelir
Form1.Caption = "Alarm V.01"
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Text2_Click()
Text2.Text = ""
End Sub
Private Sub Timer1_Timer()
Dim zaman, saniye, dakika, saat
zaman = Time
saniye = Second(zaman)
dakika = Minute(zaman)
saat = Hour(zaman)
Label1.BackColor = QBColor(0)
Label1.ForeColor = QBColor(10)
Label1.FontSize = 20
Label1.Alignment = 2
Label1.Caption = saat
Label2.BackColor = QBColor(0)
Label2.ForeColor = QBColor(10)
Label2.FontSize = 20
Label2.Alignment = 2
Label2.Caption = dakika
Label3.BackColor = QBColor(0)
Label3.ForeColor = QBColor(10)
Label3.FontSize = 20
Label3.Alignment = 2
Label3.Caption = saniye
If saat = a Then
If dakika = b Then
Beep 'dakika degeri(label2), sizin kurdugunuz dakika degeri (text2) ile ayny oldugu muddetce beep sesi alyrsynyz(60 saniye)
End If
End If
End Sub
Bu Kodu Formun Boş Bir Yerine Sağ Tıklayarak Veya İki Kere Tıklayarak Kod Bolumune Yapıştıralım
Arkadaşlar Birde Şunu Hatırlatayım
Text1 Saat i Ayarlar
Text2 Dakikayı
Command Bastığınızda Alarmın Kurulu olduğu Saat-Dakika Geldiğinde Saniye Başı Beep! sesi Cıkar
Şimdi Deneyelim Bakalım Calışıyormu ?
Gorduğumuz Gibi Calışıyor
Aslında Video Vardı Ama Cok Buyuktu O yuzden Upload Etmedim Bole Anlattım
Kolay Gelsin Arkadaşlar
Bari Alıntı Yaparken İsmimi Silmeyin
--->> fastplayer13
__________________