VB.Net ile Alarm Uygulaması Yapma
Merhaba arkadaşlar, bu yazımızda vb.net ile küçük bi hatırlatma amaçlı alarm programı yapacağız. Peki bunu nasıl yapacağız? Visual studio programımızı açıp vb.net form uygulaması oluşturuyoruz. Form uygulamızı oluşturduktan sonra açılan ekranda boş forma 6 adet dropdownlist 4 adet textbox 3 adet checkbox 5 adet label 2 adet buton 1 adet timer ve 1 adet openfiledialog […]

2 yıl önce

Merhaba arkadaşlar, bu yazımızda vb.net ile küçük bi hatırlatma amaçlı alarm programı yapacağız. Peki bunu nasıl yapacağız? Visual studio programımızı açıp vb.net form uygulaması oluşturuyoruz. Form uygulamızı oluşturduktan sonra açılan ekranda boş forma 6 adet dropdownlist 4 adet textbox 3 adet checkbox 5 adet label 2 adet buton 1 adet timer ve 1 adet openfiledialog aracı ekliyoruz. Ve ek olarak uyarı için bir tane daha boş form ekleyeceğiz. İkinci formumuza da 1 er adet label, buton ve MediaPlayer ekleyeceğiz. Ana formun ve uyarı formunun tasarımını aşağıda gördüğünüz gibi yaptım tasarım size kalmış 🙂
Kodlarımızı yazmaya başlayalım ufaktan. İlk olarak form1_load olayımıza alarm çaldığında otomatik olarak çalacak şarkı ya da uyarı tonunun linkini textboxa yazdıyoruz. Daha sonra dropdownlistlere saat ve dakikaları for kullanarak eklettirerek devam edeceğiz. Form1_Load kodları aşağıda
[code language=”vb”]
txt_Muzik.Text = "BSoylu.Com.mp3"
For saat = 0 To 24
dDown_Saat1.Items.Add(saat.ToString)
dDown_Saat2.Items.Add(saat.ToString)
dDown_Saat3.Items.Add(saat.ToString)
Next
For dakika = 0 To 59
dDown_Dakika1.Items.Add(dakika.ToString)
dDown_Dakika2.Items.Add(dakika.ToString)
dDown_Dakika3.Items.Add(dakika.ToString)
Next
[/code]
Daha sonra formumuzda bulunan checkboxların checkedchange olaylarına 5 satırlık kod yazacağız. Bunda ki amacımız timer1 çalışırken checkbox seçili ise alarm uyarısı verecek değil ise uyarı vermeyecektir. İlk olarak checkedchange olayının üst satırına aşağıda ki kodları kullanarak değişken tanımlıyoruz.
[code language=”vb”] Dim durum As Boolean = True Dim durum1 As Boolean = True Dim durum2 As Boolean = True [/code]Değişkenlerimizi tanımladıktan sonra checkedchange kodlarına geçebiliriz. Burada checkbox seçili ise durum değişkeni true değil ise false değerini atıyoruz. 3 checkbox için aşağıdaki kodları değiştirerek kodları yazınız.
[code language="vb"] If cBox_Alarm1.Checked Then durum = True Else durum = False End If [/code]
Bunu da halletikten sonra uyarı sırasında çalacak olan şarkı için openfiledialog aracı ile konum bilgisine erişmek olacak. Bunun içinde Şarkı Seç butonunun click olayına aşağıdaki kodu yazıyoruz.
[code language="vb"] If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then txt_Muzik.Text = OpenFileDialog1.FileName.ToString End If [/code]
Şarkı seçimini de yaptıktan sonra timer1 aracımızın tick olayına kodlar yazacağız. Tasarım görünümünde üzerine çift tıklayarak olayı oluşturabilirsiniz. İlk olarak timer1 içerisinde alarmların tek tek saat ve dakika değişkenleri ile checkbox durumunu kontrol edeceğiz. Ve şartlar uyuyorsa uyarı için oluşturduğumuz ikinci forma yönlendirme yapacağız ve checkbox durumunu false olarak değiştireceğiz.
[code language="vb"] Dim saat As Integer Dim dakka As Integer saat = Now.Hour dakka = Now.Minute lbl_Saat.Text = saat.ToString + ":" + dakka.ToString + "." + Now.Second.ToString If cBox_Alarm1.Checked Then If (saat = dDown_Saat1.SelectedItem.ToString And dakka = dDown_Dakika1.SelectedItem.ToString) And cBox_Alarm1.Checked = True And durum = True Then cBox_Alarm1.Checked = False durum = False Form2.Alarm(txt_Mesaj1.Text.ToString, txt_Muzik.Text.ToString) Form2.Show() Me.Hide() End If End If If cBox_Alarm2.Checked Then If (saat = dDown_Saat2.SelectedItem.ToString And dakka = dDown_Dakika2.SelectedItem.ToString) And durum1 = True Then cBox_Alarm2.Checked = False durum1 = False Form2.Alarm(txt_Mesaj2.Text.ToString, txt_Muzik.Text.ToString) Form2.Show() Me.Hide() End If End If If cBox_Alarm3.Checked Then If (saat = dDown_Saat3.SelectedItem.ToString And dakka = dDown_Dakika3.SelectedItem.ToString) And cBox_Alarm3.Checked = True And durum2 = True Then cBox_Alarm3.Checked = False durum2 = False Form2.Alarm(txt_Mesaj3.Text.ToString, txt_Muzik.Text.ToString) Form2.Show() Me.Hide() End If End If [/code]
Ana formumuzda son olarak BAŞLAT butonunun kodlarını yazarak uyarı formu olan form2 ye geçelim. Başlat butonuna bastığında timer1 aracının durumuna bakacağız. Bunun için click olayının dışına bir değişken tanımlayacağız. Aşağıda ki gibi.
[code language="vb"] Dim aktif As Boolean = True [/code]
Değişken tanımlama işlemini yaptıktan sonra click olayına aktif değişkenimiz true ise timer1 i başlatacak, başlat butonunun text değerini durdur olarak değiştirecek, arka plan rengini kırmızı yapıp aktif değişkenine false değerini atayacaktır.
Aktif değişkeni false ise timer1 i durduracak, buton text değerini başlat yapacak, arka plan rengini yeşil yapıp aktif değişlenine true değerine atayacaktır.
[code language="vb"] If aktif Then Timer1.Interval = 500 Timer1.Start() btn_Baslat.Text = "DURDUR" btn_Baslat.BackColor = Color.Red aktif = False Else Timer1.Stop() btn_Baslat.Text = "BAŞLAT" btn_Baslat.BackColor = Color.Green aktif = True End If [/code]
Ana formumuzun kodları bittiğine göre uyarı için açılacak olan form2 nin kodlarına geçebiliriz. İlk olarak ana formumuzun timer_tick kontrolünden bilgi alınabilmesi için bir sub oluşturacağız. Public olarak oluşturmamız gerekir ana formdan gönderi yapabilmemiz için. Anaformdan gelen bilgileri ekrana yazdırıp, mediaplayer de çalacak olan şarkının linkini tanımlıyor ve ses seviyesini 100 yapıyoruz.
[code language="vb"] Public Sub Alarm(ByVal mesaj As String, sarki As String) AxWindowsMediaPlayer1.settings.volume = 100 Lbl_Mesaj.Text = mesaj.ToString AxWindowsMediaPlayer1.URL = sarki.ToString End Sub [/code]
Ana formdan gelen bilgileri de başarılı bir şekilde ekrana getirdikten sonra durdur botununun kodlarını yazıp alarm uygulamamızı bitiriyoruz.
[code language="vb"] Form1.Show() Me.Close() [/code]
Evet arkadaşlar. Küçük, minik bir alarm uygulamasını yaptık. Hazır halini aşağıya ekliyorum. Sizler de bu uygulamayı daha güzel hale getirip tecrübelerinizi yorum olarak bizimle paylaşabilirsiniz. Takıldığınız yerde bi mail ya da yorum kadar uzağınızdayım 🙂 Kolay gelsin.
İndir “Alarm Uygulaması” Alarm.zip – 24 defa indirildi – 3,43 MB
Henüz yorum yapılmadı, ilk yorumu sen yapmak ister misin?