Perhitungan Penjualan Barang di VB2008

desain aja form anda sperti yang terlihat di samping...
kemudian langsung saja, ketikan listing berikut secara lengkap, jangan sampe salah yaaaa.....






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