Latihan Listview Perhitungan Penjualan Barang

Public Class Form1
    Sub buat_tabel()
        LV.Columns.Add("Kodebarang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Satuan", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Diskon", 100, HorizontalAlignment.Left)
        LV.Columns.Add("TotalKeseluruhan", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isi_tabel()
        Dim lst As New ListViewItem
        lst.Text = Kodebarang.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Satuan.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        lst.SubItems.Add(Diskon.Text)
        lst.SubItems.Add(TotalKeseluruhan.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Kodebarang.Text = ""
        Nama.Text = ""
        Satuan.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buat_tabel()
        Satuan.Items.Add("Unit")
        Satuan.Items.Add("Lusin")
        Satuan.Items.Add("Buah")
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        If e.KeyChar = Chr(13) Then
            Total.Text = Jumlah.Text * Harga.Text
            If Total.Text >= 2000000 Then
                Diskon.Text = 0.1 * Total.Text
            ElseIf Total.Text >= 1000000 Then
                Diskon.Text = 0.05 * Total.Text
            Else
                Diskon.Text = 0
            End If
        End If
        TotalKeseluruhan.Text = Val(Total.Text) - Val(Diskon.Text)

    End Sub

    Private Sub Total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total.TextChanged

    End Sub

    Private Sub Diskon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Diskon.TextChanged

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isi_tabel()
        Kodebarang.Text = ""
        Nama.Text = ""
        Satuan.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
        Diskon.Text = ""
        TotalKeseluruhan.Text = ""
    End Sub

End Class