Stopwatch sederhana dengan delphi

sedikit share ah
kali ini tentang stopwatch sederhana,
bahan yang diperlukan adalah seperti ini :


lets dengan kodenya
1. tambahkan variabel dulu dibawah TForm seperti ini:

var
 Form1: TForm1;
 awal ,akhir : TDatetime;
 lama : real;

2. tambahkan listing ini pada event Form Oncreate

procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Interval:=1;
end;

3. sekarang pada event timer OnTimer

procedure TForm1.Timer1Timer(Sender: TObject);
var
 Slama : string;
begin
if Button1.Caption = 'Stop' then
 begin
  akhir:=time;
  edit2.Text:=timetostr(akhir);
  lama:=(akhir - awal)*100000;
  str(lama:12:2,Slama);
  edit3.Text:=Slama;
 end;
end;

4.terakhir pada event button OnClick

procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption = 'Start' then
 begin
  awal:=time;
  edit1.Text:=timetostr(awal);
  button1.Caption:='Stop';
 end
 else if button1.Caption = 'Stop' then
  button1.Caption:='Selesai'
 else
  application.Terminate;
end;

5. DONE,tinggal di run sajah :D



semoga bermanfaat