Tugas Puzzle VB.Net

Membuat puzzle menggunakan VB.Net

1.      Buat form seperti berikut :

 

2.      Lalu lakukan setting di bagian properties object seperti berikut :

Button1	Visible = false
Button 2	Teks = 4
Button 3	Teks = 2
Button 4	Teks = 7
Button 5	Teks = 6
Button 6	Teks = 1
Button 7	Teks = 3
Button 8	Teks = 8
Button 9	Teks = 5

Hasilnya akan seperti berikut :

3.      Lalu masukkan syntax berikut :

Public Class Puzzle

    Private Sub Button1_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button2_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button3_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button4_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button6_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button8_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button7_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button9_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub Button5_Click(ByVal sender As 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

        cek()

    End Sub

    Private Sub cek()

        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("Selesai")

                End If

            End If

        End If

    End Sub

End Class