Home  ›  Delphi  ›  Programmer

Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap

"Silahkan kunjungi postingan Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap untuk membaca artikel selengkapnya dengan klik link di atas."

2 min read
Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap dengan Source Code. Jika berkaitan dengan program timer, tentu sangat banyak sekali kegunaannya. Misalnya membuat stopwatch, jam, termasuk hitungan mundur.

Hitungan mundur biasanya ditemukan dalam game. Istilahnya sih countdown atau waktu berjalan mundur. Di Delphi, membuat hitung mundur tidaklah sulit karena kita memiliki komponen-komponen yang mudah digunakan, yaitu timer.

Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap


Berikut ini tutorial cara membuat timer mundur Delphi lengkap dengan penjelasan dan source codenya.

1. Buka software Delphi 7 atau versi yang kamu gunakan. Saya juga pakai Delphi 10.3.2

2. Buat project baru dengan cara Klik File > New > Windows VCL Application - Delphi

3. Pada form yang tampil, masukkan komponen-komponen yang dibutuhkan.

Komponen yang dibutuhkan:
  • TPanel
  • TLabel
  • TTimer
Desain form sesuai tampilan berikut ini:

Cara membuat hitung mundur Delphi
Cara Membuat Hitung Mundur Delphi

Palette > Standard > TLabel

Setting Caption Label1 dengan waktu hitung mundur. Misalnya 10 detik.

Palette > Standard > TPanel

Palette > System > TTimer

Setting Properties Timer1 di bagian Interval > 1000

4. Setelah itu, kita masuk ke source code program.

Cari kode berikut ini:

type
TForm2 = class(TForm)
Label1: TLabel;
Panel1: TPanel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);

Copy dan paste kode berikut ini tepat di bawah kode di atas.

procedure FormCreate(Sender: TObject);

Cari kode berikut ini:

var
Form2: TForm2;

Copy dan paste kode berikut ini tepat di bawah kode di atas.

Overlay: Trect;

Cari kode berikut ini:

implementation

{$R *.dfm}

Copy dan paste kode berikut ini tepat di bawah kode di atas.

procedure TForm2.FormCreate(Sender: TObject);
begin
Label1.Caption := '10';
end;

5. Kembali ke mode Design, kemudian klik 2 kali pada Timer1.

Copy dan paste kode utama berikut ini:

// Timer 1 untuk hitung mundur

procedure TForm2.Timer1Timer(Sender: TObject);
var hitungmundur:integer;
begin
hitungmundur:= StrToInt(Label1.Caption);
hitungmundur:= hitungmundur-1;
Label1.Caption := IntToStr(hitungmundur);
if Label1.Caption = '0' then
begin
Timer1.Enabled := false;
Panel1.Enabled := false;
Panel1.Caption := 'GAME OVER! CLICK PLAY TO TRY AGAIN!';

// Dialog Pop Up

Application.MessageBox('GAME OVER!!!','Information',MB_OK+MB_ICONINFORMATION);
end;
end;

Pada Label1 bagian Properties, ubah Caption sesuai dengan waktu hitung mundur. Misalnya 10 detik, 30 detik atau 60 detik, tergantung kebutuhanmu.

Bagaimana penjelasan kode program di atas?

Pertama-tama, deklarasikan variabel integer dulu.

var hitungmundur:integer;

StrToInt digunakan untuk konversi tipe data string ke integer.

hitungmundur:= hitungmundur-1;

hitungmundur di sini adalah caption pada Label1. Label1 dikurang 1 setiap 1 detik.

IntToStr digunakan untuk konversi tipe data integer ke string.

if Label1.Caption = '0' atau jika Label1.Caption 0 maka eksekusi kode dalam blok berikutnya:

Timer1.Enabled := false;
Panel1.Enabled := false;
Panel1.Caption := 'GAME OVER! CLICK PLAY TO TRY AGAIN!';
Application.MessageBox('GAME OVER!!!','Information',MB_OK+MB_ICONINFORMATION);
end;

Adapun kode Application.MessageBox('GAME OVER!!!','Information',MB_OK+MB_ICONINFORMATION);
end; adalah kode untuk menampilkan dialog pop up dengan tombol OK.

Lihat juga Contoh Program Database Delphi

Demikianlah cara membuat hitung mundur Delphi (countdown timer) lengkap. Semoga bermanfaat!
Posting Komentar