Timer menggunakan delphi

langkah – langkah :

1. letakkan 6 buah label dan 1 buah timer pada form

2. ubah caption label seperti pada gambar :

3. double klik pada form dan ketikan perintah berikut :

label1.Caption:=FormatDateTime(‘hh:mm:ss’,time);

4. double klik pada timer dan ketikan perintah berikut :

label2.Caption:=FormatDateTime(‘hh:mm:ss’,time-StrToDateTime(label1.Caption));

 label6.Caption:=timetostr(now());

5. sehingga perintah nya seperti berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:=FormatDateTime(‘hh:mm:ss’,time);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label2.Caption:=FormatDateTime(‘hh:mm:ss’,time-         StrToDateTime(label1.Caption));
label6.Caption:=timetostr(now());
end;

_____________selamat Mencoba_____________