src='https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js'/> Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap - teachertekno.com

Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap

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 umumnya ditemukan dalam game. Istilahnya sih countdown atau saat berjalan mundur. Di Delphi, membuat hitung mundur tidaklah sulit lantaran kita mempunyai komponen-komponen yg mudah dipakai, yaitu timer.

Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap

Berikut ini tutorial cara membuat timer mundur Delphi lengkap menggunakan penerangan & source codenya.

1. Buka perangkat lunak Delphi 7 atau versi yg engkau pakai. Saya juga pakai Delphi 10.3.Dua

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

3. Pada form yg tampil, tambahkan komponen-komponen yg dibutuhkan.

Komponen yg diperlukan:

  • 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 menggunakan waktu hitung mundur. Misalnya 10 dtk.

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 adalah:

type

TForm2 = class(TForm)

Label1: TLabel;

Panel1: TPanel;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

Copy & paste kode berikut ini sempurna pada bawah kode pada atas.

Procedure FormCreate(Sender: TObject);

Cari kode berikut adalah:

var

Form2: TForm2;

Copy & paste kode berikut ini sempurna pada bawah kode pada atas.

Overlay: Trect;

Cari kode berikut adalah:

implementation

$R *.Dfm

Copy & paste kode berikut ini sempurna pada bawah kode pada atas.

Procedure TForm2.FormCreate(Sender: TObject);

begin

Label1.Caption := '10';

end;

lima. Kembali ke mode Design, lalu klik 2 kali dalam Timer1.

Copy dan paste kode utama ini dia:

// Timer 1 buat 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 sinkron menggunakan waktu hitung mundur. Misalnya 10 dtk, 30 dtk atau 60 detik, tergantung kebutuhanmu.

Bagaimana penerangan kode acara pada atas?

Pertama-tama, deklarasikan variabel integer dulu.

Var hitungmundur:integer;

StrToInt digunakan buat konversi tipe data string ke integer.

Hitungmundur:= hitungmundur-1;

hitungmundur pada sini merupakan caption pada Label1. Label1 dikurang 1 setiap 1 dtk.

IntToStr dipakai buat konversi tipe data integer ke string.

If Label1.Caption = '0' atau apabila Label1.Caption 0 maka hukuman 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; merupakan kode buat menampilkan dialog pop up menggunakan tombol OK.

Lihat jua Contoh Program Database Delphi

Demikianlah cara menciptakan hitung mundur Delphi (countdown timer) lengkap. Semoga berguna!

0 Response to "Cara Membuat Hitung Mundur Delphi (Countdown Timer) Lengkap"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel