|
DERS ANLATIMI TIMER |
|
TIMER
Bu kontrol ile, belirli süreler içerisinde bazi
kontroller yapilabilecegi gibi animasyonlar da yapilabilir.Timer
kontrolü çalisma zamaninda görünmez. Komutlari
OnTimer bölümüne yazilir.
Companent Palet / System / Timer 
butonu forma yerlestirilir. |
PROPERTIES |
| 1) Interval :
Bu özellik OnTimer
olayinda meydana gelecek olan zaman araligini belirler. Birimi
Milisaniye olup 0 ile 2.147.483.647 arasinda
bir deger alir. 1 saniye aralikla islem yapilmasi için
Interval degeri 1000 verilir. |
| ÖRNEK 1:
Tarih - Saat gösterimi |
 |
KODU :
procedure TForm1.Timer1Timer(Sender:
TObject);
begin
label1.Caption:=DateToStr(date);
//bilgisayar tarihini her saniyede oku label1'e yaz
label2.Caption:=timetostr(time);
//bilgisayr saatini her saniyede oku
end;
|
|
|
| ÖRNEK 2 : Yanan sönen lamba. |
 |
KODU :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Visible:=true;
image2.Visible:=false;
timer2.Enabled:=true;
timer1.Enabled:=false;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
image1.Visible:=false;
image2.Visible:=true;
timer2.Enabled:=false;
timer1.Enabled:=true;
end; |
|
|
|
!
! DOWNLOAD ! ! |
|
|
|
