Merhaba Arkadaşlar Bu gun Sizlere Nasıl Alarmlı Saat Yapıldığını Gostereceğim
İ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
__________________