Tekil Mesaj gösterimi
Alt 11 Mart 2015, 13:47   #1
Çevrimdışı
Kaf_Dağı Doğrulanmış Üye
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Procedure ile Geçen Zaman (Süre) Sayacı




Procedure ile Geçen Zaman (Süre) Sayacı.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
// Kodbankta bir çok kronometre kodu mevcut fakat bu biraz farklı. Saat süre ile çalışan firmalar için kullanılabilir. //forma bir timer 3 adet label ekleyin. procedure GecenZaman(Saniyenesne,Dakikanesne,Saatnesne:TLabel); var Saniye,Dakika,Saat:Integer; begin Saniye:=(StrToInt(Saniyenesne.Caption)); Dakika:=(StrToInt(Dakikanesne.Caption)); Saat:=(StrToInt(Saatnesne.Caption)); Inc(Saniye); if Saniye >= 60 then begin Saniye:=0; inc(Dakika); end; if Dakika >= 60 then begin Dakika:=0; inc(saat); end; if Length(IntToStr(Saniye)) <2 then begin Saniyenesne.Caption:='0'+IntToStr(Saniye) end else begin Saniyenesne.Caption:=IntToStr(Saniye); end; if Length(IntToStr(Dakika)) <2 then begin Dakikanesne.Caption:='0'+IntToStr(Dakika) end else begin Dakikanesne.Caption:=IntToStr(Dakika); end; if Length(IntToStr(Saat)) <2 then begin Saatnesne.Caption:='0'+IntToStr(Saat) end else begin Saatnesne.Caption:=IntToStr(Saat); end; end; //timer nesnesi interval değeri 1000 olarak kalsın. //timer nesnesinin içine yazınız. GecenZaman(label1,label2,label3); //label1 label2 label3 label nesnelerinin default isimleridir. Isimlerini değiştirerek kullanabilirsiniz.


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan