Contoh Membuat Daftar Distribusi Barang di Vb.net

Silakan desain Gambarnya di Vb anda seperti gambar di bawah

jika sudah siap anda desain gambar seperti diatas silakan copy listing programnnya di bawah, dan perhatikan dimana diletakkan listing - listing program tersebut.


Public Class Form1

    Private Sub kode_penjualan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_penjualan.SelectedIndexChanged
        If Not kode_penjualan.Text = "" Then
            If kode_penjualan.Text.Substring(0, 1) = "M" Then
                daerah_penjualan.Text = "Medan"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "J" Then
                daerah_penjualan.Text = "Jakarta"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "B" Then
                daerah_penjualan.Text = "Bali"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "A" Then
                daerah_penjualan.Text = "Aceh"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "S" Then
                daerah_penjualan.Text = "Semarang"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "P" Then
                daerah_penjualan.Text = "Pekan Baru"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "R" Then
                daerah_penjualan.Text = "Riau"
            ElseIf kode_penjualan.Text.Substring(0, 1) = "K" Then
                daerah_penjualan.Text = "Kalimantan"
            End If


            If kode_penjualan.Text.Substring(1, 1) = "D" Then
                bonus.Text = "DVD Player"
            ElseIf kode_penjualan.Text.Substring(1, 1) = "K" Then
                bonus.Text = "Kipas Angin"
            ElseIf kode_penjualan.Text.Substring(1, 1) = "T" Then
                bonus.Text = "Tas Ransel"
            End If

            If kode_penjualan.Text.Substring(2, 3) = "001" Then
                nama_barang.Text = "Dispenser"
                harga_barang.Text = "450000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "002" Then
                nama_barang.Text = "Kulkas"
                harga_barang.Text = "1650000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "003" Then
                nama_barang.Text = "TV Sony"
                harga_barang.Text = "1200000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "004" Then
                nama_barang.Text = "Laptop Dell"
                harga_barang.Text = "4650000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "005" Then
                nama_barang.Text = "Laptop Acer"
                harga_barang.Text = "4250000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "006" Then
                nama_barang.Text = "Mesin Cuci"
                harga_barang.Text = "2400000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "007" Then
                nama_barang.Text = "Joy Stick Silver"
                harga_barang.Text = "250000"
            ElseIf kode_penjualan.Text.Substring(2, 3) = "008" Then
                nama_barang.Text = "Speaker Aktif"
                harga_barang.Text = "850000"
            End If

            If kode_penjualan.Text.Substring(5, 2) = "HD" Then
                nama_sales.Text = "Hidayat"
            ElseIf kode_penjualan.Text.Substring(5, 2) = "SC" Then
                nama_sales.Text = "Suci"
            ElseIf kode_penjualan.Text.Substring(5, 2) = "AN" Then
                nama_sales.Text = "Andri"
            ElseIf kode_penjualan.Text.Substring(5, 2) = "IR" Then
                nama_sales.Text = "Irma"
            End If
        End If
    End Sub

   
    Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus.Click
        kode_penjualan.Text = ""
        nama_sales.Text = ""
        nama_barang.Text = ""
        harga_barang.Text = ""
        daerah_penjualan.Text = ""
        bonus.Text = ""
        jumlah_beli.Text = ""
        total_harga.Text = ""
        jumlah_bayar.Text = ""
        kembalian.Text = ""
    End Sub

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        If jumlah_beli.Text = "" Then
            MsgBox("Anda belum memasukkan jumlha beli", MsgBoxStyle.Information, "Pesan")
        Else
            total_harga.Text = Val(harga_barang.Text) * Val(jumlah_beli.Text)
        End If



        If Not jumlah_bayar.Text = "" Then
            If Val(jumlah_bayar.Text) < Val(total_harga.Text) Then
                MsgBox("Jumlah bayar yang anda masukkan kurang !!! ", MsgBoxStyle.Critical, "Pesan")
            Else
                kembalian.Text = Val(jumlah_bayar.Text) - Val(total_harga.Text)
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_penjualan.Items.Add("PD001HD")
        kode_penjualan.Items.Add("RK005SC")
        kode_penjualan.Items.Add("MK002AN")
        kode_penjualan.Items.Add("KT006SC")
        kode_penjualan.Items.Add("AD003IR")
        kode_penjualan.Items.Add("ST007AN")
        kode_penjualan.Items.Add("JT004HD")
        kode_penjualan.Items.Add("BK008SC")
    End Sub

  
End Class