Membuat Stopwatch dengan Delphi

Membuat Stopwatch dengan komponen Ttimer

TTimer merupakan komponen yang bekerja sebagai penunjuk waktu. Untuk lebih jelasnya buatkan desain seperti di bawah ini :

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Timer1: TTimer;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  akhir,awal :TTime;   (èvariabel global ditambahkan sendiri)

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin                                                   (èsintax tampilan awal form)

Timer1.Interval:=1000;

Button1.Caption:='Start';

Button2.Caption:='Reset';

end;

procedure TForm1.FormShow(Sender: TObject);

begin   (èsintax tampilan pada event on show, cari ditab event klik 2x di sebelahnya)

Edit1.Text:='00:00:00';

Edit2.Text:='00:00:00';

Edit3.Text:='00:00';

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var                               (èsyntax dimasukkan pada komponen timer)

SLama :string;

lama :Double;

begin

 if Button1.Caption='Stop' then

 begin

  akhir:=time;

  Edit2.Text:=TimeToStr(akhir);

  Lama:=(akhir-awal)*1000;

  Str(Lama:12:2,SLama);

  Edit3.Text:=SLama;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin               (èsintax pada tombol1)

if Button1.Caption='Start' then

 begin

  awal:=time;

  Edit1.Text:=TimeToStr(Time);

  Button1.Caption:='Stop';

 end

 else if Button1.Caption='Stop' then

  Button1.Caption:='Selesai'

 else Application.Terminate;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin                                       (è:sintax dimasukkan pada tombol2)

FormCreate(sender); //memanggil kembali form create

FormShow(sender);  //memanggil kembali form show

end;

end.

hasil akhir 

    

Keterangan :

Hanya tulisan yang digaris miring yang ditulis di unit editor. Jika muncul tulisan AM/PM berarti karena setting waktu computer anda yang harus diubah ke system waktu Indonesia.


klik disini untuk download materi diatas.