Ders-20 'TIMER' - Delphi- Zamansız Tartışma Platform

ares · 07-12-07, 17:07 Çevrimdışı

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

Code:

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.

Code:

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;

07-12-07, 17:07 Çevrimdışı	#1
ares Genel Mesajlar: 6.690 Teşekkür etti: 773 Teşekkür edildi: 2.169 RepForum Gücü: 500 Forum Puanı:49631	Ders-20 '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 Code: 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. Code: 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;

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder