Egg Catcher Game
Game adalah
suatu hal yang dilakukan dengan cara bermain dengan menggunakan media
elektronik baik secara online maupun offline, yang merupakan sebuah hiburan
dengan menggunakan multimedia membuat pengguna merasa menyenangkan kita
memainkannya.
Ada banyak
macam game yang bisa dimainkan dan berbagai genre yang ditawarkan, mulai dari
racing, shooting, strategy hingga adventure tergantung keinginan user.
Dalam game
sendiri terdapat berbagai tingkat kesulitan yang membuat user berpacu untuk
memainkannya lagi dan lagi. Mulai dari level easy, normal, hingga hard.
Berikut
dibawah adalah game “Egg Catcher Game” dengan genre Arcade, yaitu mengejar
sebanyak banyaknya mendapatkan score tertinggi. Game ini bercerita tentang
sebuah telur yang dijatuhkan dan akan di tangkap oleh sebuah nampan. Pembuatan game menggunakan Visual Basic. Berikut
adalah kodingkannya:
Codingan Button Main :
|
procedure
TForm1.btnMainClick(Sender: TObject);
begin
btnMain.Font.Size := 12;
btnMain.Caption := 'MAIN LAGI?';
btnMain.Enabled := false;
panel1.Enabled := true;
telurTime.Enabled := true;
waktuTime.Enabled := true;
teflon.Visible := true;
telur.Visible := true;
panel1.Caption := '';
telur.Top := 0;
lbl60.Caption := '60';
lbl60.Tag := 60;
lbl0.Caption := '0';
lbl0.Tag := 0;
end;
|
- btnMain menggunakan size 12, dengan captionnya.
- Teflon dan telur diberikan visiblenya true untuk menampilkan di layar.
- Lbl60 untuk menampikan waktu pada game.
Codingan Mouse :
|
procedure
TForm1.useMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
teflon.Left := X - teflon.Width div 5;
panel1.Cursor := crHelp;
end;
end.
|
Kodingan ini untuk menentukan pergerakan
teflonnya. Jika Teflon ke kiri maka hasilnya berupa X dikurangi hasil pembagian
lebar Teflon dengan 5
Berikut hasil outputnya :
Tampilan awal saat ingin memulai game.
Ketika sudah mulai, skor akan bertambah setelah menangkap
Akan terus bertambah pada skornya.
Jika sudah selesa, ada himbauan untuk memainkan lagi game tersebut.
Komentar
Posting Komentar