Tutorial Membuat Aplikasi StopWatch Pada Delphi 7

Banne Media

Banne Media - Hai selamat datang di blog saya. Pada kesempatan kali ini saya akan mencoba mengajarkan kalian semua bagaimana cara membuat aplikasi StopWatch pada Borland Delphi 7. Oke langsung saja silahkan kalian simak langkah - langkahnya dibawah ini:

1. Langkah yang pertama adalah buka delphi 7 kemudian buat project baru dengan cara klik File > New > Application 

2. Selanjutnya silahkan kalian desain seperti gambar dibawah ini:

Banne Media

3. Untuk mendesain program aplikasi seperti gambar diatas plih/klik komponen - komponen yang terdapat pada tabel dibawah ini dan tempatkan pada form.

Banne Media

4. Langkah selanjutnya adalah memasukan koding. Ketikkan teks berikut pada variabel global

awal,akhir :TTime;

Banne Media

5. Ketikkah baris perintah dibawah ini untuk BitBtn1 (Start).

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if BitBtn1.Caption='Start' then
  begin
    awal:=Time;
    Memo1.Text:=TimeToStr(Time);
    BitBtn1.Caption:='Stop';
  end
  else if BitBtn1.Caption:='Stop' then
    BitBtn1.Caption:='Selesai'
  else Application.Terminate;
end;

6. Ketiklah baris perintah untuk FormShow.

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.Text:='00:00:00';
  Memo2.Text:='00:00:00';
  Memo3.Text:='00:00';
end;

7. Ketiklah baris perintah untuk Timer1.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  slama:String;
  lama:Double;
begin
  if BitBtn1.Caption='Stop' then
  begin
    akhir:=time;
    Memo2.Text:=TimeToStr(akhir);
    lama:=(akhir-awal)*1000;
    Str(lama:12:2,slama);
    Memo3.Text:=slama;
  end;
end;

8. Ketiklah baris perintah untuk FormCreate.

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval:=1000;
  BitBtn1.Caption:='Start';
  BitBtn2.Caption:='Reset';
end;

9. Ketiklah baris peritnah untuk BitBtn2 (Reset).

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
FormCreate(Sender);
FormShow(Sender);
end;

10. Jika semua langkah - langkah diatas telah kalian lakukan dengan benar silahkan save all terlebih dahulu.

11. Jika kalian sudah save, silahkan running program yang telah kalian buat. Jika langkah - langkah diatas kalian telah ikuti dengan benar, maka pada saat dirunning hasilnya akan seperti ini

Banne Media

12. Silahkan klik tombol Start untuk memulai  menjalakan stopwatch.

Demikianlah tutorial bagaimana membuat stopwatch pada Borland Delphi7. Jika ada yang kamu kurang pahami, silahkan sampaikan pada kolom komentar. Terima kasih.