Tugas 3

TUGAS 3 PEMOGRAMAN VISUAL

Soal 1 

Memodifikasi Program pada tugas 2 dengan menambahkan Button4 (Isi Data)  dengan ketentuan sebagai berikut :
1. Saat Form dijalankan : Semua isian tidak aktif, tombol isi data dan tutup aktif, tombol clear tidak aktif

Edit  program pada tugas 2, double klik pada form dan masukan listing program sebagai berikut : 

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

            Button1.Enabled = False

            Button2.Enabled = True

            Button3.Enabled = False

            Button4.Enabled = True

        Next

        ComboBox1.Items.Add("SPT")

        ComboBox1.Items.Add("SND")

        ComboBox1.Items.Add("TST")

        ComboBox1.Items.Add("TOP")

        ComboBox1.Items.Add("TAS")

    End Sub

2. Saat ditekan tombol isi data : Semua isian aktif kecuali tombol isi data.

Double klik pada button4 (Isi Data) lalu masukan listing program sebagai berikut: 

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

        Dim Control As Windows.Forms.Control

        For Each Control In Me.Controls

            Control.Enabled = True

            Button4.Enabled = False

        Next

    End Sub

3. Saat tombol clear di tekan (klik) sama dengan saat form dijalankan. 

Double klik pada button1 (Clear) lalu edit listing program sebelumnya menjadi : 

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

            Button1.Enabled = False

            Button2.Enabled = True

            Button3.Enabled = False

            Button4.Enabled = True

        Next

        ComboBox1.Text = ""

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

        TextBox5.Clear()

        TextBox6.Clear()

        TextBox7.Clear()

        TextBox8.Clear()

        Me.RadioButton1.Checked = False

        Me.RadioButton2.Checked = False

        ComboBox1.Text = ""

        Me.PictureBox1.Visible = False

        Me.PictureBox2.Visible = False

        Me.PictureBox3.Visible = False

        Me.PictureBox4.Visible = False

        Me.PictureBox5.Visible = False

    End Sub

Soal 2

 Membuat permainan puzzle sederhana dengaan rancangan seperti gambar di bawah ini :

1. Saat form dijalankan, posisi angka acak

    Langkah pertama, buatlah project baru dengan desain sebagai berikut:

    masukan 11 button lalu edit text pada button1  dengan angka 1 terus ubah name design dengan satu, dan  seterusnya. Ubah name design sesuai dengan texs pada button , akan tetapi pada button9 kosongkan text tanpa di isi angka. 

lalu masukkan timer dengan cara klik menu toolbox --> Components --> Timer kemudian setting propertisnya seperti gambar berikut 

lalu double klik pada form kemudian masukan listing program di bawah ini : 

Public Class puzzle

    Dim x As Integer

    Dim jalan As Boolean = False

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

        Timer1.Enabled = False

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim acak As Integer

        Do

            acak = Rnd() * 10

            satu.Text = acak

            '  If satu.Text = 10 Or satu.Text = 0 Or satu.Text = 9 Then

            'satu.Text = ""

            'End If

        Loop While acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            dua.Text = acak

            'If dua.Text = 10 Or dua.Text = 0 Or dua.Text = 9 Then

            'dua.Text = ""

            ' End If

        Loop While dua.Text = satu.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            tiga.Text = acak

            'If tiga.Text = 10 Or tiga.Text = 0 Or tiga.Text = 9 Then

            'tiga.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            empat.Text = acak

            ' If empat.Text = 10 Or empat.Text = 0 Or empat.Text = 9 Then

            'b4.Text = ""

            ' End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            lima.Text = acak

            'If lima.Text = 10 Or lima.Text = 0 Or lima.Text = 9 Then

            'lima.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            enam.Text = acak

            'If enam.Text = 10 Or enam.Text = 0 Or enam.Text = 9 Then

            'enam.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            tujuh.Text = acak

            'If tujuh.Text = 10 Or tujuh.Text = 0 Or tujuh.Text = 9 Then

            'tujuh.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            delapan.Text = acak

            'If delapan.Text = 10 Or delapan.Text = 0 Or delapan.Text = 9 Then

            'delapan.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = tujuh.Text Or acak = 10 Or acak = 9

        Do

            acak = Rnd() * 10

            sembilan.Text = acak

            ' If sembilan.Text = 10 Or sembilan.Text = 0 Or sembilan.Text = 9 Then

            'sembilan.Text = ""

            'End If

        Loop While acak = satu.Text Or acak = dua.Text Or acak = tiga.Text Or acak = empat.Text Or acak = lima.Text Or acak = enam.Text Or acak = tujuh.Text Or acak = delapan.Text Or acak = 10 Or acak = 9

        Dim control As Windows.Forms.Control

        For Each control In Me.Controls

            If control.Text = "0" Then

                control.Text = ""

            End If

        Next

    End Sub

    Private Sub satu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles satu.Click

        x = satu.Text

        If (dua.Text = "") Then

            satu.Text = ""

            dua.Text = x

        ElseIf (empat.Text = "") Then

            satu.Text = ""

            empat.Text = x

        End If

        cek()

    End Sub

    Private Sub dua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dua.Click

        x = dua.Text

        If (satu.Text = "") Then

            dua.Text = ""

            satu.Text = x

        ElseIf (tiga.Text = "") Then

            dua.Text = ""

            tiga.Text = x

        ElseIf (lima.Text = "") Then

            dua.Text = ""

            lima.Text = x

        End If

        cek()

    End Sub

    Private Sub tiga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiga.Click

        x = tiga.Text

        If (dua.Text = "") Then

            tiga.Text = ""

            dua.Text = x

        ElseIf (enam.Text = "") Then

            tiga.Text = ""

            enam.Text = x

        End If

        cek()

    End Sub

    Private Sub empat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empat.Click

        x = empat.Text

        If (satu.Text = "") Then

            empat.Text = ""

            satu.Text = x

        ElseIf (lima.Text = "") Then

            empat.Text = ""

            lima.Text = x

        ElseIf (tujuh.Text = "") Then

            empat.Text = ""

            tujuh.Text = x

        End If

        cek()

    End Sub

    Private Sub lima_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lima.Click

        x = lima.Text

        If (dua.Text = "") Then

            lima.Text = ""

            dua.Text = x

        ElseIf (empat.Text = "") Then

            lima.Text = ""

            empat.Text = x

        ElseIf (enam.Text = "") Then

            lima.Text = ""

            enam.Text = x

        ElseIf (delapan.Text = "") Then

            lima.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub enam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enam.Click

        x = enam.Text

        If (tiga.Text = "") Then

            enam.Text = ""

            tiga.Text = x

        ElseIf (lima.Text = "") Then

            enam.Text = ""

            lima.Text = x

        ElseIf (sembilan.Text = "") Then

            enam.Text = ""

            sembilan.Text = x

        End If

        cek()

    End Sub

    Private Sub tujuh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tujuh.Click

        x = tujuh.Text

        If (empat.Text = "") Then

            tujuh.Text = ""

            empat.Text = x

        ElseIf (delapan.Text = "") Then

            tujuh.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub delapan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delapan.Click

        x = delapan.Text

        If (tujuh.Text = "") Then

            delapan.Text = ""

            tujuh.Text = x

        ElseIf (lima.Text = "") Then

            delapan.Text = ""

            lima.Text = x

        ElseIf (sembilan.Text = "") Then

            delapan.Text = ""

            sembilan.Text = x

        End If

        cek()

    End Sub

    Private Sub sembilan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sembilan.Click

        x = sembilan.Text

        If (enam.Text = "") Then

            sembilan.Text = ""

            enam.Text = x

        ElseIf (delapan.Text = "") Then

            sembilan.Text = ""

            delapan.Text = x

        End If

        cek()

    End Sub

    Private Sub cek()

        If (satu.Text = "1" And dua.Text = "2" And tiga.Text = "3" And empat.Text = "4" And lima.Text = "5" And enam.Text = "6" And tujuh.Text = "7" And delapan.Text = "8" And sembilan.Text = "") Then

            MsgBox("Selamat Anda Menang")

        End If

    End Sub

    Private Sub acak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles acak.Click

        jalan = Not jalan

        Timer1.Enabled = jalan

        If Timer1.Enabled = True Then

            acak.Text = "STOP"

        Else

            acak.Text = "ACAK"

        End If

    End Sub

    Private Sub tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup.Click

        If MsgBox("Anda yakin akan keluar ? ", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") Then

            Me.Close()

        End If

    End Sub

End Class