Kali ini Admin akan berbagi sebuah kode untuk membuat sebuah Game sederhana yaitu Game Tangkap Objek Jatuh. Dalam postingan ini Saya membuat objeknya dengan menggunakan PictureBox, Anda bisa mengisinya dengan gambar, misalnya gambar keranjang untuk bagian bawah dan gambar buah untuk objek jatuh.
Berikut adalah ilustrasi game yang sudah jadi :
 |
| Output |
Berkut dibawah ini adalah komponen-komponen yang dibutuhkan dalam pembuatan Game ini :
| Komponen | Nama | Fungsi |
|---|---|---|
| PictureBox | picObjek | Objek yang jatuh |
| PictureBox | picPlayer | "Keranjang" di bawah |
| Label | lblScore | Menampilkan skor |
| Timer | Timer1 | Untuk membuat objek jatuh |
Desainlah Form seperti gambar dibawah ini :
 |
| Desain Form |
Copykan kode dibawah ini di form kosong :
Dim speedY As Integer
Dim score As Integer
Private Sub Form_Load()
' Atur posisi awal objek
Randomize
speedY = 100
score = 0
lblScore.Caption = "0"
Call ResetObjek
Timer1.Enabled = True
KeyPreview = True
Timer1.Interval = 100
End Sub
Private Sub ResetObjek()
picObjek.Top = 0
picObjek.Left = Int(Rnd * (Me.ScaleWidth - picObjek.Width))
End Sub
Private Sub Timer1_Timer()
picObjek.Top = picObjek.Top + speedY
' Cek tabrakan dengan player
If picObjek.Top + picObjek.Height >= picPlayer.Top Then
If picObjek.Left + picObjek.Width >= picPlayer.Left And _
picObjek.Left <= picPlayer.Left + picPlayer.Width Then
score = score + 1
lblScore.Caption = score
Form1.Caption = "Skor Anda : " & score
Call ResetObjek
End If
End If
' Jika objek lewat bawah, ulangi lagi
If picObjek.Top > Me.ScaleHeight Then
Call ResetObjek
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Const gerak As Integer = 300
Select Case KeyCode
Case vbKeyLeft
If picPlayer.Left > 0 Then
picPlayer.Left = picPlayer.Left - gerak
End If
Case vbKeyRight
If picPlayer.Left + picPlayer.Width < Me.ScaleWidth Then
picPlayer.Left = picPlayer.Left + gerak
End If
End Select
End Sub
No comments:
Post a Comment