Penjualan Barang

Latihan Listview Perhitungan Penjualan Barang

 

Perintahnya:

Public Class Form1

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

        isitabel()

        buattabel()

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Select Case Kode.Text

            Case "TS001"

                Merk.Text = "Toshiba"

                Nama.Text = "Flashdisk 4G"

                harga.Text = 105000

                jumlahbeli.Text = "3"

            Case "TS002"

                Merk.Text = "Toshiba"

                Nama.Text = "Flashdisk 2G"

                harga.Text = 75000

                jumlahbeli.Text = "5"

            Case "VG001"

                Merk.Text = "V-Gen"

                Nama.Text = "Flashdisk 4G"

                harga.Text = 90000

                jumlahbeli.Text = "2"

            Case "VG002"

                Merk.Text = "V-Gen"

                Nama.Text = "Flashdisk 2G"

                harga.Text = 60000

                jumlahbeli.Text = "2"

        End Select

    End Sub

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

        If Asc(e.KeyChar) = 13 Then

            totalharga.Text = jumlahbeli.Text * harga.Text

        End If

    End Sub

    Sub buattabel()

        LV.Columns.Add("no pembelian", 80, HorizontalAlignment.Center)

        LV.Columns.Add("kode barang", 180, HorizontalAlignment.Left)

        LV.Columns.Add("nama barang", 180, HorizontalAlignment.Left)

        LV.Columns.Add("merk", 180, HorizontalAlignment.Left)

        LV.Columns.Add("harga", 180, HorizontalAlignment.Left)

        LV.Columns.Add("jumlah beli", 180, HorizontalAlignment.Left)

        LV.Columns.Add("total harga", 180, 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(Kode.Text)

        lst.SubItems.Add(Nama.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 btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        isitabel()

        No.Text = ""

        Kode.Text = ""

        Nama.Text = ""

        Merk.Text = ""

        harga.Text = ""

        jumlahbeli.Text = ""

        totalharga.Text = ""

    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 btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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

        Me.Close()

    End Sub

  

Public Class Form1

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

        jtv.Items.Add("SONY")

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tharga.Text = harga.Text * jjual.Text

        If tharga.Text > 250000 Then

            discount.Text = 0.1 * tharga.Text

        End If

        tpembelian.Text = tharga.Text * discount.Text

    End Sub

End Class