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

judul soal :  http://www.mesran.blogspot.com/2013/05/latihan-listview-perhitungan-penjualan.html

Public Class Form1

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

        KDBARANG.Items.Add("TS001")

        KDBARANG.Items.Add("TS002")

        KDBARANG.Items.Add("VG001")

        KDBARANG.Items.Add("VG002")

        Call RANCANGTABLE()

    End Sub

    Sub RANCANGTABLE()

        LV.Columns.Add("NO PEMBELI", 100, 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.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

    End Sub

    Sub ISITABEL()

        Dim IKAN As New ListViewItem

        IKAN.Text = NOPEMBELI.Text

        IKAN.SubItems.Add(KDBARANG.Text)

        IKAN.SubItems.Add(NMBARANG.Text)

        IKAN.SubItems.Add(MERK.Text)

        IKAN.SubItems.Add(HARGA.Text)

        IKAN.SubItems.Add(JMLHBELI.Text)

        IKAN.SubItems.Add(THARGA.Text)

        LV.Items.Add(IKAN)

    End Sub

    Private Sub KDBARANG_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDBARANG.SelectedIndexChanged

        If KDBARANG.Text = "TS001" Then

            NMBARANG.Text = "Flashdisk 4GB"

            MERK.Text = "TOSHIBA"

            HARGA.Text = 105000

        ElseIf KDBARANG.Text = "TS002" Then

            NMBARANG.Text = "flashdisk 2GB"

            MERK.Text = "TOSHIBA"

            HARGA.Text = 75000

        ElseIf KDBARANG.Text = "VG001" Then

            NMBARANG.Text = "Flashdisk 4GB"

            MERK.Text = "V-GEN"

            HARGA.Text = 90000

        ElseIf KDBARANG.Text = "VG002" Then

            NMBARANG.Text = "Flashdisk 2GB"

            MERK.Text = "V-GEN"

            HARGA.Text = 70000

        End If

    End Sub

    Private Sub JMLHBELI_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles JMLHBELI.KeyUp

        If e.KeyCode = Keys.Enter Then

            THARGA.Text = HARGA.Text * JMLHBELI.Text

        End If

    End Sub

    Private Sub BTNSIMPANKELV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPANKELV.Click

        Call ISITABEL()

    End Sub

    Private Sub BTNHPSSEMUADT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHPSSEMUADT.Click

        NOPEMBELI.Text = ""

        KDBARANG.Text = ""

        NMBARANG.Text = ""

        MERK.Text = ""

        HARGA.Text = ""

        JMLHBELI.Text = ""

        THARGA.Text = ""

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

    End Sub

    Private Sub HPSDTYGDIPLH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPSDTYGDIPLH.Click

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

    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click

        NOPEMBELI.Text = ""

        KDBARANG.Text = ""

        NMBARANG.Text = ""

        MERK.Text = ""

        HARGA.Text = ""

        JMLHBELI.Text = ""

        THARGA.Text = ""

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        Dim tanya As String

        tanya = MsgBox("apaah anda ingin keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

        End If

    End Sub

End Class