tugas 7

      Aplikasi Sederhana  MDI Form pada Visual Studio 2010 (Menu, Tool, MDI Form)

       1.      Buka Microsoft Visual Studio 2010
2.   Desain Form pertama  seperti ini:

 Desain Form 1 seperti dibawah ini

- Buat 3 form( form 1, form2, form3)

4.         -    Gunakan MenuStrip untuk mendesain File, Latihan, Tugas, dll terserah.

5.        -   Properti IsMDIContainer pada form 1 diganti  menjadi true

6.         - Tambahkan Standar bar dengan menggunakan ToolStrip

Gunakan Dock pada propertis Untuk memindahkan tempat standar bar dikiri, kanan, atas atau tengah.

*Untuk menggabungkan antara form1 dan form yang lain maka setiap form kasih coding seperti dibawah ini:

Membuat Ribbon Menggunakan Aplikasi DotNetBar.

1. Instal terlebih dahulu DotNetBar
2. Masuk ke Microsof Visual Studio 2010
3. Buat Form seperti biasa.
4. Lalu ke tool DotNetBar
5. Untuk Penggunaan DotNetBar tutorialnya bisa dilihat di link dibawah http://www.devcomponents.com/dotnetbar/movies.aspx#

 Form 2

  

Codingnya seperti dibawah ini:

Public Class Form2

   

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

        Me.MdiParent = Form1

    End Sub

End Class

 form 3

Coding: 

Public Class Form3

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

        Me.MdiParent = Form1

    End Sub

End Class

Setelah di Run pada windows dan kita pilih cascade maka hasilnya akan seperti ini:

 Tampilan Cascade

 Tampilan Cacade

        Me.LayoutMdi(MdiLayout.Cascade)

        Form2.Show()

        Form3.Show()

Dan horisontal seperti dibawah ini:

Tampilan TileHorisontal

       Me.LayoutMdi(MdiLayout.TileHorizontal)

        Form2.Show()

        Form3.Show()

Dan yang terakhir vertikal:

             Tampilan Tile secara Vertical

        Me.LayoutMdi(MdiLayout.TileVertical)

        Form2.Show()

        Form3.Show()

Coding Untuk Keseluruhanya

Public Class Form1
    Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
        Form2.Show()
        Form3.Show()
    End Sub
    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.Show()
        Form3.Show()
    End Sub
    Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.Show()
        Form3.Show()
    End Sub
    Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click
        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
        Form2.Show()
        Form3.Show()
    End Sub
    Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
        Form2.Show()
        Form3.Show()
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()

    End Sub

    Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form2.Show()

    End Sub

    Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()

    End Sub

    Private Sub ButtonItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem15.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem17.Click
        Form3.Show()
    End Sub

    Private Sub ButtonItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem24.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem29.Click
        Me.Close()
    End Sub

    Private Sub ButtonItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem30.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem31.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem32.Click
        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem13.Click
        Me.Close()
    End Sub

    Private Sub ButtonItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem8.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem11.Click
        Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem9.Click
        Form3.Show()
    End Sub

    Private Sub ButtonItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem10.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem33.Click
        Form3.Show()
    End Sub

    Private Sub ButtonItem34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem34.Click
        Me.LayoutMdi(MdiLayout.Cascade)
        Form2.Show()
        Form3.Show()
    End Sub

    Private Sub ButtonItem14_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem14.Click
        Form2.Show()
    End Sub

    Private Sub ButtonItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem35.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
        Form2.Show()
        Form3.Show()
    End Sub
End Class

TUGAS 4

MEMBUAT PROGRAM CHECKBOX

Kegunaan box pada aplikasinya:

• Tool checkbox/checklist untuk memilih keahlian bahasa yang dikuasai.
• Groupbox unutk menggabungkan pilihan bahasa
• textbox untuk menampilkan bahasa yang dipilih
• button "konfirm" untuk konfirmasi dan unutk menampilkan

Listing Program :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles     Button1.Click
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
        For Each control In Me.GroupBox1.Controls
            If control.Checked = True Then
                TextBox1.Text &= control.Text & ","
            End If
        Next
        TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
        End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
      End Sub
     End Class

Lalu kita Run Programnya maka akan muncul seperti ini:

Kemudian kita coba checklist/centang pilihan kita hasilnya seperti ini:

lalu kita coba pilih semua maka akan nampak seperti ini:

MEMBUAT PROGRAM DENGAN RADIO BUTTON


Desain form seperti gambar dibawah ini:

kemudian isikan listing program seperti dibawah ini


LISTING PROGRAM :
Public Class Form1

    Private Sub RbKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbKawin.CheckedChanged
        TextBox1.Text = ""
        If RbPria.Checked = True Then
        Else
            TextBox1.Text &= "Suami"
        End If
        If RbWanita.Checked = True Then
        Else
            TextBox1.Text &= "Istri"
        End If
    End Sub
 
    Private Sub RbTdkwin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbTdkwin.CheckedChanged
        TextBox1.Text = ""
        If RbPria.Checked = True Then
        Else
            TextBox1.Text &= ""
        End If
        If RbWanita.Checked = True Then
        Else
            TextBox1.Text &= ""
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class


kemudian run program tersebut lalu akan muncul seperti ini:

 

 MEMBUAT PROGRAM LISTBOX

 Buatlah form seperti ini:

 lalu ltuliskan listing programnya

LISTING PROGRAM

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.ListBox
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For bil = 1 To 10
            ListBox1.Items.Add(bil)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Satu.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Bt_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Beberapa.Click
        ListBox1.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox1.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

    Private Sub Bt_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Semua.Click
        ListBox1.SelectionMode = SelectionMode.MultiExtended

        Dim Jumlah As Integer = ListBox1.Items.Count
        For i = 0 To Jumlah - 1
            ListBox2.Items.Add(ListBox1.Items(i))
        Next
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Satu.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Bt_Hapus_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Beberapa.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
        For i = 0 To j - 1
            Try
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        Next
    End Sub

    Private Sub Bt_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Semua.Click
        ListBox2.Items.Clear()
    End Sub

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

kemudian di RUN dan hasilnya akan tampak seperti gambar dibawah ini:

TUGAS 3

MEMODIFIKASI PROGRAM PENJUALAN

1.

a) Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

b) Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

c) Saat ditekan combol clear sama dengan saat form dijalankan.

jawab:
 1. Buka program yang kmarin dibuat

tambahkan button lalu rename agar manjadi seperti ini:

berikut ini adalah listing programnya :

listing pada form:

Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next
        CmbKodbar.Items.Add("SPT")
        CmbKodbar.Items.Add("SND")
        CmbKodbar.Items.Add("TST")
        CmbKodbar.Items.Add("CLN")
        CmbKodbar.Items.Add("TAS")

3.  kemudian edit listing  pada button clear menjadi seperti ini;
               
      Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next

        TxtNambar.Clear()
        TxtHarbar.Clear()
        TxtJumbar.Clear()
        TxtTotHarg.Clear()
        TxtDiskon.Clear()
        TxtTotBayr.Clear()
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        CmbKodbar.Text = ""


4.     button isi data   diisi listing seperti ini :

                Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = True
            Button3.Enabled = False
        Next
5.      Lalu di Run,di debug pencet F5
         Dan hasilnya seperti berikut ini;

lihat screenshot diatas, semua button tidak aktiv kecuali button isi data dan button tutup

6. klik button isi data dan hasilnya jadi seperti ini:

7.selanjutnya kita coba isi datanya maka akan nampak seperti gambar dibawah:

apabila kita menekan tombol clear hasilnya akan kosong seperti semula,kosong adalah kosong isi adalah isi



berikut ini adalah listing dari seluruh button,toolbox
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next
        CmbKodbar.Items.Add("SPT")
        CmbKodbar.Items.Add("SND")
        CmbKodbar.Items.Add("TST")
        CmbKodbar.Items.Add("CLN")
        CmbKodbar.Items.Add("TAS")

    End Sub

    Private Sub CmbKodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbKodbar.SelectedIndexChanged
        Dim Kodebarang, Namabarang As String
        Dim Harga As Single
        Kodebarang = CmbKodbar.Text

        Select Case Kodebarang
            Case "SPT"
                Namabarang = "Sepatu"
                Harga = 100000
            Case "SND"
                Namabarang = "Sendal"
                Harga = 25000
            Case "TST"
                Namabarang = "T-Shirt"
                Harga = 30000
            Case "CLN"
                Namabarang = "Celana"
                Harga = 150000
            Case "TAS"
                Namabarang = "TAS"
                Harga = 90000

            Case Else
                Namabarang = "-"
                Harga = 0

        End Select
        TxtNambar.Text = Namabarang
        TxtHarbar.Text = Harga

    End Sub

    Private Sub TxtJumbar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJumbar.TextChanged
        TxtTotHarg.Text = Val(TxtHarbar.Text) * Val(TxtJumbar.Text)
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        TxtDiskon.Text = Val(TxtTotHarg.Text) * 10 / 100
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        TxtDiskon.Text = 0
        TxtTotBayr.Text = Val(TxtTotHarg.Text) - Val(TxtDiskon.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = False
            Button3.Enabled = True
            Button2.Enabled = True
        Next

        TxtNambar.Clear()
        TxtHarbar.Clear()
        TxtJumbar.Clear()
        TxtTotHarg.Clear()
        TxtDiskon.Clear()
        TxtTotBayr.Clear()
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        CmbKodbar.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MsgBox("Apakah ente ingin keluar ?",
                  vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
        End If
        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            control.Enabled = True
            Button3.Enabled = False
        Next
    End Sub

End Class

Soal 2

Buatlah permainan puzzle sederhana 

Membuat Puzzle Sederhana

1.buatlah desain form dengan ketentuan 9 tombol button dan rename button1 menjadi "1" button 2 menjadi "2" dan seterusnya tapi tanpa tanda petik,form terserah mau dikasih gambar apa tidak,contohnya seperti buatan saya seperti screenshot dibawah ini:

masukan listing coding programnya seperti di bawah ini

Public Class Form1

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

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.GetType.Name = "Button" Then

                Dim rndnumber As Random

                Dim number As Integer

                rndnumber = New Random

                number = rndnumber.Next(1, 9)

                control.Text = number

                If Button2.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button2.Text = number

                    Loop Until Button2.Text <> Button1.Text

                End If

                If Button3.Text = Button2.Text Or Button3.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button3.Text = number

                    Loop Until Button3.Text <> Button2.Text And Button3.Text <> Button1.Text

                End If

                If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button4.Text = number

                    Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text

                End If

                If Button4.Text = Button3.Text Or Button4.Text = Button2.Text Or Button4.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button4.Text = number

                    Loop Until Button4.Text <> Button3.Text And Button4.Text <> Button2.Text And Button4.Text <> Button1.Text

                End If

                If Button5.Text = Button4.Text Or Button5.Text = Button3.Text Or Button5.Text = Button2.Text Or Button5.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button5.Text = number

                    Loop Until Button5.Text <> Button4.Text And Button5.Text <> Button3.Text And Button5.Text <> Button2.Text And Button5.Text <> Button1.Text

                End If

                If Button6.Text = Button5.Text Or Button6.Text = Button4.Text Or Button6.Text = Button3.Text Or Button6.Text = Button2.Text Or Button6.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button6.Text = number

                    Loop Until Button6.Text <> Button5.Text And Button6.Text <> Button3.Text And Button6.Text <> Button2.Text And Button6.Text <> Button1.Text

                End If

                If Button7.Text = Button6.Text Or Button7.Text = Button5.Text Or Button7.Text = Button4.Text Or Button7.Text = Button3.Text Or Button7.Text = Button2.Text Or Button7.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button7.Text = number

                    Loop Until Button7.Text <> Button6.Text And Button7.Text <> Button5.Text And Button7.Text <> Button4.Text And Button7.Text <> Button3.Text And Button7.Text <> Button2.Text And Button7.Text <> Button1.Text

                End If

                If Button8.Text = Button7.Text Or Button8.Text = Button6.Text Or Button8.Text = Button5.Text Or Button8.Text = Button4.Text Or Button8.Text = Button3.Text Or Button8.Text = Button2.Text Or Button8.Text = Button1.Text Then

                    Do

                        number = rndnumber.Next(1, 9)

                        Button8.Text = number

                    Loop Until Button8.Text <> Button7.Text And Button8.Text <> Button6.Text And Button8.Text <> Button5.Text And Button8.Text <> Button4.Text And Button8.Text <> Button3.Text And Button8.Text <> Button2.Text And Button8.Text <> Button1.Text

                End If

            End If

            Button9.Text = ""

        Next

    End Sub

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

        If Button4.Text = "" Then

            Button4.Text = Button7.Text

            Button7.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button7.Text

            Button7.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button9.Text = "" Then

            Button9.Text = Button6.Text

            Button6.Text = ""

        ElseIf Button3.Text = "" Then

            Button3.Text = Button6.Text

            Button6.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button6.Text

            Button6.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button2.Text = "" Then

            Button2.Text = Button1.Text

            Button1.Text = ""

        ElseIf Button4.Text = "" Then

            Button4.Text = Button1.Text

            Button1.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button1.Text = "" Then

            Button1.Text = Button2.Text

            Button2.Text = ""

        ElseIf Button3.Text = "" Then

            Button3.Text = Button2.Text

            Button2.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button2.Text

            Button2.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button2.Text = "" Then

            Button2.Text = Button3.Text

            Button3.Text = ""

        ElseIf Button6.Text = "" Then

            Button6.Text = Button3.Text

            Button3.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button1.Text = "" Then

            Button1.Text = Button4.Text

            Button4.Text = ""

        ElseIf Button7.Text = "" Then

            Button7.Text = Button4.Text

            Button4.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button4.Text

            Button4.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button2.Text = "" Then

            Button2.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button4.Text = "" Then

            Button4.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button6.Text = "" Then

            Button6.Text = Button5.Text

            Button5.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button5.Text

            Button5.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button7.Text = "" Then

            Button7.Text = Button8.Text

            Button8.Text = ""

        ElseIf Button9.Text = "" Then

            Button9.Text = Button8.Text

            Button8.Text = ""

        ElseIf Button5.Text = "" Then

            Button5.Text = Button8.Text

            Button8.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

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

        If Button6.Text = "" Then

            Button6.Text = Button9.Text

            Button9.Text = ""

        ElseIf Button8.Text = "" Then

            Button8.Text = Button9.Text

            Button9.Text = ""

        End If

        If Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4" And Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7" And Button8.Text = "8" And Button9.Text = "" Then

            MsgBox("Selamat Anda Telah Berhasil")

        End If

    End Sub

End Class

==============================================

beberapa screenshoot dari puzzle setelah di run