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 ; |