Cara Membuat STOPWATCH Dengan Delphi7

Dunia Programming - Hai, Sobat bertemu lagi dengan saya dalam Tutorial Cara Membuat Stopwatch Dengan Delphi 7, Ini Merupakan Program yang sangat sederhana, untuk yang lebih keren dan oke, silahkan kalian bisa menambahkan skin untuk Delphi dibawah ini 

Baca Juga : 

• Mempercantik Tampilan Program Delphi 7 Dengan Alpha Skin

Oke Berikut Tampilan yang sudah saya buat untuk Tampilan Stopwatch

Tampilan Program Stopwatch dengan Delphi 7

Bahan yang anda perlukan untuk membuat STOPWATCH diatas yaitu : 

• 4 Buah Label
• 3 Buah Edit 
• 2 Buah Button
• 1 Buah Timer

Untuk scriptnya silahkan kalian bisa cocok.an dengan Source code yang ada di project kalian.

Source Code Program Stopwatch

unit StopCoba;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Timer1: TTimer;
    Label5: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  awal,akhir:tdatetime;
  Lama:real;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Text:='00.00.00';
edit2.Text:='00.00.00';
edit3.Text:='00.00';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
Slama:String;
lama:double;
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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  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
FormCreate(Sender); //Memanggil kembali form Create
FormShow(Sender); //Memanggil kembai form Show
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=1;
button1.Caption:='Start';
button2.Caption:='Reset';
end;

end.

Sekian Tutorial Cara Membuat Stopwatch, apabila kalian kebingungan dalam membuat Program Stopwatch tersebut kalian bisa berkomentar dibawah artikel ini, atau juga simak tutorial, tutorial yang berkaitan dengan Delphi, Oke Selamat Belajar.

Bagikan Artikel ini