Yurna Lissahra

Berikut adalah Listing Programnya:
Public Class Form1
    Sub bersih()
        nopembli.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = nopembli.Text
        x.SubItems.Add(kodebarang.Text)
        x.SubItems.Add(namabarang.Text)
        x.SubItems.Add(merk.Text)
        x.SubItems.Add(harga.Text)
        x.SubItems.Add(jumlahbeli.Text)
        x.SubItems.Add(totalharga.Text)
        lv.Items.Add(x)
    End Sub
    Sub rancang()
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.GridLines = True
        lv.Columns.Add("Kode Pel", 100)
        lv.Columns.Add("Nama ", 140)
        lv.Columns.Add("Type", 160)
        lv.Columns.Add("Harga /kwh", 110)
        lv.Columns.Add("Daerah", 100)
        lv.Columns.Add("Biaya Beban", 100)
        lv.Columns.Add("Besar Pemakaian", 100)
        lv.Columns.Add("Total Tagihan", 100)
        lv.Columns.Add("Pajak", 100)
        lv.Columns.Add("Pembayaran", 100)
    End Sub
    Sub addbersih()
        nopembli.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
        nopembli.Focus()
    End Sub
    Sub addkodebarang()
        kodebarang.Items.Add("TV001")
        kodebarang.Items.Add("FD002")
        kodebarang.Items.Add("VD001")
        kodebarang.Items.Add("RD002")
    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        addkodebarang()
        rancang()
    End Sub
    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim x As String
        x = Strings.Left(kodebarang.Text, 2)
        If x = "TV" Then
            namabarang.Text = "Televisi"
        ElseIf x = "FD" Then
            namabarang.Text = "Flasdisk"
        ElseIf x = "VD" Then
            namabarang.Text = "VCD"
        Else
            namabarang.Text = "Radio"
        End If

        x = Strings.Right(kodebarang.Text, 3)

        Select Case kodebarang.Text
            Case "TV001"
                merk.Text = "Toshiba"
                harga.Text = "11200000"
            Case "FD002"
                merk.Text = "Kingstoon"
                harga.Text = "75000"
            Case "VD001"
                merk.Text = "Kawachi"
                harga.Text = "300000"
            Case "RD002"
                merk.Text = "Polytron"
                harga.Text = "60000"
        End Select
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        addbersih()
    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 btnhapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuspilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bersih()
    End Sub

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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        bersih()
    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
        lv.Items.Clear()
        bersih()

    End Sub
End Class

Sekian artikel tentang "Program Aplikasi Listview Penjualan Barang". Semoga artikel ini bisa