Membuat Game Puzzle Sederhana

Yang saya gunakan : 1 form, 1 label, 11 button

Jika berhasil maka akan muncul tampilan seperti dibawah ini :

Source kode yang dibutuhkan :

Public Class Form1

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
If MsgBox(“Yakin akan keluar?”, 4 + 32 + 256, “Keluar”) = 6 Then
Me.Close()
End If
End Sub

Dim q As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For Each Control In Me.Controls
Control.enabled = True
btnacak.Enabled = True
btnexit.Enabled = True
q = bt1.Text
bt1.Text = bt5.Text
bt5.Text = bt2.Text
bt2.Text = bt7.Text
bt7.Text = bt3.Text
bt3.Text = bt8.Text
bt8.Text = bt6.Text
bt6.Text = bt4.Text
bt4.Text = bt3.Text
bt3.Text = q
Next
End Sub
Private Sub btnacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnacak.Click
Application.Restart()

End Sub

Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
If bt2.Text = “” Then
bt2.Text = bt1.Text
bt1.Text = “”
ElseIf bt4.Text = “” Then
bt4.Text = bt1.Text
bt1.Text = “”
End If
If bt1.Text = “1″ And bt2.Text = “2″ And bt3.Text = “3″ And bt4.Text = “4″ And bt5.Text = “5″ And bt6.Text = “6″ And bt7.Text = “7″ And bt8.Text = “8″ Then
MsgBox(“Sukses”)
End If
End Sub
Private Sub bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt2.Click
If bt1.Text = “” Then
bt1.Text = bt2.Text
bt2.Text = “”
ElseIf bt3.Text = “” Then
bt3.Text = bt2.Text
bt2.Text = “”
ElseIf bt5.Text = “” Then
bt5.Text = bt2.Text
bt2.Text = “”
End If
If bt1.Text = “1″ And bt2.Text = “2″ And bt3.Text = “3″ And bt4.Text = “4″ And bt5.Text = “5″ And bt6.Text = “6″ And bt7.Text = “7″ And bt8.Text = “8″ Then
MsgBox(“Sukses”)
End If
End Sub

Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt3.Click
If bt2.Text = “” Then
bt2.Text = bt3.Text
bt3.Text = “”
ElseIf bt6.Text = “” Then
bt6.Text = bt3.Text
bt3.Text = “”
End If
If bt1.Text = “1″ And bt2.Text = “2″ And bt3.Text = “3″ And bt4.Text = “4″ And bt5.Text = “5″ And bt6.Text = “6″ And bt7.Text = “7″ And bt8.Text = “8″ Then
MsgBox(“Sukses”)
End If
End Sub

Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt4.Click
If bt1.Text = “” Then
bt1.Text = bt4.Text
bt4.Text = “”
ElseIf bt7.Text = “” Then
bt7.Text = bt4.Text
bt4.Text = “”
ElseIf bt5.Text = “” Then
bt5.Text = bt4.Text
bt4.Text = “”
End If
If bt1.Text = “1″ And bt2.Text = “2″ And bt3.Text = “3″ And bt4.Text = “4″ And bt5.Text = “5″ And bt6.Text = “6″ And bt7.Text = “7″ And bt8.Text = “8″ Then
MsgBox(“Sukses”)
End If
End Sub

Demikian tugas yang saya buat semoga bermanfaat bagi pembacanya.