Listview Perhitungan Penjualan Barang

Listview Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.items.add("AC001")
        kode.Items.Add("AC002")
        kode.Items.Add("AS001")
        kode.Items.Add("AS002")
        buat_tabel()
    End Sub
    Sub buat_tabel()
        LV.Columns.Add("No. Pembelian", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Merek", 90, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Barang", 75, HorizontalAlignment.Left)
        LV.Columns.Add("Total Harga", 95, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isi_tabel()
        Dim lst As New ListViewItem
        lst.Text = Pembelian.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merek.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim s = Microsoft.VisualBasic.Left(kode.Text, 2)
        Dim p = Microsoft.VisualBasic.Right(kode.Text, 1)
        If kode.Text = "AC001" Then
            nama.Text = "Flashdisk 6 GB"
            If s = "AC" Then
                merek.Text = "ACCER"
            End If
            If p = "1" Then
                harga.Text = "60000"
            End If
        ElseIf (kode.Text = "AC002") Then
            nama.Text = "Flashdisk 4 GB"
            If s = "AC" Then
                merek.Text = "ACCER"
            End If
            If p = "2" Then
                harga.Text = "50000"
            End If
        ElseIf (kode.Text = "AS001") Then
            nama.Text = "Flashdisk 6 GB"
            If s = "AS" Then
                merek.Text = "ASSUS"
            End If
            If p = "1" Then
                harga.Text = "70000"
            End If
        ElseIf (kode.Text = "AS002") Then
            nama.Text = "Flashdisk 4 GB"
            If s = "AS" Then
                merek.Text = "ASSUS"
            End If
            If p = "2" Then
                harga.Text = "80000"
            End If
        End If
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        total.Text = harga.Text * jumlah.Text
        isi_tabel()
        Pembelian.Text = ""
        kode.Text = ""
        nama.Text = ""
        merek.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub


    Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.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

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total.Text = jumlah.Text * harga.Text
        End If
    End Sub
End Class