Quiz listview perhitungan penjualan barang

quiz online

listing program nya

Public Class Form1
    Sub BuatTabel1()
        lv.Columns.Add("No Pembelian", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Kode_Barang", 180, HorizontalAlignment.Center)
        lv.Columns.Add("Nama Barang", 40, HorizontalAlignment.Center)
        lv.Columns.Add("Merk", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Ukuran", 60, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.MultiSelect = True
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = n_beli.Text
        lst.SubItems.Add(k_barang.Text)
        lst.SubItems.Add(n_barang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(ukuran.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jlh_beli.Text)
        lst.SubItems.Add(t_harga.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(bayar.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        k_barang.Items.Add("SNY-TV-021")
        k_barang.Items.Add("SMS-TV-032")
        k_barang.Items.Add("TSH-TV-040")
        k_barang.Items.Add("SHR-TV-024")
        k_barang.Items.Add("PLY-TV-029")


        BuatTabel1()

    End Sub

    Private Sub k_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_barang.SelectedIndexChanged
        Dim x As String

        x = Microsoft.VisualBasic.Right(k_barang.Text, 3)
        If x = "021" Then
            ukuran.Text = "21"


        ElseIf x = "024" Then
            ukuran.Text = "24"

        ElseIf x = "032" Then
            ukuran.Text = "32"

        ElseIf x = "040" Then
            ukuran.Text = "40"

        ElseIf x = "029" Then
            ukuran.Text = "29"

        End If


        x = Microsoft.VisualBasic.Left(k_barang.Text, 3)

        If x = "SNY" Then
            merk.Text = "SONNY"
            harga.Text = "2000000"

        ElseIf x = "SMS" Then
            merk.Text = "SAMSUNG"
            harga.Text = "3850000"
        ElseIf x = "TSH" Then
            merk.Text = "TOSHIBA"
            harga.Text = "4750000"
        ElseIf x = "SHR" Then
            merk.Text = "SHARP"
            harga.Text = "2650000"
        ElseIf x = "PLY" Then
            merk.Text = "POLYTRON"
            harga.Text = "2990000"
        End If

        x = Microsoft.VisualBasic.Mid(k_barang.Text, 5, 2)

        If x = "TV" Then
            n_barang.Text = "Televisi"


        Else
            n_barang.Text = "Barang_Salah"

        End If


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub jlh_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh_beli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            t_harga.Text = harga.Text * jlh_beli.Text + Val(harga.Text)

            pajak.Text = 0.01 * t_harga.Text

            Bayar.Text = Val(pajak.Text) + Val(t_harga.Text)
        End If
    End Sub

    Private Sub jlh_beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_beli.TextChanged

    End Sub

    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        n_beli.Text = ""
        k_barang.Text = ""
        n_barang.Text = ""
        merk.Text = ""
        ukuran.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        t_harga.Text = ""
        pajak.Text = ""
        Bayar.Text = ""
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        IsiTabel()
        n_beli.Text = ""
        k_barang.Text = ""
        n_barang.Text = ""
        merk.Text = ""
        ukuran.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        t_harga.Text = ""
        pajak.Text = ""
        Bayar.Text = ""
    End Sub
End Class


tampilan akhir

quiz onlinelistview perhitungan penjualan barang