Pemograman Penjualan Barang....

Gambar 1

Penjualan TV..... Mesran.net

 Buat dulu tabelnya kayak gini,,,










Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("NAMA BARANG", 100, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("DISC", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL HARGA", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAHJUAL", 100, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH BAYAR", 100, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = NB.Text
        Lst.SubItems.Add(hrg.Text)
        Lst.SubItems.Add(TOTHG.Text)
        Lst.SubItems.Add(DISC.Text)
        Lst.SubItems.Add(JLHJUAL.Text)
        Lst.SubItems.Add(JLHBAYAR.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub Form1_Load()
        BuatTabel()
        NB.Items.Add("Sony 14 Inci")
        NB.Items.Add("Sony 21 Inci")
        NB.Items.Add("Sony LED")

    End Sub
    Private Sub btnsimpan_Click()
        IsiTabel()
        NB.Text = ""
        HRG.Text = ""
        DISC.Text = ""
        TOTHG.Text = ""
        JLHJUAL.Text = ""
        JLHBAYAR.Text = ""
    End Sub
    Private Sub btnkeluar_Click()
        End
    End Sub
    Private Sub NB_SelectedIndexChanged()
        If NB.Text = "Sony 14 Inci" Then
            hrg.Text = "2500000"
        ElseIf NB.Text = "Sony 21 Inci" Then
            hrg.Text = "3500000"
        ElseIf NB.Text = "Sony LED" Then
            hrg.Text = "3800000"
        End If
    End Sub

    Private Sub btnproses_Click()
        TOTHG.Text = Val(hrg.Text) * Val(JLHJUAL.Text)
        If TOTHG.Text > "2500000" Then
            DISC.Text = "0.1" * TOTHG.Text
        ElseIf DISC.Text = "0" Then
        End If
        JLHBAYAR.Text = Val(TOTHG.Text) - Val(DISC.Text)
    End Sub

    Private Sub Button1_Click()
        LV.Items.Clear()
    End Sub
End Class
 

Kalau sudah kayak gini nih hasilnya..

Gambar 2

 












Selamat mencoba....jangan lupa komen ya ya..