Tugas 2 Pemrograman Visual

Jawaban Latihan 1 soal No. 3

1. Karena variabel alamat nya ada 2.
2. Variabel nama pada Button1 bersifat local dan tidak dideklarasikan pada Button2. Sehingga nama pada Button2 diambil dari pendeklarasian Modul yaitu “Nandang Hermanto”. Sedangkan alamat sudah dideklarasikan yaitu berupa const sehingga pada Button1 dan Button2 akan bernilai sama, yaitu Kuningan.
3.  Karena pada Button1 umur dideklarasikan sebagai Dim, sedangkan pada Button2 umur dideklarasikan sebagai Static
4. Form2 Option Explisit Off. Ini berarti Form2 hanya membaca data dari Modul,  yaitu :Nama           : Nandang Hermanto
   Alamat        : Purwokerto
   Umur           : 17

Jawaban Latihan 2 If dan Case

Analisa Program :

1.         Sudah dimodifikasi dengan :

-          mengubah background form menjadi warna biru langit

-          Font diperbesar dengan ukuran 9 dan ditebalkan

2.         Pada Select Case belum ada data untuk kode “TAS” dengan nama “Tas”, maka penulis tambahkan.

3.         Ketika user mengisi Jumlah Barang, maka pada Total Bayar akan langsung terisi nominal angka meskipun Cara Beli belum dipilih.

Ini karena ada kode program yang berlebihan, sehingga pada modifikasi ini penulis hilangkan.

Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged

txttotharga.Text = Val(txthrgbarang.Text) * Val(txtjmlbarang.Text)

txttotBayar.Text = Val(txttotharga.Text) * Val(txtDiskon.Text)

End Sub

4.         Tambahkan property “read only” pada text Total Harga, Diskon, dan Total Bayar. Ini dilakukan agar hasil tidak bisa diubah oleh user.

Berikut Koding Program seutuhnya :

Public Class Form1

    Private Sub cmbKode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKode.SelectedIndexChanged

        Dim kdbarang, nmbarang As String

        Dim harga As Single

        kdbarang = cmbKode.Text

        Select Case kdbarang

            Case "SPT"

                nmbarang = "Sepatu"

                harga = 200000

            Case "SND"

                nmbarang = "Sandal"

                harga = 100000

            Case "TST"

                nmbarang = "T-Shirt'"

                harga = 150000

            Case "TOP"

                nmbarang = "Topi"

                harga = 50000

            Case "TAS"

                nmbarang = "Tas"

                harga = 300000

            Case Else

                nmbarang = "-"

                harga = 0

        End Select

        txtnmbarang.Text = nmbarang

        txthrgbarang.Text = harga

    End Sub

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

        cmbKode.Items.Add("SPT")

        cmbKode.Items.Add("SND")

        cmbKode.Items.Add("TST")

        cmbKode.Items.Add("TOP")

        cmbKode.Items.Add("TAS")

    End Sub

    Private Sub txttotharga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotharga.TextChanged

        txttotharga.Text = Val(txthrgbarang.Text) * Val(txtjmlbarang.Text)

    End Sub

    Private Sub txtjmlbarang_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjmlbarang.TextChanged

        txttotharga.Text = Val(txthrgbarang.Text) * Val(txtjmlbarang.Text)

    End Sub

    Private Sub optTunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optTunai.CheckedChanged

        txtDiskon.Text = Val(txttotharga.Text) * 10 / 100

        txtTotBayar.Text = Val(txttotharga.Text) - Val(txtDiskon.Text)

    End Sub

    Private Sub optKredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optKredit.CheckedChanged

        txtDiskon.Text = 0

        txtTotBayar.Text = Val(txttotharga.Text)

    End Sub

    Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click

        txtDiskon.Clear()

        txthrgbarang.Clear()

        txtjmlbarang.Clear()

        txtnmbarang.Clear()

        txtTotBayar.Clear()

        txttotharga.Clear()

        optKredit.Checked = False

        optTunai.Checked = False

        cmbKode.Text = ""

    End Sub

    Private Sub cmdTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTutup.Click

        Close()

    End Sub

End Class