VİSUAL BASİC – HATIRLATMA PROGRAMI SİZİ UYARICI BİR PROGRAM YAPALIM


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: NickBeLiRSiZZ    0 Yorum    142 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 31.01.2016, 01:11:59 #1
NickBeLiRSiZZ Old Mod.
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:296 Konu Sayısı:48 Üyelik Tarihi:12.01.2016 Rep Puanı: 21

Ne İşime Yarar?
Borçlarınızı Not Edebilirsiniz

-Ödemeleri Alacakları Not Edebilirsiniz 

Takip Proramlarına Boşuna Para vermeyin.!!



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.


Private Sub Form_Load()
Text1 = “”
Text2 = “”
Text3 = “”
End Sub



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.)


Private Sub Timer1_Timer()
Label1.Caption = Time
If Text3 = Label1 Then MsgBox Text1, vbInformation, Text2
End Sub


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.


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,

Private Sub Command1_Click()
Form1.Visible = False
MsgBox “Tamam Ben Seni Uyarırım”, vbInformation, “Merak Etme”
End Sub

Kullanıcı İmzası
''İnsan Yükselince Kendini Bişi Zanneder''

-Adolf Hitler.


                    

[img=0x450]https://media.giphy.com/media/MrYqi6NBoMGbe/giphy.gif[/img]







Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir