Ari Fadli - Membuat Game Tangkap Telur Menggunakan Delphi

Itshareunimal.com

Copyright © 2010 2010

Membuat Game Tangkap Telur menggunakan Delphi 7 Ari Fadli [email protected]

Lisensi Dokumen: Copyright © 2010 Itshareunimal.Com Seluruh dokumen di Itshareunimal.Com dapat digunakan, dimodifikasi dan disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan tidak menghapus atau merubah atribut penulis dan pernyataan . Itshareunimal.com adalah situs milik Kelompok Belajar informatika Unimal Provinsi Aceh

Membuat Game Tangkap Telur menggunakan Delphi 7 Ari Fadli


Itshareunimal.com

Kata Pengantar

Puji syukur kepada Allah SWT, atas nikmat yang tlah Diberikan. Shalawat dan salam kepada pengubah wajah dunia, Nabi Muhammad SAW beserta keluarga dan sahabatNya. Terimakasih kepada keluargaku, teman-teman, serta kepada semua pihak yang telah ikut membantu menyelesaikan tutorial ini. Sangat banyak kekurangan dalam tutorial ini, oleh karena itu kritik dan saran sangat diharapkan. “Ada tiga amalan yang pahalanya akan terus mengalir, meskipun ia telah meninggal, sedekah jariah, ilmu yang bermanfaat, dan anak yang shaleh”.

Berdasarkan hadits itu, harapan saya semoga tutorial ini termasuk kedalam kategori ilmu yang bermanfaat.

Lhokseumawe, 09 Juni 2010

Ari Fadli



Itshareunimal.com

Game animasi sederhana tidak selamanya dibuat dengan software Flash, tapi Delphi juga bisa menghasilkan game serupa, Game Tangkap Telur….

Let check this Out! Pertama2 yang kita butuhkan adalah gambar bereksistensi BMP sebagai bahan untuk membuat game ini, gambar itu bisa dibuat melalui „Paint‟, photoshop,

coreldraw, atau semacamnya. Bila anda tidak mau membuatnya sendiri dan maunya yang instan-instan saja, silahkan copy gambar dibawah ini, jangan lupa untuk menyimpannya dalam format BMP.

Gambar 1

Gambar 2

Gambar di atas disimpan dalam sebuah folder. Beri saja nama folder tersebut „image‟. Berikan nama file gambar tersebut, „telur‟ dan „kotak‟ .

Sesudah mempunyai gambar, langkah selanjutnya jalankan program Delphi 7, kemudian desain form seperti di bawah ini :



Itshareunimal.com

Image1 Timer1

Panel1

Form1 Image2

Timer2 Label4 Button1 Label5 Label1 Label2 Label3

Atur properties dan value dari objek diatas seperti ini : Objek Form1

Button1

Panel

Properties Value Borderstyle BsSingle Caption Tangkap Telur Color clMaroon Height 525 Position poDesktopCenter Width 300 Caption Main!! Font calibri height 50 Name btnMain Width 90 bevelInner byLowered

Event

onClick

onMouseMove


Itshareunimal.com


bevelOuter caption

Image1

Image2

Label1

Label2

Label3

Label4

byLowered Klik Tombol Main, Untuk Memulai Permainan color clWhite Enabled False Heigth 425 width 272 Heigth 21 Name Telur picture Tbitmap >> load >>file bergambar telur stretch true transparent true visible False width 14 Enabled False Heigth 33 Name Kotak picture Tbitmap >> load >> file bergambar kotak Stretch yes transparent true visible False Width 44 Caption Waktu Font Color clWhite Name lblWaktu transparent true Caption Skor Font Color clWhite Name lblSkor transparent true Caption 60 Font Color clWhite Name Lbl60 (//lbl 60) transparent true Tag 60 Caption detik Font



Itshareunimal.com

Label5

Timer1

Timer2

Color Name transparent Caption Font Color Name transparent Name Enabled Interval Name Enabled

clWhite Lbldetik true 0 (nol) clWhite lbl0 (//lbl nol) true telurTimer False 50 waktuTimer False

onTimer onTimer

Catatan : komponen image, ada di tab additional, sedangkan timer terletak di tab system. Selebihnya ada di tab standard

Memasuki Langkah utama, utama, yaitu langkah copy copy paste, hehe... Saatnya memberi kode perintah : 1. Pertama-tama, kita implementation

beri

variable

globalnya,

tepatnya

di

atas

tulisan

var Form1: TForm1; Overlay : TRect; // << ini yang ditambahkan

2. Seleksi Form1, kemudian pada object inspector pilih tab event kemudian pada onCreate double klik di area putih disebelahnya. Tambahkan coding sehingga menjadi seperti dibawah ini : procedure TForm1.FormCreate(Sender: TObject); begin kotak.Top := 392; telur.Top := 0; end;


Itshareunimal.com


3. Pada timer1 yaitu „telurtimer‟, klik dua kali maka secara otomatis event untuk telurtimer adalah event „onTimer‟. Tambahkan coding sehingga menjadi seperti dibawah ini :

procedure procedure TForm1.telurTimerTimer(Send TForm1.telurTimerTimer(Sender: er: TObject); begin telur.Top := telur.Top + 15; if telur.top > panel1.height then begin telur.Top := 0; telur.Left := random(panel1.Width); random(panel1.Width); end; if intersectRect (Overlay , telur.BoundsRect , kotak.BoundsRect ) then begin telur.visible := false; telur.Top := 0; telur.Left := random(panel1.Width); random(panel1.Width); lbl0.tag := lbl0.tag + 1; lbl0.caption := inttostr(lbl0.tag); inttostr(lbl0.tag); end; end;

4. Pada timer2 yaitu „waktuTimer‟, klik dua kali maka secara otomatis event untuk waktuTimer adalah event „onTimer‟. Tambahkan coding sehingga menjadi seperti dibawah ini : procedure procedure TForm1.waktuTimerTimer(Sen TForm1.waktuTimerTimer(Sender: der: TObject); begin lbl60.Tag := lbl60.Tag - 1; lbl60.Caption := inttostr(lbl60.Tag); inttostr(lbl60.Tag); if lbl60.Tag = 0 then begin btnmain.Enabled := true; waktutimer.Enabled waktutimer.Enabled := false; panel1.Enabled := false; telurtimer.Enabled := false;


Itshareunimal.com


kotak.Visible := false; telur.Visible := false; panel1.Caption := 'Klik Main Lagi, jika ingin main lagi'; end; end; 5. Seleksi panel1 pada objek tree view, kemudian pada objek inspector pilih pada tab event, kemudian double klik pada area putih di baris onMouseMove. Otomatis kita akan masuk pada kode editor dan event untuk panel adalah panelMouseMove. Tambahkan coding sehingga menjadi seperti dibawah ini : procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; TShiftState; X, Y: Integer); begin kotak.Left := X - kotak.Width div 2; panel1.Cursor := crNone; end; 6. Pada button1 yaitu „btnMain‟, klik dua kali maka secara otomatis event untuk button1 adalah event „onClick‟. Tambahkan coding sehingga menjadi seperti dibawah ini : procedure procedure TForm1.btnMainClick(Sender TForm1.btnMainClick(Sender:: TObject); begin btnMain.Font.Size btnMain.Font.Size := 12; btnMain.caption := 'MAIN LAGI?'; btnMain.Enabled := false; panel1.Enabled := true; telurtimer.Enabled telurtimer.Enabled := true; waktutimer.Enabled waktutimer.Enabled := true; kotak.Visible := true; telur.Visible := true; panel1.Caption := ''; telur.Top := 0; lbl60.Caption := '60'; lbl60.Tag := 60; lbl0.caption := '0'; lbl0.Tag := 0;



Itshareunimal.com

end;

Pengkodean sudah selesai, jalankan dengan menekan tombol F9.

Tampilan Awal ketika aplikasi dijalankan

Permainan sedang berlangsung



Itshareunimal.com

Permainan sudah selesai, tekan main lagi jika mau main lagi

Bila anda mengikuti keseluruhan tutorial ini, ada pertanyaan buat anda, „apakah anda bisa menangkap telur lebih dari 38 telur??‟ hehe…. Demikian tutorial membuat game Tangkap Telur menggunakan Delphi 7 menurut pengetahuan saya, memang game yang saya buat ini belum kompleks, anda bisa membuatnya menjadi lebih kompleks dengan memperbanyak jumlah telur yang turun dari atas, menambah musuh misalnya yang jatuh bukan telur, tapi kotoran ayam, hehehe, skornya pun dikurangi apabila kita salah menangkapnya. Atau bisa juga membuat highscore …. Silahkan bereksplorasi … mungkin pada kesempatan lain saya akan membuat tutorialnya ….

Ari Fadli. berawal dari kegemaran mencoret-coret dibuku, meja, dinding,

juga tanah, pernah terpikir waktu kecil tentang bagaimana pembuatan sebuah animasi. Hingga pada akhirnya aku mengenal komputer dan mulai belajar animasi lewat fitur animasi dengan format GIF pada software photoshop. Hingga kini aku masih belajar tentang semua yang berbau animasi.


Ari Fadli - Membuat Game Tangkap Telur Menggunakan Delphi

Recommend Documents