Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap
ANAKTEKNO.COM - 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 |
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:
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.
Cari kode berikut ini:
Form2: TForm2;
Copy dan paste kode berikut ini tepat di bawah kode di atas.
Cari kode berikut ini:
{$R *.dfm}
Copy dan paste kode berikut ini tepat di bawah kode di atas.
begin
Label1.Caption := '10';
end;
5. Kembali ke mode Design, kemudian klik 2 kali pada Timer1.
Copy dan paste kode utama berikut ini:
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.
Demikianlah cara membuat hitung mundur Delphi (countdown timer) lengkap. Semoga bermanfaat!
Anak Tekno Tertarik dengan dunia Blog dan SEO sejak 2017 dan terus belajar sampai detik ini..
