tugas vb 2

Private Sub btalamat1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btalamat1.Click

        Dim alamat As String

        alamat = "kuningan"

        txtalamat.Text = alamat

    End Sub

•   Pada tombol Nama1 dan Nama2 jika diklik hasilnya berbeda saat ditampilkan pada textbox nama, karena pada btnama1_Click menggunakan variabel Dim yang hanya dapat dikenal ditempat variabel tersebut dipesan. Sedangkan pada btnama2_Click menggunakan variabel yang nilainya diambil dari Module. Kemudian saat menekan tombol Alamat1 dan Alamat2 alamat yang ditampilkan alamatnya sama, karena terdapat pendeklarasian variabel alamat pada class form " const alamat as string = "kuningan" ". karena fungsi konstanta adalah untuk menyimpan nilai.

•   Saat menekan tombol Tambah Umur1 hasil pada textbox selalu keluar angka 1, namun saat menekan tombol Tambah Umur2 hasilnya selalu bertambah 1 dari umur sebelumnya. Hal ini disebabkan pada bttambahumur1_Click menggunakan variabel Dim, yang hanya dapat dikenal ditempat variabel tersebut dipesan walaupun pada listing programnya sudah diberi umur+=1. Sedangkan pada bttambahumur2_Click menggunakan variabel Static yang nilainya tidak akan hilang selama program dijalankan, sehingga nilainya akan terus bertambah.

•   Analisa pada Form dua. Masing - masing tombol Nama, Alamat, dan Umur. Ketiga button ini tidak mempunyai pendeklarasian pada subprogram. Tombol tersebut memanggil nilai dari pendeklarisian yang ada di modul, sebab pendeklarasian yang ada di modul bersifat public yang artinya pendeklarasian tersebut dapat digunakan di seluruh program.

Jawaban Latihan 2 If dan Case

Menurut analisa saya kelemahan pada latihan 2 If dan Case yaitu  tidak ada tombol Hitung. Pada program ini saya rasa user atau orang awam akan merasa kebingungan saat menggunakannya, apabila akan menginputkan datanya. Maka saya sedikit merubah posisi radio button "Tunai" dan "Kredit" serta menambahkan tombol Hitung. Sehingga tampilannya akan menjadi seperti ini: 

Listing program dari tombol Hitung yaitu:

Private Sub bthitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthitung.Click

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

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

        If Me.radiotunai.Checked = True Then

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

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

        ElseIf Me.radiokredit.Checked = True Then

            txtdiskon.Text = 0

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

        End If

    End Sub

Kelemahan selanjutnya pada pilihan Kode Barang "TAS" listing programnya belum sempurna, pada saat program dijalankan hasilnya 0. Seharusnya seperti ini:

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 = 1500000

            Case "TOP"

                namabarang = "Topi"

                harga = 500000

            Case "TAS"

                namabarang = "Tas"

                harga = 130000

            Case Else

                namabarang = "-"

                harga = 0

        End Select

        txtnama.Text = namabarang

        txtharga.Text = harga

    End Sub

Tampilan setelah kita memilih Kode Barang "TAS" dan menginputkan Jumlah Barang

 

Kemudian kelemahan yang saya temukan lagi yaitu pada tombol Clear apabila kita menekannya maka semua hasil yang ditampilkan texbox akan hilang, akan tetapi pada radio button Cara Beli akan berubah menjadi FALSE.  

Tampilan pada program sebelumnya pada saat menekan tombol Clear

Perbaikannya seperti ini: 

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

        txtnama.Clear()

        txtharga.Clear()

        txtjumlah.Clear()

        txttotal.Clear()

        txtdiskon.Clear()

        txtbayar.Clear()

        radiotunai.Text = "Tunai"

        radiokredit.Text = "Kredit"

        cmbkode.Text = " "

    End Sub

 

Tampilan program setelah diperbaiki pada saat menekan tombol Clear