src='https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js'/> Cara Membuat Obyek Jatuh di Delphi - Game Sederhana - teachertekno.com

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 pada Delphi - Game Sederhana
Cara Membuat Obyek Jatuh pada 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 dalam Timer1

Copy & paste kode berikut adalah.

Image1.Top:=Image1.Top tiga;

if Image1.Top >= Panel1.Height then

begin

Image1.Top := 0;

Image1.Left:= random(Panel1.Width);

end;

Untuk menambah obyek yg jatuh, copy & paste kode tadi karena kodenya permanen 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 tiga;.

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

Lihat jugaCara Membuat Hitung Mundur Delphi

Demikianlah cara membuat obyek jatuh pada Delphi. Semoga berguna!

0 Response to "Cara Membuat Obyek Jatuh di Delphi - Game Sederhana"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel