Berikut adalah merupakan Coding penghitungan penjualan barang menggunakan VB 2008.

Berikut codingnya :

Public Class Form1

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

   Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "TS001" Then
            Merk.Text = "Toshiba"
            Harga.Text = "105000"
            Namabarang.Text = "Flashdisk 4GB"
        ElseIf Kode.Text = "TS002" Then
            Merk.Text = "Toshiba"
            Harga.Text = "75000"
            Namabarang.Text = "Flashdiks 2GB"
        ElseIf Kode.Text = "VG001" Then
            Merk.Text = "V-Gen"
            Harga.Text = "9000"
            Namabarang.Text = "Flashdisk 4GB"
        ElseIf Kode.Text = "VG002" Then
            Merk.Text = "V-Gen"
            Harga.Text = "6000"
            Namabarang.Text = "Flashdiks 2GB"
        End If

    End Sub
    Sub buattabel()
        LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Totalharga.Text = Val(Harga.Text) * Val(Jumlah.Text)
        End If
    End Sub
    Sub masuktabel()
        Dim masuktabel As New ListViewItem
        masuktabel.Text = (No.Text)
        masuktabel.SubItems.Add(Kode.Text)
        masuktabel.SubItems.Add(Namabarang.Text)
        masuktabel.SubItems.Add(Merk.Text)
        masuktabel.SubItems.Add(Harga.Text)
        masuktabel.SubItems.Add(Jumlah.Text)
        masuktabel.SubItems.Add(Totalharga.Text)
        LV.Items.Add(masuktabel)
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        Call masuktabel()
        Call buattabel()


    End Sub
    Sub hapus()
        Kode.Text = ""
        Harga.Text = ""
        No.Text = ""
        Namabarang.Text = ""
        Merk.Text = ""
        Jumlah.Text = ""
        Totalharga.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call hapus()

    End Sub

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

    Private Sub Hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapusdipilih.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Pilih Dulu Mas Bro" & vbCrLf & "Data yg mau di pilih!", MsgBoxStyle.Critical, "siska")
        End If
    End Sub

   
End Class