White is destined to be dirty Black is to blame
Seçkin Üye
[font='Droid Sans', Arial, Tahoma]Ne İşime Yarar?[/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]–[font='Droid Sans', Arial, Tahoma]Borçlarınızı Not Edebilirsiniz[/FONT][/FONT]
[/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]-Ödemeleri Alacakları Not Edebilirsiniz [/FONT][/FONT]
[font='Droid Sans', Arial, Tahoma]–[font='Droid Sans', Arial, Tahoma]Takip Proramlarına Boşuna Para vermeyin.!![/FONT][/FONT]
[font='Droid Sans', Arial, Tahoma]Formumuza bir adet Timer, 3 adet textbox, 1 adet command button 5 adet label ekleyelim.
label1 e saatimizi ekleyeceğiz.
label2 ye saatimize vereceğimiz herhangi bir isim.
label3 e, text1 e konunun yazılacağını belirtiyoruz.
label4 e, text2 ye hatırlatılacak notumuzun yazılacağını belirtiyoruz.
label5 e, text3 e hatırlatılacak zamanın yazılacağını belirtiyoruz. (Ama zaman bu şekilde yazılacak [ör: 17:15:00] . Yani saat, dakika ve saniye olarak.)
Şimdi Programımıza başlayabiliriz.
Önce Programımızı ilk açtığımız zaman textlerin içinin boş olması için textlerin içini boşaltıyoruz.[/FONT]
[font='Droid Sans', Arial, Tahoma]Private Sub Form_Load()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub[/FONT]
[font='Droid Sans', Arial, Tahoma]
Timer1 e, saatimizin label1 de görünmesi ve yazdığımız zamanda bize uyarması için yazılacak kodlar.(Bu arada Timer1 in interval özelliğini 10 yapıyoruz.)[/FONT]
[font='Droid Sans', Arial, Tahoma]Private Sub Timer1_Timer()
Label1.Caption = Time
If Text3 = Label1 Then MsgBox Text1, vbInformation, Text2
End Sub[/FONT]
[font='Droid Sans', Arial, Tahoma]Burada Text3 ün içindeki değer label1 ile aynı ise bize konumuzu ve notumuzu bir mesaj şeklinde görüntüleyecek.
Şimdide formumuza koyduğumuz butonun ne işe yaradığını ve kodlarını yazalım.[/FONT]
[font='Droid Sans', Arial, Tahoma]Bütün ayarları yaptıktan ( konuyu ve zamanı ayarladıktan)sonra bu butona bastığımız zaman formumuzun görünebilme özelliğini kaybedecek ve onu arka planda çalışıyormuş gibi göstereceğiz.
Gelelim Kodlarımıza,[/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]Private Sub Command1_Click()
Form1.Visible = False
MsgBox “Tamam Ben Seni Uyarırım”, vbInformation, “Merak Etme”
End Sub[/FONT][/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]–[font='Droid Sans', Arial, Tahoma]Borçlarınızı Not Edebilirsiniz[/FONT][/FONT]
[/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]-Ödemeleri Alacakları Not Edebilirsiniz [/FONT][/FONT]
[font='Droid Sans', Arial, Tahoma]–[font='Droid Sans', Arial, Tahoma]Takip Proramlarına Boşuna Para vermeyin.!![/FONT][/FONT]
[font='Droid Sans', Arial, Tahoma]Formumuza bir adet Timer, 3 adet textbox, 1 adet command button 5 adet label ekleyelim.
label1 e saatimizi ekleyeceğiz.
label2 ye saatimize vereceğimiz herhangi bir isim.
label3 e, text1 e konunun yazılacağını belirtiyoruz.
label4 e, text2 ye hatırlatılacak notumuzun yazılacağını belirtiyoruz.
label5 e, text3 e hatırlatılacak zamanın yazılacağını belirtiyoruz. (Ama zaman bu şekilde yazılacak [ör: 17:15:00] . Yani saat, dakika ve saniye olarak.)
Şimdi Programımıza başlayabiliriz.
Önce Programımızı ilk açtığımız zaman textlerin içinin boş olması için textlerin içini boşaltıyoruz.[/FONT]
[font='Droid Sans', Arial, Tahoma]Private Sub Form_Load()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub[/FONT]
[font='Droid Sans', Arial, Tahoma]
Timer1 e, saatimizin label1 de görünmesi ve yazdığımız zamanda bize uyarması için yazılacak kodlar.(Bu arada Timer1 in interval özelliğini 10 yapıyoruz.)[/FONT]
[font='Droid Sans', Arial, Tahoma]Private Sub Timer1_Timer()
Label1.Caption = Time
If Text3 = Label1 Then MsgBox Text1, vbInformation, Text2
End Sub[/FONT]
[font='Droid Sans', Arial, Tahoma]Burada Text3 ün içindeki değer label1 ile aynı ise bize konumuzu ve notumuzu bir mesaj şeklinde görüntüleyecek.
Şimdide formumuza koyduğumuz butonun ne işe yaradığını ve kodlarını yazalım.[/FONT]
[font='Droid Sans', Arial, Tahoma]Bütün ayarları yaptıktan ( konuyu ve zamanı ayarladıktan)sonra bu butona bastığımız zaman formumuzun görünebilme özelliğini kaybedecek ve onu arka planda çalışıyormuş gibi göstereceğiz.
Gelelim Kodlarımıza,[/FONT]
[font='Droid Sans', Arial, Tahoma][font='Droid Sans', Arial, Tahoma]Private Sub Command1_Click()
Form1.Visible = False
MsgBox “Tamam Ben Seni Uyarırım”, vbInformation, “Merak Etme”
End Sub[/FONT][/FONT]
