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

JUDUL SOAL : Latihan Listview Perhitungan Penjualan Barang

Berikut Jawaban Program :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kodebrg.Items.Add("TS001")
        Kodebrg.Items.Add("TS002")
        Kodebrg.Items.Add("VG001")
        Kodebrg.Items.Add("VG002")

        Buattabel()
    End Sub
    Sub Buattabel()
        LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("KodeBrg", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NamaBrg", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("JlhBeli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("THarga", 80, HorizontalAlignment.Center)
        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(Kodebrg.Text)
        LST.SubItems.Add(NamaBrg.Text)
        LST.SubItems.Add(Merk.Text)
        LST.SubItems.Add(Harga.Text)
        LST.SubItems.Add(JlhBeli.Text)
        LST.SubItems.Add(THarga.Text)
        LV.Items.Add(LST)


    End Sub
    Sub Smpn(ByVal t As Form)
        Nopembelian.Text = ""
        Kodebrg.Text = ""
        NamaBrg.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JlhBeli.Text = ""
        THarga.Text = ""

    End Sub


    Private Sub Kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodebrg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kodebrg.Text, 2)
        Select Case x
            Case "TS" : Merk.Text = "Toshiba"
            Case "VG" : Merk.Text = "V-gen"
        End Select
        Dim y As String
        y = Microsoft.VisualBasic.Right(Kodebrg.Text, 3)
        Select Case y
            Case "001" : NamaBrg.Text = "Flashdisk4GB"
            Case "002" : NamaBrg.Text = "Flashdisk2GB"
        End Select
        Dim W As String
        W = Microsoft.VisualBasic.Mid(Kodebrg.Text, 1)
        Select Case W
            Case "TS001" : Harga.Text = "105000"
            Case "TS002" : Harga.Text = "75000"
            Case "VG001" : Harga.Text = "90000"
            Case "VG002" : Harga.Text = "60000"
        End Select
    End Sub

    Private Sub btnSimpanKeLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpanKeLV.Click
        isitabel()
        Smpn(Me)
    End Sub

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

    Private Sub btnHapusSD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSD.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
        Nopembelian.Text = ""
        Kodebrg.Text = ""
        NamaBrg.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JlhBeli.Text = ""
        THarga.Text = ""

    End Sub

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

Hasil Tampilan Program :