Quis OnLine ListView Perhitungan Penjualan Barang

Ini adalah jawaban 1 Quis OnLine ListView Perhitungan Penjualan Barang  Pemograman Visual Basic.Net.

1. Desain Form

2. Listing Programnya:
Public Class Latihan2

    Private Sub Latihan2_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 i As String
        i = Microsoft.VisualBasic.Left(KodeBarang.Text, 2)
        If KodeBarang.Text = "TS001" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 4 GB"
            Harga.Text = "105000"
        ElseIf KodeBarang.Text = "TS002" Then
            Merk.Text = "Toshiba"
            NamaBarang.Text = "Flashdisk 2 GB"
            Harga.Text = "75000"
        ElseIf KodeBarang.Text = "VG001" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 4GB"
            Harga.Text = "90000"
        ElseIf KodeBarang.Text = "VG002" Then
            Merk.Text = "V-Gen"
            NamaBarang.Text = "Flashdisk 2GB"
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        TotalHarga.Text = JumlahBeli.Text * Harga.Text
    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub

    Private Sub ButnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButnKeluar.Click
        End
    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 ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub
    Sub buatTabel()
        ListView1.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.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)
        ListView1.Items.Add(Lst)
    End Sub

    Private Sub BtnSimpanKeListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListView.Click
        IsiTabel()
    End Sub

    Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub BtnHapusDataYangDiPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusDataYangDiPilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub
End Class

3. Hasil Programnya :

Sekian dan Terimakasih...!!!!!