Listing Program Puzzle

Berikut adalah Listing program untuk puzzle :

Public Class Form1

    Dim vButton As System.Windows.Forms.Button

    'buat variabel general utk menyimpan tombol yang invisible, misal vButton

'buat procedure aktif untuk memindah tulisan dan warna tombol ke lokasi yang kosong(tombol yang invisible)

Sub aktif(ByVal b As System.Windows.Forms.Button)

        vButton.Visible = True

        vButton.Text = b.Text

        vButton.BackColor = b.BackColor

        b.Visible = False

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button6.Click, Button5.Click, Button4.Click, Button3.Click, Button2.Click

        Call aktif(sender)

        vButton = sender

'panggil procedure aktif

'ganti variable vButton

        

    End Sub

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

        vButton = Button6

'setting awal tombol 6 di invisible

    End Sub

End Class

cara lain yang lebih panjang tapi secara logika lebih mudah dimengerti:

Public Class Form1

   

    

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

       'cara 1 masukkan kode ini di setiap tombol, dan ganti tombol yang visible dan invisible

'warna tolbol belum dimasukkan

        'If Button2.Visible = False Then

        '    Button2.Visible = True

        '    Button2.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button3.Visible = False Then

        '    Button3.Visible = True

        '    Button3.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button4.Visible = False Then

        '    Button4.Visible = True

        '    Button4.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button5.Visible = False Then

        '    Button5.Visible = True

        '    Button5.Text = Button1.Text

        '    Button1.Visible = False

        'ElseIf Button6.Visible = False Then

        '    Button6.Visible = True

        '    Button6.Text = Button1.Text

        '    Button1.Visible = False

        'End If

        '===========================sampai sini cara panjang 1;

        'cara 2

        '===========================

        Call aktif(Button1)

        'panggil prosedur aktif, buat disemua tombol seperti ini

    End Sub

'buat prosedure aktif

Sub aktif(ByVal b As System.Windows.Forms.Button)

        If Button1.Visible = False Then

            Button1.Visible = True

            Button1.Text = b.Text

            Button1.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button2.Visible = False Then

            Button2.Visible = True

            Button2.Text = b.Text

            Button2.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button3.Visible = False Then

            Button3.Visible = True

            Button3.Text = b.Text

            Button3.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button4.Visible = False Then

            Button4.Visible = True

            Button4.Text = b.Text

            Button4.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button5.Visible = False Then

            Button5.Visible = True

            Button5.Text = b.Text

            Button5.BackColor = b.BackColor

            b.Visible = False

        ElseIf Button6.Visible = False Then

            Button6.Visible = True

            Button6.Text = b.Text

            Button6.BackColor = b.BackColor

            b.Visible = False

        End If

    End Sub

    '==================== sampai sini cara 2

End Class