TUGAS 4

Tugas 4

Buatlah Project baru dengan langkah-langkah sebagai berikut

1. Membuka Aplikasi Visual Basic 2010

2. Klik  Windows Form Application maka akan mucul tampilan seperti berikut

3.  Menampilkan Toolbox yang akan digunakan Untuk memunculkan toolbox, bisa   dimunculkan dari menu bar-view-other windows-tollbox

4. Bentuk Form seperti di bawah ini dengan menggunakan komponen toolbox di atas

Keterangan:

5. Double click pada design form lalu copy paste listing Program di bawah ini :

Public Class Form1

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

        ListBox1.SelectionMode = SelectionMode.MultiExtended 

        ListBox2.SelectionMode = SelectionMode.MultiExtended

    End Sub

    Private Sub btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btisi.Click

        If TextBox1.Text = "" Then

            MsgBox("di isi disit textbox'e ", vbCritical, "Pesan")

            TextBox1.Focus()

        Else

            ListBox1.Items.Add(TextBox1.Text)

            TextBox1.Text = ""

            TextBox1.Focus()

        End If

    End Sub

    Private Sub btangka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btangka.Click

        Dim i As Integer

        i = 1

        Do

            ListBox1.Items.Add(i)

            i = i + 1

        Loop Until i > 10

    End Sub

    Private Sub btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsatu.Click

        If ListBox1.SelectedItem = vbNullString Then

            MsgBox("Dipilih dulu lha....", vbCritical, "Pesan")

            ListBox1.Focus()

        Else

            ListBox2.Items.Add(ListBox1.SelectedItem)

            ListBox1.Items.Remove(ListBox1.SelectedItem)

        End If

    End Sub

    Private Sub btbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbeberapa.Click

        Dim pilih As Integer

        Dim x As Integer

        Dim y As Integer

        x = ListBox1.Items.Count

        y = ListBox1.SelectedIndices.Count

        If ListBox1.SelectedItem = vbNullString Then

            MsgBox("di isi disit textbox'e ", vbCritical, "Pesan")

            ListBox1.Focus()

        Else

            For pilih = 0 To y - 1

                ListBox2.Items.Add(ListBox1.SelectedItem)

                ListBox1.Items.Remove(ListBox1.SelectedItem)

            Next

        End If

    End Sub

    Private Sub btsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsemua.Click

        Dim x, y As Integer

        y = ListBox1.Items.Count

        For x = 0 To y - 1

            ListBox2.Items.Add(ListBox1.Items(x))

        Next

        ListBox1.Items.Clear()

    End Sub

    Private Sub bthpssatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpssatu.Click

        If ListBox2.SelectedItem = vbNullString Then

            MsgBox("Dipilih dulu lha....", vbCritical, "Pesan")

            ListBox2.Focus()

        Else

            ListBox2.Items.Remove(ListBox2.SelectedItem)

        End If

    End Sub

    Private Sub bthpsbeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpsbeberapa.Click

        Dim x, y As Integer

        y = ListBox2.SelectedIndices.Count

        If ListBox2.SelectedItem = vbNullString Then

            MsgBox("silahkan pilih beberapa yang akan di hapus ", vbCritical, "pesan")

            ListBox2.Focus()

        Else

            For x = 0 To y - 1

                ListBox2.Items.Remove(ListBox2.SelectedItem)

            Next

        End If

    End Sub

    Private Sub bthpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthpssemua.Click

        ListBox2.Items.Clear()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Close()

    End Sub

End Class

Catatan : 

• ListBox1.SelectionMode = SelectionMode.MultiExtended berfungsi atar item yang kita pilih bisa beberapa ataupun semua.
• ListBox1.Items.Add(ListBox1.SelectedItem) berfungsi untuk menambahkan item atau pilihan sesuai pilihan yang telah kita select pada LisBox1.
• ListBox1.Items.Remove(ListBox1.SelectedItem) berfungsi untuk menghapus pilihan sesuai pilihan yang telah kita select pada ListBox1
• ListBox1.Items.Clear() berfungsi untuk menghapus semua pilihan pada ListBox1.
• ListBox1.SelectedIndices.Count berfungsi untuk mengkoleksi pilihan yang sedang dipilih (Beberapa Pilihan).

Read More

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

Read More

Tugas Pemograman Visual

Daftar Tugas Pemograman Visual

Nama     : Mohamad Idris Dwi Saputro
NIM      : 11.11.1935
Kelas     : TI 11 Sore

1. Tugas Pemograman Visual Ke-1
2. Tugas Pemograman Visual Ke-2
3. Tugas Pemograman Visual Ke-3
4. Tugas Pemograman Visual Ke-4
5. Tugas Pemograman Visual Ke-7
6. Tugas Pemograman Visual Ke-8

Read More

Tugas2

Tugas 2

Latihan 1 No 3

a. Pada alamat kita menambahkan dim di depan alamat

b. Karena pada nama1 memangil alamat lokal, sedang pada nama 2 memanggil nama public.dan nama 2 tidak dapat memanggil nama1 karena bersifat lokal. Pada alamat hasil output sama karena pada program tersebut menggunakan const alamat.

c. Pada tambah umur buton umur satu, dim diganti dengan static.
d. Menurut analisa saya pada form2, ada tulisan baris perintah Option Explicit Off di form 2
artinya bahwa variabel pada Form Dua tidak perlu kita definisikan dan program akan langsung mengambil definisi variabel-variabel itu dari variabel Public yang terdapat dimanapun. Pada program ini variabel-variable tersebut terdapat pada Module1

Latihan 2

Langkah-Langkah:

1. Membuka Aplikasi Visual Basic 2010

2. Klik  New Project maka akan mucul tampilan seperti berikut

Pilih Windows Forms Aplication lalu klik OK pada bagian bawah.

3.  Menampilkan Toolbox yang akan digunakan Untuk memunculkan toolbox, bisa   dimunculkan dari menu bar-view-other windows-tollbox

A.                MEMBUAT DESIGN FORM

1. Bentuk Form seperti di bawah ini dengan menggunakan komponen toolbox 

2. Ubah form di atas menjadi seperti di bawah ini

3. Untuk mengganti background, form1 dipilih-properties – Backgroundimage-local resource-import-ok  dan ganti BackgroundImageLayout dengan Stertch agar Backgroud menyesuaikan ukuran dari form

4. (Sebagai Tambahan) Untuk membuat agar gambar dapat muncul yaitu dengan klik picture box pada toolbox-import gambar yang diinginkan (dengan cara properties – Backgroundimage-local resource-import-ok)

Insert 5 PictureBox dengan ukuran yang sama dan tumpuk jadi satu dengan gambar pada PictureBox1(Sepatu), PictureBox2(Sandal), PictureBox3(T-Shirt), PictureBox4(Topi) dan PictureBox5(Tas).

6. Pada properties picture box, visible = false , agar gambar tidak muncul kembali

A.                MEMBUAT LISTING PROGRAM

1. Double click pada design form lalu copy paste listing Program di bawah ini :

Public Class Form1

   

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

        ComboBox1.Items.Add("SPT")

        ComboBox1.Items.Add("SND")

        ComboBox1.Items.Add("TST")

        ComboBox1.Items.Add("TOP")

        ComboBox1.Items.Add("TAS")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Dim kdbarang, nmbarang As String

        Dim harga As Single

        kdbarang = ComboBox1.Text

        Select Case kdbarang

            Case "SPT"

                nmbarang = "Sepatu"

                harga = 200000

                PictureBox1.Show()

            Case "SND"

                nmbarang = "Sandal"

                harga = 100000

                PictureBox1.Show()

            Case "TST"

                nmbarang = "T-Shirt"

                harga = 150000

                PictureBox3.Show()

            Case "TOP"

                nmbarang = "Topi"

                harga = 50000

                PictureBox4.Show()

            Case "TAS"

                nmbarang = "Tas"

                harga = 80000

                PictureBox5.Show()

        End Select

        TextBox1.Text = nmbarang

        TextBox2.Text = harga

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        TextBox4.Text = Val(TextBox2.Text) * Val(TextBox3.Text)

        TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        TextBox5.Text = Val(TextBox4.Text) * 10 / 100

        TextBox6.Text = Val(TextBox4.Text) - Val(TextBox5.Text)

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        TextBox5.Text = 0

        TextBox4.Text = Val(TextBox6.Text) - Val(TextBox5.Text)

    End Sub

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

        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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If TextBox7.Text = "" Then

            MessageBox.Show(TextBox7, "Maaf Anda Belum Memasukkan Uang Bayar")

        ElseIf TextBox7.Text < TextBox6.Text Then

            MessageBox.Show(TextBox7, "Maaf Uang Anda Kurang")

        ElseIf TextBox7.Text > TextBox6.Text Then

            TextBox8.Text = TextBox7.Text - TextBox6.Text

        End If

    End Sub

End Class

Read More