Listview Perhitungan Penjualan Barang

Public Class Form1

    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 x As String

        Dim x2 As String

        x = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)

        Select Case x

            Case "TS" : merk.text = "Toshiba"

            Case "VG" : merk.text = "V-Gen"

        End Select

        x2 = Microsoft.VisualBasic.Right(KodeBarang.Text, 3)

        Select Case x2

            Case "001" : NamaBarang.Text = "Flashdisk 4GB"

            Case "002" : NamaBarang.Text = "Flashdisk 2GB"

        End Select

        If x = "TS" And x2 = "001" Then

            Harga.Text = 105000

        ElseIf x = "TS" And x2 = "002" Then

            Harga.Text = 75000

        ElseIf x = "VG" And x2 = "001" Then

            Harga.Text = 90000

        Else

            Harga.Text = 60000

        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        NoPembelian.Text = ""

        KodeBarang.Text = ""

        NamaBarang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        JumlahBeli.Text = ""

        TotalHarga.Text = ""

    End Sub

 

    Sub buattabel()

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

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

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

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

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

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

        lv.Columns.Add("Total Harga", 80, 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(TotalHarga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

    End Sub

    Private Sub hapse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapse.Click

        lv.Items.Clear()

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            TotalHarga.Text = Harga.Text * JumlahBeli.Text

        End If

    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 = ""

        TotalHarga.Text = ""

    End Sub

    Private Sub hapdat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapdat.Click

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

    End Sub

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

        End

    End Sub

End Class