Skip to content Skip to sidebar Skip to footer

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 : 


Oke Berikut Tampilan yang sudah saya buat untuk Tampilan Stopwatch
Program Stopwatch Keren dengan Delphi 7 - Dunia Programming
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.

2 comments for "Cara Membuat STOPWATCH Dengan Delphi7"

  1. aku kurang ngerti, kalo diajarin langsung pasti ngerti :D

    ReplyDelete
    Replies
    1. Oke mbak, bisa kirimkan alamat email, fb atau juga bisa datang kembali biar nanti bisa dipahami dengan baik :)

      Delete

Berlangganan via Email