Göz Koruma Programı

Celebrian · #1 24-12-2007, 12:07

Göz Koruma Programı Göz Koruma Programı
Bilgisayar başında programlama yapmaktan gözleri ağrıyan ve monitörden ışıyan radyasyondan (azda olsa) korunmak için bir miktar ara vermek herkesin hoşuna gider heralde. Ama bazende öyle bir dalarızki dünya yansa umurumuzda olmaz ama genede gözlerimizi düşünmemiz lazım. Çevrenize bir bakın sizin gibi bilgisayar kullanıpda gözlük kullanmayan kaç kişi var acaba? Ayrıca oturmakdan ağrıyan muhtelif yerlerinizi de bir kaç küçük egsersizle hareket ettirerek sağlıklı ve zinde işinize devam edebilirsiniz. Fransa gibi bazı ülkelerde sosyal sigorta kurumları bilgisayar başında oturarak iş yapan işçileri en ağır işçi sıfatına sokuyor (maden işçisinden sonra). Acaba bizim SSK ne düşünüyor bu konuda. Neyse orası büyüklerimizin bileceği iş. Hal böyle olunca belirli zamanlarda ara vermek için ekrana bir mesaj penceresi açıp ara vermenizi söyleyen bir program işinize yarayabilir.

Programımızda kullanacağımız malzemeler ise:
3 adet edit box
1 timer
4 adet buton
4 adet label
2 adet form
bulunmaktadır. Malzemeler hazırsa programlamaya geçebiliriz. Önce edit boxları kuşbaşı doğrayıp | . Neyse aşağıdaki formu hazırlayarak altındaki kodu general declerations kısmından itibaren yapıştırın, tuşlara fonksiyonları bağlamayı unutmayın. Tuşların default gelen isimlerini fonksiyon isimlerinde underscore olan yere kadar kısımla değiştirmeniz yeterli. Örneğin fonksiyon ismi "Private Sub baslat_Click()" ise tuşun ismi "baslat" olmalıdır.

Option Explicit
Dim sekme As Date
Dim alarm As Date
Dim saat As Date
Dim mas As String

Private Sub baslat_Click()
If Text3.Text = "" Or Text3.Text = "00:00:00" Then
mas = MsgBox("Sekme değeri boş geçilemez. Lütfen bir değer giriniz. ")
Else
sekme = CDate(Text3.Text)
alarm = Time + CDate(sekme)
Text2.Text = alarm
gezgoz.Visible = False
End If
End Sub

Private Sub Timer1_Timer()
saat = Time
Text1.Text = Time
If Text1.Text = Text2.Text Then
Load frmUyari
frmUyari.Show
alarm = Time + CDate(Text3.Text)
Text2.Text = alarm
End If
End Sub

Private Sub cikis_Click()
End
End Sub

Daha sonrada aşağıdaki gibi dikkat çekecek bir form hazırlayın ve "Tamam" tuşunuda default tuş yapın. Ve altındaki koduda general decleration kısmından itibaren yapıştırın. Bu form sizi uyarmak amacı ile ekrana çıkacak olan formdur

Private Sub cmdtamam_Click()
Unload Me
End Sub

Private Sub kapa_Click()
End
End Sub

"Tamam" ve "Kapa" tuşlarının fonksiyonlarınıda bağlayın. Burada "Tamam" tuşunun default olmasının nedeni bir enter tuşuna basarak formun kapanabilmesini sağlamak ve mouse ile vakit kaybetmemek.

Gürkan Yeniçerigyeniçeri@hotmail.com

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
Bush tökezledi koruma kurtardı	TheOflu	Haberler	0	11-08-2008 03:22
Sitende tam koruma	weyseL	Hazır program kodları	7	16-07-2008 10:34
Bilgisayariniz Koruma Altinda	kadınca	Donanım Haberleri	0	08-07-2008 12:52
Kimsesiz Çocukları Koruma Derneği 10 ilde bin 200 kişiyle görüştü: İnsanlar sokakta yaşayan ve çalışan çocukları "suçlu" olarak görüyor; acıma ve korku duyguları ağırlıklı. Devletin koruma hizmetleri	capi	İnsan Hakları	0	25-06-2008 03:11
Virüsten koruma yazılımı nedir?	kadınca	Webmaster Sözlügü	0	25-02-2008 01:20

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder