Cara Membuat Obyek Jatuh di Delphi - Game Sederhana
"Silahkan kunjungi postingan Cara Membuat Obyek Jatuh di Delphi - Game Sederhana untuk membaca artikel selengkapnya dengan klik link di atas."
1 min read
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 |
Nah bagaimana membuat obyek jatuh di Delphi? Berikut ini tutorial cara membuat obyek jatuh di Delphi lengkap dengan code source.
- Buka aplikasi Delphi 7 atau versi berapapun yang kamu punya.
- Klik File > New > Windows VCL Application - Delphi
- Pada form, masukkan komponen-komponen berikut ini.
- TPanel
- TImage
- TTimer
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;
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!