Tugas 2 Pemrograman Visual

TUGAS PRAKTIKUM KE-2  TUGAS PEMROGRAMAN VISUAL

Jawaban soal no 3

A  .Terjadinya error pada btalamat 1_Clik pada baris program alamat “Kuningan” dikarenakan variabel tidak di definisikan terlebih dahulu sehingga program tak bisa di jalankan,seharusnya di depan baris program alamat di beri tambahan variabel dim agar program dapat di jalankan.

B.  Tampilan pada tombol  nama 1 dan nama 2 bisa berbeda karena  pada tombol nama 1 hanya di deklrasikan pada texbox nama 1 sedangkan tombol pada nama 2 di tidak ada variabel yang di tulis pada texbox ke 2 maka secara otomatis tombol nama 2 yang akan tampil di ambil dari module.

Sedangkan pada alamat1 dan alamat 2 alamat yang di tampilkan sama karena  pada program tersebut sudah ada pendeklarasian const alamat maka jika kita klik tombol alamat 1 dan alamat 2 tampilannya akan sama.

C.  Pada saat kita menekan tombol 1 maka yang akan keluar selalu angka 1 karena dalam program ini menggunakan “dim” yang berarti hanya angka 1 yang akan keluar,sedangkan  pada tombol 2 menggunakan “static” apabila kita menekan tombol 2 akan selalu bertambah  1 terus saat kita meng kliknya.

D.  Pada from 2 semua data yang di tampilkan mengambil dari module seperti nama,alamat dan umur karena modulebersifat umum.

JAWABAN 2

Analisis kelemahan program “ LATIHAN 2 IF CASE ”

Di dalam program ini saya menemukan  kekurangan pada listing program kode tas.Apabila kita memilih TAS pada combobox maka harga dan nama tidak keluar. Seharusnya kita menambahkan

                Case "TAS"

                namabarang = "Tas"

                harga = 40000

pada listing programnya sehingga harga dan nama barang akan muncul

seperti gambar di bawah ini:

PEMBELIAN SECARA TUNAI

PEMBELIAN SECARA KREDIT

 

PROSES MENGHAPUS

 

Listing program yang benar lihat di bawah ini:

Public Class Form1

    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 cmbkode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbkode.SelectedIndexChanged

        Dim kdbarang, namabarang As String

        Dim harga As Single

        kdbarang = cmbkode.Text

        Select Case kdbarang

            Case "SPT"

                namabarang = "Sepatu"

                harga = 200000

             Case "SND"

                namabarang = "Sandal"

                harga = 100000

              Case "TST"

                namabarang = "T-Shirt"

                harga = 150000

               Case "TOP"

                namabarang = "Topi"

                harga = 50000

                Case "TAS"

                namabarang = "Tas"

                harga = 40000

           Case Else

                namabarang = ""

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

  Private Sub txtjumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjumlah.TextChanged

        txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text)

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

Private Sub radiotunai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiotunai.CheckedChanged

        txtdiskon.Text = Val(txttotal.Text) * 10 / 100

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub radiokredit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radiokredit.CheckedChanged

        txtdiskon.Text = 0

        txtbayar.Text = Val(txttotal.Text) - Val(txtdiskon.Text)

    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click

        txtbayar.Clear()

        txtdiskon.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txtnama.Clear()

        txttotal.Clear()

        Me.radiotunai.Checked = False

        Me.radiokredit.Checked = False

        cmbkode.Text = ""

    End Sub

  Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click

        Me.Close()

    End Sub

End Class

TERIMA KASIH