Home » » Membuat Puzzle Dengan VB.NET

Membuat Puzzle Dengan VB.NET

Unknown | 02.33 | 0 comments



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 :
Share this article :
 

Copyright © 2011. Rama BLog - All Rights Reserved
Template Trick-Collection Editing Full Template By Team Blogger