|
||
| Editor Login | Register | ||
| > Bilgisayar > Nesne Programlama > delphi |
|
|
| Timer Kontrolü |
| Ttimer nedir? Zamanın belli aralıklarında istediğiniz kodu yerine getiren bir uygulamadır. Zaman araligi Inerval özelliği ile belirlenir. Her saniye timerin interval özelliğinde 1000 değeri ile ifade edilir. Eğer profesyonel bir yazlımcısıysanız timer nesnesinin altına hızlı bir kod yazmamalısınız. Örnek 1 saniyede bir 10 sayfa print alma kodu yazarsanız timer nesnesinin altına hatalar ile karşılaşırsınız. Esasında siz bir hata yapmamış oluyorsunuz ama Delphi nin derleme hızı ile ilgili bir sorun bu… Bu konuda 2 tane örnek proram yazacaz şimdi. 1-kolay olan bir showmessage uygulaması 2-Daha gelişmiş bir uygulama olarak mail bomber yapabiliriz.
Program kodları; Procedure TForm1.FormCreate(Sender: Tobject) Begin Timer1.Enabled:=false; End; Procedure TForm1.Timer1Timer(Sender: Tobject) Begin timer1.Interval:=5000; showmessage(’HER 5 SANiYEDE BiR DEFA MESAJ ALACAKSINIZ); End; Procedure TForm1.mesajstartClick(Sender: Tobject) Begin timer1.Enabled:=true; End; |
|
| Bağlantılar: bilgininefendisi.net |
| Open Source Document Project | AUP&TOS |
