Tugas 3 Pemrograman Visual

Halllooo....
Apa kabar semua.....
Kali ini kang icak akan menjelaskan tentang fungsi “For Each” untuk enable maupun unenable toolbox yang kita gunakan dan cara pembuatan Puzzle sederhana dengan menggunakan Bahasa Visual Basic....
Sebenarnya ini tugas kuliah kang icak tapi berhubung kang icak suka nulis jadi kang icak kasih caranya....
Pertama buat project baru lalu buat tampilannya seperti ini...

Dari tampilan di atas terdapat 1 comboBox, 6 textBox, 2 Rado Button yang ketiganya terdapat di dalam GroupBox....jadi jangan lupa ea masukan ketiga toolbox yang kita pakai itu kedalam GroupBox....lalu kita juga menggunkan 3 button.....
Oke langsung aja masuk ke koding ea.....
Pertama klik 2 kali formnya maka kita akan di bawa ke Sub Form_Load....
Lalu masukan koding di bawah ini....
Dim text As Windows.Forms.Control
        For Each text In Me.GroupBox1.Controls
            text.Enabled = False
            Button2.Enabled = False
        Next
Keterangan Baris :
1.    Mmbuat varible text yang berfungsi untuk menwakiili control dari form.
2.    Memanggil fungsi For Each untuk melakukan perulangan di dalam groupbox yang kita pakai.
3.    Memberikan nilai enabled menjadi false pada toolbox di dalam groupbox yang diwakili oleh varible text.
4.    Membarikan nilai enbaled false pada button2
5.    Penutup perulangan For Each.
Setelah kita melakukan hal di atas lalu kita kembali lagi ke bagian design dan klik 2 kali pada button “Isi Data” lalu masukan kode berikut....
Dim text As Windows.Forms.Control
        For Each text In Me.GroupBox1.Controls
            text.Enabled = True
            Button2.Enabled = True
            Button1.Enabled = False
        Next
Kode di atas berfungsi untuk mengaktifkan kembali toolbok2 yang sebelumnya kita non aktifkan serta menonaktifkan button Isi Data....
Kembali lagi ke form design lalu klik 2 kali pada button Clear dan masukan kode berikut :
Dim text As Windows.Forms.Control
        For Each text In Me.GroupBox1.Controls
            text.Enabled = False
            Button2.Enabled = False
            Button1.Enabled = True
        Next
Kode di atas sama persis dengan kode yang kita gunakan pada bagian Form_Load namun dengan penambahan baris “Button1.Enabled = True” yang berungsi untuk mengaktifkan kembali button Isi data yang sebelunya di nonaktifkan saat kita menekan button Isi Data.
Kita kembali lagi ke form_design dan klik 2 kali pada button Tutup dan masukan kode berkut :
End
Kode di atas berfungsi untuk mengeluarkan proses aplikasi dari dalam memori komputer......
Gimana kawan sederhanakan dalam menggunakan fungsi For Each....
Ini program saat pertama kita menjalankan aplikasi :

Bisa kalian perhatikan,,,,semua toolbox selain button cari dan tutup tidak aktif....itu terjadi karena kita memsaukan kode pada bagian FormLoad dimana bagian itu akan di Execute saat program pertamaa dijalankan....
Coba kalian klik button Isi Data maka formnya akan tampil seperti gambar berikut :

Saat kalian klik buttonIsi Data maka toolbok yang awalnya tidak aktif akan aktif kembali....
Sekarang coba kalian klik button Clear....maka akan munncul tampilan sebagai berikut :

Saat kita menekan button Clear maka tampilan form akan kembali...
ke tampilan awal saat program pertamaa kali dijalankan.....
Mudahkan.....!!!

Oke selanjutnya kang icak akan menjelaskan bagaimana cara membuat Puzzle Sederhana...
Perhatikan baik2 ea.....
Pertama buat project baru lalu buat formnya seperti tampilan berikut :

Melihat tampilan di atas kalian pasti tau toolbox apa aja yang harus kalian masukan....
Tapi jangn lupa da tambahn kita juga harus memasukan  1 toolbox timer....
Berikut adalh masing2 program yang terdapat pada masing2 button :
Button1
smt = Button1.Text
        If (Button2.Text = "") Then
            Button2.Text = smt
            Button1.Text = ""
        ElseIf (Button4.Text = "") Then
            Button2.Text = smt
            Button1.Text = ""
        End If

Button2
smt = Button2.Text
        If (Button1.Text = "") Then
            Button1.Text = smt
            Button2.Text = ""
        ElseIf (Button3.Text = "") Then
            Button3.Text = smt
            Button2.Text = ""
        ElseIf (Button5.Text = "") Then
            Button5.Text = smt
            Button2.Text = ""
        End If

Button3
smt = Button3.Text
        If (Button2.Text = "") Then
            Button2.Text = smt
            Button3.Text = ""
        ElseIf (Button6.Text = "") Then
            Button6.Text = smt
            Button3.Text = ""
        End If

Button4
smt = Button4.Text
        If (Button1.Text = "") Then
            Button1.Text = smt
            Button4.Text = ""
        ElseIf (Button5.Text = "") Then
            Button5.Text = smt
            Button4.Text = ""
        ElseIf (Button7.Text = "") Then
            Button7.Text = smt
            Button4.Text = ""
        End If

Button5
smt = Button5.Text
        If (Button2.Text = "") Then
            Button2.Text = smt
            Button5.Text = ""
        ElseIf (Button6.Text = "") Then
            Button6.Text = smt
            Button5.Text = ""
        ElseIf (Button4.Text = "") Then
            Button4.Text = smt
            Button5.Text = ""
        ElseIf (Button8.Text = "") Then
            Button8.Text = smt
            Button5.Text = ""
        End If

Button6
smt = Button6.Text
        If (Button3.Text = "") Then
            Button3.Text = smt
            Button6.Text = ""
        ElseIf (Button5.Text = "") Then
            Button5.Text = smt
            Button6.Text = ""
        ElseIf (Button9.Text = "") Then
            Button9.Text = smt
            Button6.Text = ""
        End If

Button7
smt = Button7.Text
        If (Button4.Text = "") Then
            Button4.Text = smt
            Button7.Text = ""
        ElseIf (Button8.Text = "") Then
            Button8.Text = smt
            Button7.Text = ""
        End If

Button8
smt = Button8.Text
        If (Button9.Text = "") Then
            Button9.Text = smt
            Button8.Text = ""
        ElseIf (Button5.Text = "") Then
            Button5.Text = smt
            Button8.Text = ""
        ElseIf (Button7.Text = "") Then
            Button7.Text = smt
            Button8.Text = ""
        End If

Button9
smt = Button9.Text
        If (Button6.Text = "") Then
            Button6.Text = smt
            Button9.Text = ""
        ElseIf (Button8.Text = "") Then
            Button8.Text = smt
            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


Button Stop
Button1.Text = "2"
        Button2.Text = "5"
        Button3.Text = "7"
        Button4.Text = "3"
        Button5.Text = "8"
        Button6.Text = "1"
        Button7.Text = "4"
        Button8.Text = "6"
        Timer1.Stop()

Button Acak
Timer1.Start()

Lalu pada sub FormLoad masukan juga kode berikut yang berfungsi mengacak nilai buton pada saat form pertama kali di jalankan :
Timer1.Start()

Dan masukan juga kode berikut pada toolBox timer :
Dim random1, random2, random3, random4, random5, random6, random7, random8 As Integer
        random1 = Rnd(1) * 8
        random2 = Rnd(1)
        random3 = Rnd(1)
        random4 = Rnd(1)
        random5 = Rnd(1)
        random6 = Rnd(1)
        random7 = Rnd(1)
        random8 = Rnd(1)
        Button1.Text = random1
        Button2.Text = random2
        Button3.Text = random3
        Button4.Text = random4
        Button5.Text = random5
        Button6.Text = random6
        Button7.Text = random7
        Button8.Text = random8
Jangan lupa juga ini yang paling penting....
Masukan juga kode berikut di bawah public class :

    Public smt As Integer

Pada program Puzzle di atas kita mengenal fungsi baru pada VB yaitu fungsi Rnd(), dimana fungsi tersebut digunakan untuk melakukan pengacakan yang terjadi pada button.....
Coba kalian jalankan aplikasi nya maka pada saat pertama form dijalankan maka secara otomatis angka-angkanya akan teracak dan pada waktu kita menekan button stop angkanya akan berhenti mengacak...saat kita menekan button Acak angkanya juga akan kembali mengacak dan begitu seterusnya....
Berikut adalah tampilan aplkasinya :

Dan jika kita berhasil menyusun puzzlenya secara urut maka akan keluar massageBox yang menyatakan selamat seperti gambar berikut :

Oke sampai disini tututorial VB dari kang Icak.....
Kang icak banyak kerjaan lain jadi mohon maaf jika kang icak lama ga posting.....
Cukup sekian dan wasalam..........