Membuat Game Puzzle sederhana dengan menggunakan Visual Studio
TUTORIAL GAME PUZZLE SEDERHANA DENGAN MENGGUNAKAN VB 2010
Baiklah, pada tutorial kali ini saya akan berbagi tentang bagaimana cara membuat game puzzle sederhana dengan menggunakan VB 2010.
Berikut tools yang kita perlukan untuk membuat interface game puzzle sederhana
Lalu ubah properties nya sebagai berikut :
Button 1
|
Visible = True
Image = disesuaikan
|
Button 2
|
Image = Disesuaikan
|
Button 3
|
Image = Disesuaikan
|
Button 4
|
Image = Disesuaikan
|
Button 5
|
Image = Disesuaikan
|
Button 6
|
Image = Disesuaikan
|
Button 7
|
Image = Disesuaikan
|
Button 8
|
Image = Disesuaikan
|
Button 9
|
Image = Disesuaikan
|
N.B kita bisa mengunakan potongan gambar yang disediakan terlebih dahulu atau bagi para pemula, bisa diganti dengan menggunakan teks saja. Yaitu dimana properties text pada tiap button diganti dengan huruf/ angka.
Berikut Syntax puzzle game sederhana dengan menggunakan gambar :
Dim a As Object
Dim b As Object
Dim c As Object
Dim d As Object
Dim j As Object
Dim f As Object
Dim g As Object
Dim h As Object
Dim i As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Image = Button1.Image
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Image = Button1.Image
End If
End If
kerja()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Image = Button2.Image
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Image = Button2.Image
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Image = Button2.Image
End If
kerja()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Image = Button3.Image
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Image = Button3.Image
End If
End If
kerja()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Image = Button4.Image
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Image = Button4.Image
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Image = Button4.Image
End If
kerja()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Image = Button5.Image
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Image = Button5.Image
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Image = Button5.Image
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Image = Button5.Image
End If
kerja()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Image = Button6.Image
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Image = Button6.Image
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Image = Button6.Image
End If
kerja()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Image = Button7.Image
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Image = Button7.Image
End If
End If
kerja()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Image = Button8.Image
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Image = Button8.Image
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Image = Button8.Image
End If
kerja()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Image = Button9.Image
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Image = Button9.Image
End If
End If
kerja()
End Sub
PrivateSub kerja()
If (Button1.image = "a"And Button2.image = "b"And Button3.image = "c"And Button4.image = "d")Then
If (Button5.image = "e"And Button6.image = "f"And Button7.image = "g") Then
If (Button8.image = "h") Then
MessageBox.Show(" selamat mencoba kembali")
EndIf
EndIf
EndIf
EndSub
EndClass
Demikianlah tutorial tentang puzzle game ini. Semoga bisa bermanfaat kepada teman-teman semua. Terima kasih, dan Salam IT
Tags:
pendidikan