Tugas 3 Memodif Program & Membuat Puzzle Anggka

Memodif Program

Modifikasi program pada pertemuan sebelumnya
Masih Ingatkan Preogram yang ini:

Mari kita Modif

1. Buka Program yang kemarin
2. Setelah itu tambah 1 Button Buat Isi Data
3. Setelah didesain & Kodingnya selesai
4. Kemudai Klik Start Debugging / Tekan F5
5. Maka tampilan akan seperti di bawah ini :

Semua isi tidak aktif 
Kemudian Klik Tombol Isi Data maka semua isian akan aktif

Jika kita Klik tombol Clear Maka akan kembali seperti semula / waktu pertama muncul

Membuat Puzzle Angka

Skenario sebagai berikut :

1. Saat form dijalankan posisi angka acak.
2. Saat ditekan tombol yang terletak di dekat tombol kosong maka tombol tersebut akan menempati tombol kosong, begitu seterusnya sampai dengan angkanya tersusun dari 1 sampai 8.
3. Saat angka sudah tersusun tampilkan pesan "Selamat Anda Berhasil!!!" 

Buat Desain dan Kodingnya
Tampilan Desainnya sepertidibawah ini :

Berikut ini Koding Programnya :

1. 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
   End Class
2. 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 Berhasil!!!")
           End If
       End Sub
3. 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 Berhasil!!!")
           End If
       End Sub
4. 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 Berhasil!!!")
           End If
       End Sub
5. 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 Berhasil!!!")
           End If
       End Sub
6. 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 Berhasil!!!")
           End If
       End Sub
7. 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 Berhasil!!!")
           End If
       End Sub
8. 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 Berhasil!!!")
           End If
       End Sub
9. 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 Berhasil!!!")
           End If
       End Sub
10. 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 Berhasil!!!")
            End If
        End Sub

Ketika Program dijalankan tapilan seperti ini

 

Tampilan Setelah anda memainkan & Berhasil Menyusunnya :

Sekian Dulu Ya?????

Terima Kasih......