puzzle

Berhubung kali ini saya di berikan tugas membuat puzle sederhana menggunakan vb.net,ga usah lama lama lagi,langsungaja ya biar ga kelamaan,,,,,

1.      buat tampilan seperti berikut

 
[ mohon maaf terjadi kesalahan dalam menampilkan gambar]

1.      Lalu langkah selanjutnya.ubah propertisnya

button1   menjadi visible = false *

button2 textnya menjadi =4

button3 textnya menjadi =2

button4 textnya menjadi =7

button5 textnya menjadi =6

button6 textnya menjadi =1

button7 textnya menjadi =3

button8 textnya menjadi =8

button9 textnya menjadi =5

hingga tampilanya menjadi seperti ini

[ mohon maaf terjadi kesalahan dalam menampilkan gambar ]

Sekarang tinggal kita ngasih syntax-syntax nya dah……..

1.       Double klik pada button1 , lalu isi dengan ini

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

        kerja()

    End Sub

2.       Double klik pada button2 , lalu isi dengan ini

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

            Button2.Visible = True

            Button5.Visible = False

            Button5.Text = Button2.Text

        End If

        kerja()

3.       Double klik pada button3 , lalu isi dengan ini

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

       kerja()

4.       Double klik pada button4 , lalu isi dengan ini

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

       kerja()

5.       Double klik pada button5 , lalu isi dengan ini

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

        kerja()

6.       Double klik pada button6 , lalu isi dengan ini

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

        kerja()

7.       Double klik pada button7 , lalu isi dengan ini

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

      kerja()

8.       Double klik pada button8 , lalu isi dengan ini

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

        kerja()

9.       Double klik pada button9 , lalu isi dengan ini

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

        kerja()

*)nb:visible =false ga harus di klik dulu, ga bisa di ketik manual

Dari tadi di setiap sub ada manggil method kerja (), nah sekarang kita buat deh method yang tadi di panggil di bawah syntax yang button9 sebelum end class

Syntaxnya :

Private Sub kerja()

        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(" selamat silahkan coba kembali")

                End If

            End If

        End If

    End Sub

untuk hasil dengan gambar yang lebih jelas silahkan klik disini

Jadi deh puzzle sederhana dari vb.net,sebenernya ada banyak yang lebih expert lagi,tapi yang kecil-kecil dulu deh,,,,,,,

[___________semoga bermanfaat____________]