| Kaf_Dağı | 11 Mart 2015 13:47 |
Procedure ile Geçen Zaman (Süre) Sayacı
Procedure ile Geçen Zaman (Süre) Sayacı. Kod:
// 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.
| 