Skip to main content

Cara Membuat Obyek Jatuh di Delphi - Game Sederhana

Cara Membuat Obyek Jatuh di Delphi - Terinspirasi dari game tangkap telur, hari ini saya akan berbagi tutorial cara membuat obyek jatuh di Delphi. Obyek jatuh di sini bisa berupa Image atau Shape.

Cara Membuat Obyek Jatuh di Delphi - Game Sederhana
Cara Membuat Obyek Jatuh di Delphi - Game Sederhana

Nah bagaimana membuat obyek jatuh di Delphi? Berikut ini tutorial cara membuat obyek jatuh di Delphi lengkap dengan code source.
  1. Buka aplikasi Delphi 7 atau versi berapapun yang kamu punya.
  2. Klik File > New > Windows VCL Application - Delphi
  3. Pada form, masukkan komponen-komponen berikut ini.
  • TPanel
  • TImage
  • TTimer
Pertama, masukkan TPanel dengan cara tampilkan Palette > Standard > TPanel

Di atas TPanel, masukkan TImage dengan cara tampilkan Palette > Additional > TImage

Masukkan juga TTimer dengan cara tampilkan Palette > System > TTimer.

Klik 2 kali pada Timer1

Copy dan paste kode berikut ini.

Image1.Top:=Image1.Top + 3;

if Image1.Top >= Panel1.Height then
begin
Image1.Top := 0;
Image1.Left:= random(Panel1.Width);
end;

Untuk menambah obyek yang jatuh, copy dan paste kode tersebut karena kodenya tetap sama, tinggal ubah Image1 jadi Image2.

Jadi, kode di atas adalah kode untuk mengatur obyek jatuh di Delphi. Karena kita pakai Top => maka obyek akan jatuh dari atas ke bawah. Obyek bisa berupa TImage atau TShape.

Jadi, Image1 akan jatuh dari atas secara random dengan posisi masih di dalam Panel1. Kita bisa atur kecepatannya dengan mengubah angka 3 pada kode Image1.Top:=Image1.Top + 3;.

Konsep obyek jatuh ini bisa digunakan dalam game sederhana. Misalnya obyek yang didapat akan ditangkap dengan kursor (Image/Shape) dan skor bertambah.

Lihat juga Cara Membuat Hitung Mundur Delphi

Demikianlah cara membuat obyek jatuh di Delphi. Semoga bermanfaat!
Contact Us: Komentar, saran dan masukan melalui WA 085396717324 dan Gmail Lara4store@gmail.com.