CARA PERHITUNGAN PENJUALAN BARANG

CARA PERHITUNGAN PENJUALAN BARANG

By : Joko Syahputra

Oke kali ini saya akan memberi tahu cara perhitungan penjualan barang melalui visiul basic 2008

langsung saja saya beri tahu caranya :

Di bawah ini adalah tampilan awalnya, ketika program belum jalan

desainlah seperti tampilan gambar di atas dan kemudia saya beri codingnya.... hehehehe.... bisa anda lihat di bawah ini....

Public Class Form1
    Sub BuatTabel()
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
        LV.Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 90, HorizontalAlignment.Center)

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        With lst
            .Text = NPembelian.Text
            .SubItems.Add(KBarang.Text)
            .SubItems.Add(NBarang.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(JBeli.Text)
            .SubItems.Add(THarga.Text)
        End With
        LV.Items.Add(lst)

    End Sub
    Sub tampilkodebrg()
        KBarang.Items.Add("TS001")
        KBarang.Items.Add("TS002")
        KBarang.Items.Add("VG001")
        KBarang.Items.Add("VG002")
    End Sub
    Sub bersih()
        NPembelian.Text = ""
        KBarang.Text = ""
        NBarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        JBeli.Text = ""
        THarga.Text = ""
    End Sub
    Private Sub Penjualan_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call BuatTabel()
        Call tampilkodebrg()
        Call bersih()
    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()

    End Sub

    Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        bersih()
    End Sub

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

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

    Private Sub KBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KBarang.SelectedIndexChanged
        Select Case KBarang.Text
            Case "TS001"
                Harga.Text = "105000"
                NPembelian.Text = "001"
            Case "TS002"
                Harga.Text = "75000"
                NPembelian.Text = "002"
            Case "VG001"
                Harga.Text = "90000"
                NPembelian.Text = "003"
            Case "VG002"
                Harga.Text = "60000"
                NPembelian.Text = "004"
        End Select
        Dim x As String
        x = Strings.Left(KBarang.Text, 2)
        Select Case x
            Case "TS"
                Merk.Text = "Toshiba"
            Case "VG"
                Merk.Text = "V-Gen"
        End Select
        Dim Y As String
        Y = Strings.Right(KBarang.Text, 5)
        If Y = "TS001" Then
            NBarang.Text = "Flashdisk 4GB"
        ElseIf Y = "TS002" Then
            NBarang.Text = "Flashdisk 2GB"
        ElseIf Y = "VG001" Then
            NBarang.Text = "Flashdisk 4GB"
        Else
            NBarang.Text = "Flashdisk 2GB"
        End If

    End Sub
    Private Sub JBeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            THarga.Text = (Harga.Text * JBeli.Text)
        End If
    End Sub

    Private Sub JBeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JBeli.TextChanged

    End Sub
End Class

Dan lihat hasilnya dengan menekan tombol F5........ 

lihat gambar di bawah ini.......

Dan ini adalah Gambar ke 2 ketika perhitungannya telah di masukan ke dalam Listview...

 Oke selamat mencobanya ya................