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