Aplikasi Stopwatch dengan Delphi #126

andrypein.net : Membuat program stopwatch dengan delphi mudah dilakukan, ya walau tidak bagus-bagus amat da ini mah hanya implementasi dari komponen timer saja.

Bahan yang diperlukan hanya 2 buah text 1 button dan 1 timer :

1. Sebelumnya tambahkan variabel global terlebih dahulu dibawah TForm seperti ini :

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

2. Lalu tambahkan listing ini pada event Form Oncreate.

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

3. Lanjut 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 dicoba di running saja dan aplikasi stopwatch dengan delphi berhasil dibuat.

Download

*AFK