pada tutorial kali ini, admin akan berbagi bagaimana cara membuat game kloningan FlappyBird yang sedang booming.
siapa yang tidak tahu game buatan nguyen.
yang anda butuhkan adalah :
1. anda harus memiliki visual basic 6.0 untuk membuatnya.
yang belum punya bisa menuju postingan saya sebelumnya disini
2. karakter burungnya , tangki , dan backgroundnya.
bisa diunduh lengkap disini
3. Komponen Transparansi Gambar, klik disini
Ok, Pertama Silahkan Buka Aplikasi VB6.0nya
dan buatlah design seperti dibawah ini
keterangan :
2 Buah Timer dengan nama
tmrmove
timer1
importlah gambar tanki
tambahkan 1 label sebagai score
dan 1 karakter serta juga 3 buah command button.
dan masuklah ke bagian kode, pastekan kode dibawah ini
Private Sub Command1_Click()
If Command1.Caption = "Flap" Then
If Not started Then
started = True
Timer1.Enabled = True
tmrMove.Enabled = True
End If
imgBird.Picture = LoadPicture(App.Path & "\img\bird-up.gif")
imgBird.Top = imgBird.Top - 600
Else
NewGame
End If
End Sub
Private Sub Command2_Click()
started = False
tmrMove.Enabled = False
End Sub
Private Sub Command3_Click()
MsgBox "Welcome Semua, Saya Raka Adi N. Admin Blog Raka Adi Nugroho.blogspot.com | Flappybird gila", vbOKOnly, "@RakaAdiN"
End Sub
Private Sub Form_Load()
ucPicBuddy1.AttachChildControl Image1
ucPicBuddy2.AttachChildControl imgBird
pipeHDistance = 2333
pipeVDistance = 1750
allHeight = 4200
speed = 100
Me.Width = (2333 * 3) - Image1.Width
NewGame
End Sub
Private Sub Timer1_Timer()
If imgBird.Top >= 3600 Then
Gameovered
Else
If started Then
imgBird.Picture = LoadPicture(App.Path & "\img\bird-down.gif")
imgBird.Top = imgBird.Top + 300
End If
End If
End Sub
Private Sub tmrMove_Timer()
If CheckIfGameOver Then
Exit Sub
Else
Image1.Top = Image2.Top + Image2.Height + pipeVDistance
Image4.Top = Image3.Top + Image3.Height + pipeVDistance
Image1.Height = allHeight - (Image2.Top + Image2.Height + pipeVDistance)
Image4.Height = allHeight - (Image3.Top + Image3.Height + pipeVDistance)
Image1.Left = Image1.Left - speed
Image2.Left = Image1.Left
Image3.Left = Image3.Left - speed
Image4.Left = Image3.Left
Image5.Left = Image5.Left - speed
Image6.Left = Image6.Left - speed
If Image1.Left <= 1580 And scored1 = False Then
scored1 = True
scored4 = False
Label1.Caption = Val(Label1.Caption) + 1
PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
End If
If Image4.Left <= 1580 And scored4 = False Then
scored4 = True
scored1 = False
Label1.Caption = Val(Label1.Caption) + 1
PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
End If
Randomize
Dim value As Integer
value = CInt(Int((1000 * Rnd()) + 615))
If Image1.Left <= (Image1.Width - (Image1.Width * 2)) Then
Image2.Height = value
Image1.Left = Me.Width
End If
If Image3.Left <= (Image3.Width - (Image3.Width * 2)) Then
Image3.Height = value
Image3.Left = Me.Width
End If
If Image5.Left <= (Image5.Width - (Image5.Width * 2)) Then
Image5.Left = Image6.Left + (Image6.Width - 180)
End If
If Image6.Left <= (Image6.Width - (Image6.Width * 2)) Then
Image6.Left = Image5.Left + (Image5.Width - 180)
End If
End If
End Sub
Demikian Tutorial Part 1nya,
jika ada yang tidak dimengerti silahkan komentar
siapa yang tidak tahu game buatan nguyen.
yang anda butuhkan adalah :
1. anda harus memiliki visual basic 6.0 untuk membuatnya.
yang belum punya bisa menuju postingan saya sebelumnya disini
2. karakter burungnya , tangki , dan backgroundnya.
bisa diunduh lengkap disini
3. Komponen Transparansi Gambar, klik disini
Ok, Pertama Silahkan Buka Aplikasi VB6.0nya
dan buatlah design seperti dibawah ini
keterangan :
2 Buah Timer dengan nama
tmrmove
timer1
importlah gambar tanki
tambahkan 1 label sebagai score
dan 1 karakter serta juga 3 buah command button.
dan masuklah ke bagian kode, pastekan kode dibawah ini
Private Sub Command1_Click()
If Command1.Caption = "Flap" Then
If Not started Then
started = True
Timer1.Enabled = True
tmrMove.Enabled = True
End If
imgBird.Picture = LoadPicture(App.Path & "\img\bird-up.gif")
imgBird.Top = imgBird.Top - 600
Else
NewGame
End If
End Sub
Private Sub Command2_Click()
started = False
tmrMove.Enabled = False
End Sub
Private Sub Command3_Click()
MsgBox "Welcome Semua, Saya Raka Adi N. Admin Blog Raka Adi Nugroho.blogspot.com | Flappybird gila", vbOKOnly, "@RakaAdiN"
End Sub
Private Sub Form_Load()
ucPicBuddy1.AttachChildControl Image1
ucPicBuddy2.AttachChildControl imgBird
pipeHDistance = 2333
pipeVDistance = 1750
allHeight = 4200
speed = 100
Me.Width = (2333 * 3) - Image1.Width
NewGame
End Sub
Private Sub Timer1_Timer()
If imgBird.Top >= 3600 Then
Gameovered
Else
If started Then
imgBird.Picture = LoadPicture(App.Path & "\img\bird-down.gif")
imgBird.Top = imgBird.Top + 300
End If
End If
End Sub
Private Sub tmrMove_Timer()
If CheckIfGameOver Then
Exit Sub
Else
Image1.Top = Image2.Top + Image2.Height + pipeVDistance
Image4.Top = Image3.Top + Image3.Height + pipeVDistance
Image1.Height = allHeight - (Image2.Top + Image2.Height + pipeVDistance)
Image4.Height = allHeight - (Image3.Top + Image3.Height + pipeVDistance)
Image1.Left = Image1.Left - speed
Image2.Left = Image1.Left
Image3.Left = Image3.Left - speed
Image4.Left = Image3.Left
Image5.Left = Image5.Left - speed
Image6.Left = Image6.Left - speed
If Image1.Left <= 1580 And scored1 = False Then
scored1 = True
scored4 = False
Label1.Caption = Val(Label1.Caption) + 1
PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
End If
If Image4.Left <= 1580 And scored4 = False Then
scored4 = True
scored1 = False
Label1.Caption = Val(Label1.Caption) + 1
PlaySound App.Path & "\img\scored.wav", 0, SND_FILENAME Or SND_ASYNC
End If
Randomize
Dim value As Integer
value = CInt(Int((1000 * Rnd()) + 615))
If Image1.Left <= (Image1.Width - (Image1.Width * 2)) Then
Image2.Height = value
Image1.Left = Me.Width
End If
If Image3.Left <= (Image3.Width - (Image3.Width * 2)) Then
Image3.Height = value
Image3.Left = Me.Width
End If
If Image5.Left <= (Image5.Width - (Image5.Width * 2)) Then
Image5.Left = Image6.Left + (Image6.Width - 180)
End If
If Image6.Left <= (Image6.Width - (Image6.Width * 2)) Then
Image6.Left = Image5.Left + (Image5.Width - 180)
End If
End If
End Sub
Demikian Tutorial Part 1nya,
jika ada yang tidak dimengerti silahkan komentar
vb 6 masih ada ya gan?
ReplyDeletetools jadul.. hihihi :q
besok ane uploadin yang untuk IPHONE & ANDROID
Deletecara import gambar gmn gan? :)
ReplyDeleteimport ke apa pak ?
Deleteimportlah gambar tanki
Deleteke VB gan
Deleteimage gan,(picture). yang di toolbox kan ada itu toolnya
Deleteselamat mencoba kang :>)
Private Sub Form_Load()
ReplyDeleteucPicBuddy1.AttachChildControl Image1
ucPicBuddy2.AttachChildControl imgBird
pipeHDistance = 2333
pipeVDistance = 1750
allHeight = 4200
speed = 100
Me.Width = (2333 * 3) - Image1.Width
NewGame
End Sub
gan masih error nih diform load ini, terutama di kata "NewGame" nya, nggk ngerti harus diganti apa...
itu procedure fungsi om.
Deletecoba cek yang tutorial part II nya.
lha disitu kodingan fungsi prosedur nya
yang mana ya gan, hehe
ReplyDelete@-) gan minta pencerahan,kalo image1 yg mana image2 yng mana image3 yang mana image4 yang mana image5yang mana, image6 yang mana gan ,, sya bingung di image nya,,,?
ReplyDeletePrivate Sub Form_Load()
ReplyDeleteucPicBuddy1.AttachChildControl Image1
ucPicBuddy2.AttachChildControl imgBird
pipeHDistance = 2333
pipeVDistance = 1750
allHeight = 4200
speed = 100
Me.Width = (2333 * 3) - Image1.Width
NewGame
End Sub
gan masih error nih diform load ini, terutama di kata "NewGame" nya, nggk ngerti harus diganti apa...
tolong di batntu yah...............?
gua juga eror min,,,tolong sarannya
Deleteaku juga eror disitunya tolong sarannya ya
DeleteGAN, RUMUS UNTUK MEMBUAT SCRIPTNYA GIMANA YAH....
ReplyDeleteMOHON PENCERAHANNYA....
Video Tutorailnya gak ada kah??
ReplyDeletebelum ada gan
Deleteitu yang persis disebalah tangki paling kanan
ReplyDeletepic Buddy apaan ??
ane mau nyoba gan
ReplyDeletesilahkan, (y).
Deletework
imgae1 yang mana, image2 yang mana image3 yang mana imgbird yang mana?
ReplyDeletecoba download assetnya dulu gan
Deletegan bisa pake vb2010 kh...
ReplyDeleteberbeda sedikit mas, namun konteksnya masih sama
Deletepropertie nya mana gan?
ReplyDeleteTransparasi itu buat apa ya gan?
ReplyDeleteTerus picture buddy itu pakek label atau pakek text box??
itu pakai label
DeleteGAN. Angka "0" nya itu dari mana gan.?
ReplyDeleteucPicBuddy1.AttachChildControl Image1
ReplyDeleteucPicBuddy2.AttachChildControl imgBird
itu nama apa gan ??
Pic nya diganti jd nama itu ? ato gmna ?
Saya juga slah disitu
DeleteKak tolong di perjelas yang mana image 1,2,3 dsb dan command 1,2,3. Terimakasih saya cukup mengerti, pembahasannya kurang dapat dipahami.
ReplyDeleteBang, Fotonya emang semua dalam format PNG yaa ? hehehe sorry pemula
ReplyDeletekenapa pas aku jalanin gak bisa ya ?
ReplyDeletePrivate Sub Form_Load()
ReplyDeleteucPicBuddy1.AttachChildControl Image1
ucPicBuddy2.AttachChildControl imgBird
pipeHDistance = 2333
pipeVDistance = 1750
allHeight = 4200
speed = 100
Me.Width = (2333 * 3) - Image1.Width
NewGame
End Sub
gan masih error nih diform load ini, terutama di kata "NewGame" nya, nggk ngerti harus diganti apa...
tolong di batntu yah...............?