Langkah Membuat Program Penjualan Barang

Berikut adalah langkah - langkah dalam membuat program penjualan Televisi dengan menggunakan ListView

1. Buat dahulu Design form dari VB Net seperti gambar berikut




setelah design telah selesai, berikut nya adalah listing program.
Berikut adalah listing program tersebut :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KB.Items.Add("Sony001")
        KB.Items.Add("Sony002")
        KB.Items.Add("Sony003")
        KB.Items.Add("Sony004")
        Buattabel()
    End Sub

    Private Sub KB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.SelectedIndexChanged
        Select Case KB.Text
            Case "Sony001"
                NB.Text = "TV LED 21'"
                Harga.Text = 2000000
            Case "Sony002"
                NB.Text = "TV LED 32'"
                Harga.Text = 2800000
            Case "Sony003"
                NB.Text = "TV LCD 21'"
                Harga.Text = 1800000
            Case "Sony004"
                NB.Text = "TV LCD 32'"
                Harga.Text = 2400000
        End Select
    End Sub

    Private Sub TH_Enter1(ByVal sender As Object, ByVal e As System.EventArgs) Handles TH.Enter
        TH.Text = Harga.Text * JJ.Text
        If TH.Text > 2500000 Then
            Disc.Text = 0.1 * TH.Text
        Else
            Disc.Text = 0 * TH.Text
        End If
        TP.Text = TH.Text - Disc.Text
    End Sub
    Sub Buattabel()
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Jual", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Disc", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Pembayaran", 120, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = KB.Text
        lst.SubItems.Add(NB.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JJ.Text)
        lst.SubItems.Add(TH.Text)
        lst.SubItems.Add(Disc.Text)
        lst.SubItems.Add(TP.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isitabel()
        KB.Text = ""
        NB.Text = ""
        Harga.Text = ""
        JJ.Text = ""
        TH.Text = ""
        Disc.Text = ""
        TP.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 BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        LV.Items.Clear()
    End Sub

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

 Setelah Selesai Listing Program dan Design Program Tersebut Maka Hasil dari Listing Program dan Design Tersebut seperti di bawah ini

 Gambar Dari Hasil Program Penjualan Televisi Merek Sony

Kemudian Gambar berikut adalah hasil dari Listing Program

Itu lah langkah - Langkah dalam membuat  Program Penjualan dengan ListView Menggunakan Visual Basic 2008 atau VB Net.
Sekian dan Terima Kasih