TUGAS PEMOGRAMAN VISUAL 2

 TUGAS PEMOGRAMAN VISUAL 2

Jawaban Untuk Soal Nomor 1

a. Yang menyebabkan error pada button btalamat1 adalah karena belum ada variable yang ‘memanggil’/ mendeklarasikan alamat kuningan tsb.
yang sebelumnya : alamat = "Kuningan"
                              Txtalamat.Text = alamat

Diubah menjadi    : Dim alamat As String
                                alamat = "Kuningan"
                                Txtalamat.Text = alamat

b. Karena pada textbox nama 1 akan mendeklarasikan String nama yang sudah ada di private subnya,

Dan textbox nama 2 akan mendeklarasikan String nama yang terdapat pada Module karena pada private subnya belum ada string yang dideklarasikan

jadi textnama 2 akan mendeklarasikan string nama pada module.

 

   c. Pada bttambahumur1 bersifat tetap (Variable Pendeklarasinya “DIM”) jadi dengan Listing itu ketika bttambahhumur1 hasilnya akan tetap meskipun rumusnya sudah benar.

Sedangkan pada bttambahumur2 bersifat statis (Variabel Pendeklarasinya “STATIC”) dengan Listing itu sehingga ketika di tekan bttambahumur2  akan selalu bertambah 1.

d d. Analisa Untuk Form 2

form 2 akan mendeklarasikan/memanggil variable dari module ketika button yang terdapat pada form 2 di tekan, karena pada form 2 tidak memilki variable tetap dan di form 2 terdapat Option Explicit Off yang mendeklarasikan variable pada module untuk form 2.

Jawaban Untuk Soal Nomor 2

Menurut saya kelemahan dari program if else yang dicontohkan soal tersebut adalah tidak terdapat harga untuk TAS dan Kurang Menariknya program tersebut.

jadi saya tambahkan harga untuk TAS tersebut.

Ini adalah tampilan pertama program tersebut :

dan saya beri sedikit 'sentuhan' untuk membuat program tsb menarik dengan memberikan BACKGROUND IMAGE , dan ini hasilnya :

dan untuk button tutup yang tadinya program itu langsung keluar diganti dengan button tutup yang terdapat pilihan Yes atau No , berikut screenshotnya :

berikut listing programnya :

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 String
        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 = 500000
            Case Else
                namabarang = " Tas "
                harga = 25000
        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 = " "
        cmbkode.Focus()
    End Sub

    Private Sub bttutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttutup.Click
        If MsgBox("Anda yakin", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()

        End If

    End Sub
End Class

Sekian Penjelasan Dari Saya , Postingan ini di buat untuk memenuhi Tugas Pemograman Visual.

Terima Kasih.