Membuat Puzzle Dengan VB.NET

Puzzle adalah sebuah permainan yang sangat menguras logika kita. Karena bermain puzzle di butuhkan cara dan teknik tertentu. Perlu memikirkan sebelum bisa menyusun permainan ini. Berikut Form Puzle yang berhasil saya buat.

Tool Box	Properties
Button1	Visible = False
Button2	Teks = 2
Button3	Teks = 3
Button4	Teks = 4
Button5	Teks = 5
Button6	Teks = 6
Button7	Teks = 7
Button9	Teks = 8

Setelah semuanya telah diatur didalam properties lalu masukkan Listing program berikut ini :

Public Class Form1

    Private Sub coba()

        If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then

            If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then

                If (Button8.Text = "8") Then

                    MessageBox.Show("OK Lah Kamu Telah Berhasil Menyusun Puzzle :) ")

                End If

            End If

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button2.Visible = False Then

            Button2.Visible = True

            Button1.Visible = False

            Button2.Text = Button1.Text

        Else

            If Button4.Visible = False Then

                Button4.Visible = True

                Button1.Visible = False

                Button4.Text = Button1.Text

            End If

        End If

        coba()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button1.Visible = False Then

            Button1.Visible = True

            Button2.Visible = False

            Button1.Text = Button2.Text

        ElseIf Button3.Visible = False Then

            Button3.Visible = True

            Button2.Visible = False

            Button3.Text = Button2.Text

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button2.Visible = False

            Button5.Text = Button2.Text

        End If

        coba()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button2.Visible = False Then

            Button2.Visible = True

            Button3.Visible = False

            Button2.Text = Button3.Text

        Else

            If Button6.Visible = False Then

                Button6.Visible = True

                Button3.Visible = False

                Button6.Text = Button3.Text

            End If

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button1.Visible = False Then

            Button1.Visible = True

            Button4.Visible = False

            Button1.Text = Button4.Text

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button4.Visible = False

            Button5.Text = Button4.Text

        ElseIf Button7.Visible = False Then

            Button7.Visible = True

            Button4.Visible = False

            Button7.Text = Button4.Text

        End If

        coba()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        If Button2.Visible = False Then

            Button2.Visible = True

            Button5.Visible = False

            Button2.Text = Button5.Text

        ElseIf Button4.Visible = False Then

            Button4.Visible = True

            Button5.Visible = False

            Button4.Text = Button5.Text

        ElseIf Button6.Visible = False Then

            Button6.Visible = True

            Button5.Visible = False

            Button6.Text = Button5.Text

        ElseIf Button8.Visible = False Then

            Button8.Visible = True

            Button5.Visible = False

            Button8.Text = Button5.Text

        End If

        coba()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        If Button3.Visible = False Then

            Button3.Visible = True

            Button6.Visible = False

            Button3.Text = Button6.Text

        ElseIf Button9.Visible = False Then

            Button9.Visible = True

            Button6.Visible = False

            Button9.Text = Button6.Text

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button6.Visible = False

            Button5.Text = Button6.Text

        End If

        coba()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If Button8.Visible = False Then

            Button8.Visible = True

            Button7.Visible = False

            Button8.Text = Button7.Text

        Else

            If Button4.Visible = False Then

                Button4.Visible = True

                Button7.Visible = False

                Button4.Text = Button7.Text

            End If

        End If

        coba()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        If Button7.Visible = False Then

            Button7.Visible = True

            Button8.Visible = False

            Button7.Text = Button8.Text

        ElseIf Button9.Visible = False Then

            Button9.Visible = True

            Button8.Visible = False

            Button9.Text = Button8.Text

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button8.Visible = False

            Button5.Text = Button8.Text

        End If

        coba()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If Button6.Visible = False Then

            Button6.Visible = True

            Button9.Visible = False

            Button6.Text = Button9.Text

        Else

            If Button8.Visible = False Then

                Button8.Visible = True

                Button9.Visible = False

                Button8.Text = Button9.Text

            End If

        End If

        coba()

    End Sub

End Class

Selamat mencoba sukses buat kita J

Komentar Anda :

---