Tugas Pertemuan ke 3

SOAL 1 

memodifikasi tugas yang lalu menjadi

1.Saat form dijalankan : semua isian tidak aktif, tombol isidata dan tutup aktif, tombol clear tidak aktif

2.Saat ditekan tombol isi data : kodebarang, jumlahbarang, cara beli, tombol clear, aktif, tombol isidata tidak aktif

3.Saat ditekan combol clear sama dengan saat form dijalankan

 jawaban:

Supaya memenuhi ketentuan di atas maka saya tambahkan beberapa kode, yang pertama saya tambahkan Private Sub Kontrol() yang berisi:

Selanjutnya saya tambahkan lagi untuk tombol Isi Data yang saya inisialisasikan sebagai Btisidata, seperti ini:

Untuk yang terakhir pada Btclear saya tambahkan kode Kontrol () supaya memanggil Private Sub Kontrol () agar saat user menekan tombol Clear maka kondisi form langsung seperti baru dijalankan

Berikut hasilnya:

Saat program pertama kali dijalankan, hanya tombol Isi Data dan Tutup saja yang aktif, sedangkan yang lain dalam kondisi mati

Saat tombol Isi Data di klik maka form pun bisa digunakan dan diisi oleh user

Saat tombol Clear ditekan maka kondisi form seperti awal atau seperti program baru dijalankan
  Agar lebih jelas... file bisa di download di
:

http://www.ziddu.com/download/20733939/VBPraktikumKe-3.zip.html

Jawaban Soal 2

Untuk Kode lengkapnya seperti berikut :

Public Class Form1

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

    Private Sub Kode_randomisasi()
        Dim control As Windows.Forms.Control
        For Each control In Me.Controls
            If control.GetType.Name = "Button" Then
                Dim rndnumber As Random
                rndnumber = New Random
                Dim number As Integer
                control.Text = number

                number = rndnumber.Next(1, 10)
                Bt1.Text = number

                If Bt2.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt2.Text = number
                    Loop Until Bt2.Text <> Bt1.Text
                End If

                If Bt3.Text = Bt2.Text Or Bt3.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt3.Text = number
                    Loop Until Bt3.Text <> Bt2.Text And Bt3.Text <> Bt1.Text
                End If

                If Bt4.Text = Bt3.Text Or Bt4.Text = Bt2.Text Or Bt4.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt4.Text = number
                    Loop Until Bt4.Text <> Bt3.Text And Bt4.Text <> Bt2.Text And Bt4.Text <> Bt1.Text
                End If

                If Bt5.Text = Bt4.Text Or Bt5.Text = Bt3.Text Or Bt5.Text = Bt2.Text Or Bt5.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt5.Text = number
                    Loop Until Bt5.Text <> Bt4.Text And Bt5.Text <> Bt3.Text And Bt5.Text <> Bt2.Text And Bt5.Text <> Bt1.Text
                End If

                If Bt6.Text = Bt5.Text Or Bt6.Text = Bt4.Text Or Bt6.Text = Bt3.Text Or Bt6.Text = Bt2.Text Or Bt6.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt6.Text = number
                    Loop Until Bt6.Text <> Bt5.Text And Bt6.Text <> Bt4.Text And Bt6.Text <> Bt3.Text And Bt6.Text <> Bt2.Text And Bt6.Text <> Bt1.Text
                End If

                If Bt7.Text = Bt6.Text Or Bt7.Text = Bt5.Text Or Bt7.Text = Bt4.Text Or Bt7.Text = Bt3.Text Or Bt7.Text = Bt2.Text Or Bt7.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt7.Text = number
                    Loop Until Bt7.Text <> Bt6.Text And Bt7.Text <> Bt5.Text And Bt7.Text <> Bt4.Text And Bt7.Text <> Bt3.Text And Bt7.Text <> Bt2.Text And Bt7.Text <> Bt1.Text
                End If

                If Bt8.Text = Bt7.Text Or Bt8.Text = Bt6.Text Or Bt8.Text = Bt5.Text Or Bt8.Text = Bt4.Text Or Bt8.Text = Bt3.Text Or Bt8.Text = Bt2.Text Or Bt8.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt8.Text = number
                    Loop Until Bt8.Text <> Bt7.Text And Bt8.Text <> Bt6.Text And Bt8.Text <> Bt5.Text And Bt8.Text <> Bt4.Text And Bt8.Text <> Bt3.Text And Bt8.Text <> Bt2.Text And Bt8.Text <> Bt1.Text
                End If

                If Bt9.Text = Bt8.Text Or Bt9.Text = Bt7.Text Or Bt9.Text = Bt6.Text Or Bt9.Text = Bt5.Text Or Bt9.Text = Bt4.Text Or Bt9.Text = Bt3.Text Or Bt9.Text = Bt2.Text Or Bt9.Text = Bt1.Text Then
                    Do
                        number = rndnumber.Next(1, 10)
                        Bt9.Text = number
                    Loop Until Bt9.Text <> Bt8.Text And Bt9.Text <> Bt7.Text And Bt9.Text <> Bt6.Text And Bt9.Text <> Bt5.Text And Bt9.Text <> Bt4.Text And Bt9.Text <> Bt3.Text And Bt9.Text <> Bt2.Text And Bt9.Text <> Bt1.Text
                End If
            End If
        Next

        Btacak.Text = "Acak Angka"

        If Bt1.Text = "9" Then
            Bt1.Text = ""
        End If
        If Bt2.Text = "9" Then
            Bt2.Text = ""
        End If
        If Bt3.Text = "9" Then
            Bt3.Text = ""
        End If
        If Bt4.Text = "9" Then
            Bt4.Text = ""
        End If
        If Bt5.Text = "9" Then
            Bt5.Text = ""
        End If
        If Bt6.Text = "9" Then
            Bt6.Text = ""
        End If
        If Bt7.Text = "9" Then
            Bt7.Text = ""
        End If
        If Bt8.Text = "9" Then
            Bt8.Text = ""
        End If
        If Bt9.Text = "9" Then
            Bt9.Text = ""
        End If

    End Sub

    Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
        If Bt2.Text = "" Then
            Bt2.Text = Bt1.Text
            Bt1.Text = ""
        ElseIf Bt4.Text = "" Then
            Bt4.Text = Bt1.Text
            Bt1.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click
        If Bt1.Text = "" Then
            Bt1.Text = Bt2.Text
            Bt2.Text = ""
        ElseIf Bt3.Text = "" Then
            Bt3.Text = Bt2.Text
            Bt2.Text = ""
        ElseIf Bt5.Text = "" Then
            Bt5.Text = Bt2.Text
            Bt2.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click
        If Bt2.Text = "" Then
            Bt2.Text = Bt3.Text
            Bt3.Text = ""
        ElseIf Bt6.Text = "" Then
            Bt6.Text = Bt3.Text
            Bt3.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click
        If Bt1.Text = "" Then
            Bt1.Text = Bt4.Text
            Bt4.Text = ""
        ElseIf Bt5.Text = "" Then
            Bt5.Text = Bt4.Text
            Bt4.Text = ""
        ElseIf Bt7.Text = "" Then
            Bt7.Text = Bt4.Text
            Bt4.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click
        If Bt2.Text = "" Then
            Bt2.Text = Bt5.Text
            Bt5.Text = ""
        ElseIf Bt4.Text = "" Then
            Bt4.Text = Bt5.Text
            Bt5.Text = ""
        ElseIf Bt6.Text = "" Then
            Bt6.Text = Bt5.Text
            Bt5.Text = ""
        ElseIf Bt8.Text = "" Then
            Bt8.Text = Bt5.Text
            Bt5.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click
        If Bt3.Text = "" Then
            Bt3.Text = Bt6.Text
            Bt6.Text = ""
        ElseIf Bt5.Text = "" Then
            Bt5.Text = Bt6.Text
            Bt6.Text = ""
        ElseIf Bt9.Text = "" Then
            Bt9.Text = Bt6.Text
            Bt6.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click
        If Bt4.Text = "" Then
            Bt4.Text = Bt7.Text
            Bt7.Text = ""
        ElseIf Bt8.Text = "" Then
            Bt8.Text = Bt7.Text
            Bt7.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click
        If Bt5.Text = "" Then
            Bt5.Text = Bt8.Text
            Bt8.Text = ""
        ElseIf Bt7.Text = "" Then
            Bt7.Text = Bt8.Text
            Bt8.Text = ""
        ElseIf Bt9.Text = "" Then
            Bt9.Text = Bt8.Text
            Bt8.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt9.Click
        If Bt6.Text = "" Then
            Bt6.Text = Bt9.Text
            Bt9.Text = ""
        ElseIf Bt8.Text = "" Then
            Bt8.Text = Bt9.Text
            Bt9.Text = ""
        End If
        Berhasil()
    End Sub

    Private Sub Berhasil()
        If Bt1.Text = "1" And Bt2.Text = "2" And Bt3.Text = "3" And Bt4.Text = "4" And Bt5.Text = "5" And Bt6.Text = "6" And Bt7.Text = "7" And Bt8.Text = "8" And Bt9.Text = "" Then
            MessageBox.Show("Selamat Anda Berhasil")
        End If
    End Sub

    Private Sub Btacak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btacak.Click
        Kode_randomisasi()
    End Sub

End Class

 

Berikut hasilnya:

Saat program baru dijalankan maka nomor pun langsung teracak secara otomatis

Ketika user sudah menyelesaikan urutan yang benar maka secara otomatis muncul pesan pop out "Selamat Anda Berhasil". dan permainan berahir. apabila ingin bermain kembali user  pun bisa menggunakan tombol Acak Angka di pojok kanan bawah untuk mengacak puzzle kembali

 Agar lebih jelas Link download tersedia di :

http://www.ziddu.com/download/20733957/VBPraktikumKe-3PUZELL.zip.html