Perhitungan Penjualan Barang

PERHITUNGAN PENJUALAN BARANG

Kasus Pemrograman : latihan listview perhitungan penjualan barang.

Design Form seperti gambar di bawah  :

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli


Contoh :
Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB.
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :
Kode Barang
001
002
TS
105000
75000
VG
90000
60000



PENYELESAIAN


Public Class Form1

    Private Sub No_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles No.TextChanged

    End Sub

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

    End Sub

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

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = No.Text
        lst.SubItems.Add(Kode.Text)
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)
    End Sub

   
    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        Dim x As String
        x = Mid(Kode.Text, 1, 2)
        If x = "TS" Then
            Merk.Text = "Thosiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-Gen"
        Else
            Merk.Text = "-"

        End If
        x = Mid(Kode.Text, 3, 3)
        If x = "001" Then
            Nama.Text = "Flash 4 GB"
        ElseIf x = "002" Then
            Nama.Text = "Flash 2 GB"
        Else
            Merk.Text = "-"

        End If
        If Merk.Text = "Thosiba" And Nama.Text = "Flash 4 GB" Then
            Harga.Text = "105000"
        ElseIf Merk.Text = "Thosiba" And Nama.Text = "Flash 2 GB" Then
            Harga.Text = "75000"
        ElseIf Merk.Text = "V-Gen" And Nama.Text = "Flash 4 GB" Then
            Harga.Text = "90000"
        ElseIf Merk.Text = "V-Gen" And Nama.Text = "Flash 2 GB" Then
            Harga.Text = "60000"
        Else
            Harga.Text = "-"

        End If

    End Sub

    Private Sub BBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBersih.Click
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

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

    Private Sub Total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total.TextChanged

    End Sub

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

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

    Private Sub BSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSimpan.Click
        Call isitabel()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
        Total.Text = Val(Harga.Text) * Val(Jumlah.Text)
    End Sub
End Class


HASIL