Merhaba arkadaşlar kodlama yol da öğrenilen bir dünyadır. Bu yüzden sizler de her gün yeni uygulamalar denemelisiniz. Bugün sizlere Visual Basic ile Hatırlatıcı Program Örneğini aktaracağız. Peki nedir bu Visual Basic ile Hatırlatıcı Program Örneği? Ne işe yaramaktadır? Nasıl yapılmaktadır? İşte bu sorularınızın cevabını içeriğimiz de bulabileceksiniz.
 |
| Visual Studio Görseli |
Program İşlevi
Bu program günlük hayatta bir çok işinize yaramaktadır. Önemli gördüğünüz doğum günleri, kredi ödemenizin son gün tarihi, evlilik yıldönümü vb. gibi önemli günlerinizi sizlere hatırlatabilecek bir programdır. Herkesin telefonun da artık olan çoğu hatırlatıcıdan ziyade sizlerin kendi tasarım ve kodlarınız ile yapacağınız bir hatırlatıcınız neden olmasın?
Form Alanı
Formumuza ilk önce 3 adet timer ekliyoruz. Bir sonraki adım olarak 3 adet textbox ekliyoruz. Sonra 5 adet label ekliyoruz ve son olarak ise 1 adet command button ekleyerek formumuzu oluşturuyoruz.
Kod Alanı
Uygulamamızın çalışma mantığına kısaca değinmek gerekiyor öncelikle. Labellerımıza görev dağılımı yapıyoruz. Label1′ e bulunduğumuz saatimizi ekliyoruz. Label2′ e ise saatimize vereceğimiz aklımızdan ne geçerse olan bir isim ekliyoruz. Label3′ e Text1 alanında konunun yazılacağını belirten ifadeyi yazıyoruz. Label4′ ise Text2 için hatırlatılacak notumuzu yazılacağını belirtiyoruz. Son olarak Label5′ e ise Text3 alanına hatırlatacak zamanın ne zaman olduğunu belirticeğini yazıyoruz.
Uygulamamıza başlarken bütün Textlerimizin içini boş olarak ayarlıyoruz. Timer1′ e ise saatimizin Label1 de görünmesi gerektiğini ve yazdığımız zaman geldiğinde bizi uyarması gereken kodları yazıyoruz. Bu işlemi Timer içerisinde yapıyoruz ve Timerımızın İnterval özelliğini de “10” olarak ayarlıyoruz.
Bir sonraki işlem olarak ise Text3 ün içine atadığımız değer ile Label1 deki değer aynı ise bize konumuzu ve notumuzu bir mesaj şekilde yollamasını gerektiğini ileten kodlarımızı yazıyoruz. Bunu Timer içerisinde gerçekleştiriyoruz.
Command butonuna basıldığı anda ise zaman görünümü kaybolacak. Aslında arka planda çalışmaya devam edecek şekilde ayarlıyoruz. Evet anlatırken çok aşama olan ama kod metni çok kısa olan bu uygulamamızın kod metni şu şekildedir;
Private Sub Form_Load()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
If Text3 = Label1 Then MsgBox Text1, vbInformation, Text2
End Sub
Private Sub Command1_Click()
Form1.Visible = False
MsgBox “Tamam Ben Seni Uyarırım”, vbInformation, “Merak Etme”
End Sub