Cara Membuat Game Delphi Tangkap Telur
ANAKTEKNO.COM, Cara Membuat Game Delphi Tangkap Telur - 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
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.
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.
Demikianlah cara membuat game Delphi tangkap telur. Sebenarnya tutorial Delphi ini merupakan bagian dari game tangkap telur namun programnya sudah hilang karena hardisk laptop bad sector. Semoga bermanfaat!
Anak Tekno Tertarik dengan dunia Blog dan SEO sejak 2017 dan terus belajar sampai detik ini..
