Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

LATIHAN LISTVIEW PERHITUNGAN PENJUALAN BARANG

CODING PERHITUNGAN PENJUALAN BARANG

PublicClass Form1

Sub Buat_Table()

        LV.Columns.Add("No Pembeli", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

EndSub

Sub Isi_Table()

Dim lst AsNew ListViewItem

        lst.Text = No_Pembelian.Text

        lst.SubItems.Add(Kode_Barang.Text)

        lst.SubItems.Add(Nama_Barang.Text)

        lst.SubItems.Add(Merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jumlah_Beli.Text)

        lst.SubItems.Add(Total_Harga.Text)

        LV.Items.Add(lst)

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        Kode_Barang.Items.Add("VG001")

        Kode_Barang.Items.Add("VG002")

        Kode_Barang.Items.Add("TS001")

        Kode_Barang.Items.Add("TS002")

Call Buat_Table()

EndSub

PrivateSub Kode_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Barang.SelectedIndexChanged

Dim x AsString

        x = Mid(Kode_Barang.Text, 1, 2)

SelectCase x

Case"VG"

                Merk.Text = "V-GEN"

Case"TS"

                Merk.Text = "Toshiba"

EndSelect

        x = Mid(Kode_Barang.Text, 3, 3)

SelectCase x

Case"001"

                Nama_Barang.Text = "Flashdisk 4GB"

Case"002"

                Nama_Barang.Text = "Flashdisk 2GB"

EndSelect

If Kode_Barang.Text = "TS001"Then

            Harga.Text = 105000

ElseIf Kode_Barang.Text = "TS002"Then

            Harga.Text = 75000

ElseIf Kode_Barang.Text = "VG001"Then

            Harga.Text = 90000

ElseIf Kode_Barang.Text = "VG002"Then

            Harga.Text = 60000

EndIf

EndSub

PrivateSub Jumlah_Beli_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress

If Asc(e.KeyChar) = 13 Then

            Total_Harga.Text = Harga.Text * Jumlah_Beli.Text

EndIf

EndSub

PrivateSub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

Call Isi_Table()

EndSub

PrivateSub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        No_Pembelian.Text = ""

        Kode_Barang.Text = ""

        Nama_Barang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jumlah_Beli.Text = ""

        Total_Harga.Text = ""

EndSub

PrivateSub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

EndSub

PrivateSub btnHapusPilih_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHapusPilih.Click

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

EndSub

PrivateSub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

Me.Close()

EndSub

EndClass

HASIL AKHIR