Zamanlayıcı nesnesinin bir diger ilginc kullanımı da onu belirli bir süre için bekletmek ve sonra bir eylemi etkinleştirmek ya da engellemek için kullanmaktadır.Bu programınızda bir fırının saatini kurmaya benzer Interval ozelligini istediginiz uzatma süresine ayarlar ve Enabled özelligini True yaparak saatin calısmasını baslatırız..

Asagıdaki ornek bir paralo girmek için zaman süresi belirlemde bu fikrin nasıl kullanıldıgını göstermekdir.Bu örnekte Paralo '' Gizli'' olarak belirlenmiştir.Program 45 sanayi içinde geçerli bir parola girilmedigi taktirde porgramı kapatan bir zamanlayıcı kullanmaktadır.Normal olarak böyle bir program daha büyük uygulamannın bir parçası olarak kullanlırdı.Bu zamanlayıcı tenigine kullanarak ekranda bir hosgeldiniz ya da kullanım hakkı iletisi görüntüleyebilir ya da bir dosyayı her 10 dakikada bir kaydetmek gibi bir olayın belirli bir zaman aralıgında yinelenmesini saglayabilirsiniz..

Bir paralo Giriş için Süre sınır Koyun

1.File menüsündeki New Project komuyunu Ve Oki tıklayın.

2.Açılan Formu bir girdi kutusu büyüklügünde olacak sekilde kucultun.

3.Araç kutusundaki TextBox denetimini tıklayın.

4.Formun orastısnda dörtgen bir metin kutusu olusturun.

5.Araç kutusundaki label denetimini tıklayın ve metin kutusunun altında bir komut dugmesi olusturun..

7.Araç kutusundaki Timer denetimini tıklayın..

8.Formun sol alt koseinde bir zamanlayıcı nesne olusturun..

Form üzerindeki zamanlayıcı nesneyi çift tıklayın ve asagıdaki bildirleri yazın

Private Sub Timer1_Timer()
MsgBox ("Üzgünüm, zamanınız doldu.")
End
End Sub

Birinci bildiri zaman bittigini gösteren bir ileti görüntülerken ikinci bildiri programı sonlandırır.Zamanlayacı aralıgı 15 saniyeye ulastıgıında geçerli bir paralo girilmemisse visual basic bu olay yordamını calıstırı

Code penceresindek object açılır liste kutusunda command1 nesnesini tıklayın ve asagıdaki bildiriler Command1_Click olay yordamını yazın..

Private Sub Command1_Click()
If Text1.Text = "gizli" Then
Timer1.Enabled = False
MsgBox ("Sisteme hoşgeldiniz!")
End
Else
MsgBox ("Üzgünüm dostum, seni tanımıyorum.")
End If
End Sub

Bu program kodu metin kutusna girilim parlonan '' gizli'' olup olmadıgını denetler.Eger girilen parola gizli ise zamanalayıcı deverende cıkarılarak bir hosgeldin iletiisi görüntülenir ve program sonlandırılır.Aslında daha kullanıslı bir program burada durmak yerine calısmaya devam etmesi gerekirdi.Girlien parolanın dogru olmadıgı durumlarda bir ileti kutusu aracılıgıyla kullanıcı ıyarlılır ve kendisine parolayı girmes için bir şans daha verilir.Ancak kullanıcının hızlı olması gerekir.Parolayı girmek için yalnızca 15 saniyesi vardır..

Code penceresini kapatın ve program calıstırmak iiçin start dugmesine tıklayın

Programın son hali.

KAYNAK