jawaban QUIZ Online Hari SELASA(sobrun) point 2

jawaban QUIZ Online Hari SELASA point 2 jika ingin melihat soalnya linknya ada DISINI program dari latihan halaman 33 pada modul vb. net adalah sebagai berikut :

Public Class Form1

    Sub buattabel()
        Lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Barang", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Merk", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(total.Text)
        Lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        kodebarang.Items.Add("TS001")
        kodebarang.Items.Add("TS002")
        kodebarang.Items.Add("VG001")
        kodebarang.Items.Add("VG002")

    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim vjen As String
        Dim vjur As String
        vjen = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        merk.Text = If(vjen = "TS", "Thosiba", If(vjen = "VG", "V-GEN", ""))

        vjur = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        namabarang.Text = If(vjur = "001", "Flashdisk 4GB", If(vjur = "002", "Flashdisk 2GB", ""))

        Select Case kodebarang.Text
            Case "TS001"
                harga.Text = "105000"
            Case "TS002"
                harga.Text = "75000"
            Case "VG001"
                harga.Text = "90000"
            Case "VG002"
                harga.Text = "60000"
        End Select
    End Sub

    Private Sub jumlahbeli_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = (harga.Text) * (jumlahbeli.Text)
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
        kodebarang.Focus()
    End Sub

    Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
        Lv.Items.Clear()
        kodebarang.Focus()
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
        kodebarang.Focus()
    End Sub

    Private Sub hapusyangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusyangdipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
        kodebarang.Focus()
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

    End Sub

    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub
End Class


dan hasil program setelah kita tekan f5 adalah sebagai berikut :

setelah tampil inputkan data sesuai dengan pilihan pada form, seperti yang saya inputkan dibawah ini, maka hasilnya sebagai berikut:

demikian progaram yang dapat saya postingkan. terimakasih.