Rumus Detik Di Delphi

Selamat siang agan-agan yang ada di depan komputer hehe...kali ini saya akan posting rumus detik di delphi sebelumnya jalankan program delphi anda dan ambil komponen label di pallet standart dan timer di pallet system susun seperti di bawah

setelah selesai mendesain seperti gambar double klik pada timer dan isikan rumus sebagai berikut :

i:=i+1;
label1.Caption:=inttostr(i);
if label1.caption='60' then begin
label1.caption:='0';
i:=0;
end;

keterangan :
(saat detik mencapai angka 60 maka detik akan mengulang dari 0 )


sekian postingan kali ini semoga bermanfaat