Kuis Hari Kamis Soal No 2

Untuk melihat kasus klik disini...

Public Class Form1

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

        buattabel()

        Kdbrg.Items.Add("TS001")

        Kdbrg.Items.Add("TS002")

        Kdbrg.Items.Add("VG001")

        Kdbrg.Items.Add("VG002")

       

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

       

    End Sub

    Sub buattabel()

        lv.Columns.Add("No pembeli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Kode Barang", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total harga", 90, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = No.Text

        Lst.SubItems.Add(Kdbrg.Text)

        Lst.SubItems.Add(Namabrg.Text)

        Lst.SubItems.Add(merk.Text)

        Lst.SubItems.Add(harga.Text)

        Lst.SubItems.Add(Jlhbeli.Text)

        Lst.SubItems.Add(total.Text)

        lv.Items.Add(Lst)

    End Sub

                                                                                            

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click

        No.Text = ""

        Kdbrg.Text = ""

        Namabrg.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jlhbeli.Text = ""

        Total.Text = ""

        No.Focus()

    End Sub

    Private Sub Kdbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdbrg.SelectedIndexChanged

        If Kdbrg.Text = "TS001" Then

            Namabrg.Text = "Flashdisk 4GB"

            Merk.Text = "Toshiba"

            Harga.Text = "105000"

        ElseIf Kdbrg.Text = "TS002" Then

            Namabrg.Text = "Flashdisk 2GB"

            Merk.Text = "Toshiba"

            Harga.Text = "75000"

        ElseIf Kdbrg.Text = "VG001" Then

            Namabrg.Text = "Flashdisk 4GB"

            Merk.Text = "V-Gen"

            Harga.Text = "90000"

        ElseIf Kdbrg.Text = "VG002" Then

            Namabrg.Text = "Flashdisk 2GB"

            Merk.Text = "V-Gen"

            Harga.Text = "60000"

        Else

            Namabrg.Text = ""

            Merk.Text = ""

            Harga.Text = ""

        End If

    End Sub

    Private Sub Btnsimpan_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Total.Text = Val(Jlhbeli.Text) * Val(Harga.Text)

        isitabel()

        No.Text = ""

        Kdbrg.Text = ""

        Namabrg.Text = ""

        Harga.Text = ""

        Merk.Text = ""

        Jlhbeli.Text = ""

        Total.Text = ""

    End Sub

    Private Sub Btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdatayangdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Hasil Program