Program Penjualan di Visual Studio 2010

Kembali membahas Visual Basic, kali ini kita akan membuat program penjualan.

Atau lebih tepatnya program kasir, yang dibahas dalam program ini adalah penggunaan Dim As atau membuat variabel di Visual Studio 2010.

Ini dia preview programnya.....

Ini bentuk formnya.....

Berikut ini coding awal program (Klik ganda di Formnya) :

GroupBox1.Text = "Penjualan"

ComboBox1.Text = "Pilih >>>"

ComboBox2.Text = "Tunai / Kredit"

Button1.Text = "Hapus"

Label1.Text = "Kode"

Label2.Text = "Nama Barang"

Label3.Text = "Jumlah"

Label4.Text = "Tunai / Kredit"

Label5.Text = "Harga Satuan : Rp"

Label6.Text = "Total : Rp"

Label7.Text = "Diskon : Rp"

Label8.Text = "Bayar : Rp"

Label9.Text = "Jumlah Uang : Rp"

Label10.Text = "Kembali : Rp"

Nah………

Ini dia, bagian Dim As (bukan Dim Sum), 

Kita menggunakan Dim ____ As String jika datanya (inputannya) dalam bentuk teks dan Dim ____ As Integer jika datanya dalam bentuk angka.

letakkan Dim As Diatas bagian Privatesub ComboBox1, Codingnya begini :

Dim Kode_Brg, Nama_brg As String

Dim Hrg_Satu As Integer

Kode_Brg = ComboBox1.Text

If Kode_Brg = "Mo" Then

Nama_brg = "Mouse"

Hrg_Satu = "50,000"

TextBox6.Text = Hrg_Satu

ElseIf Kode_Brg = "Pr" Then

Nama_brg = "Printer"

Hrg_Satu = "750,000"

TextBox6.Text = Hrg_Satu

ElseIf Kode_Brg = "Ha" Then

Nama_brg = "Harddisc"

Hrg_Satu = "500,000"

TextBox6.Text = Hrg_Satu

ElseIf Kode_Brg = "Fl" Then

Nama_brg = "Flashdisc"

Hrg_Satu = "100,000"

TextBox6.Text = Hrg_Satu

ElseIf Kode_Brg = "Lc" Then

Nama_brg = "LCD Projector"

Hrg_Satu = "400,000"

TextBox6.Text = Hrg_Satu

End If

TextBox1.Text = Nama_brg

TextBox3.Text = Hrg_Satu

Kayak di gambar ya..... 

 Di bagian setelah PrivateSub itu, saya menjelaskan apa yang dimaksud dengan variabel yang telah saya sebut tadi (Maaf kalau membuat anda bingung)

Contoh :

Kode_Brg = ComboBox1.Text maksudnya adalah Kode barang ditunjukkan dengan teks yang ada di ComboBox1

Begitu Juga dengan

Textbox1.Text = Nama_Brg dan TextBox3.Text = Hrg_Satu

Anda mungkin bertanya mengapa Hrg_Brg dan Nama_Brg diletakkan diakhir? 

Jawabannya adalah : Karena itu akan dieksekusi setelah pilihan dibuat

Hasil dari coding tadi adalah, saat anda memasukkan kode barang (di ComboBox1) maka akan muncul apa nama barang tersebut (di TextBox1) dan harga satuannya (di TextBox3)

Berikutnya untuk ComboBox2 (Pilihan Kredit/Tunai), ketentuannya adalah : jika si pembeli membeli secara tunai, maka dia akan mendapat diskon 15% dari harga total

Codingnya :

Dim kre_tun As String

Dim diskon As Integer

kre_tun = ComboBox2.Text

If kre_tun = "Tunai" Then

diskon = (15 / 100) * Val(TextBox4.Text)

ElseIf kre_tun = "Kredit" Then

diskon = "0"

End If

TextBox5.Text = diskon

TextBox6.Text = Val(TextBox4.Text) - diskon

Masalahnya adalah bagaimana jika si pembeli membeli barang yang sama namun lebih dari satu

maka kita akan mengatur agar harga satuan dikalikan dengan jumlah

Dim jml As Integer

jml = Val(TextBox2.Text)

TextBox4.Text = Hrg_Satu * jml

TextBox6.Text = Val(TextBox4.Text) - diskon

Selengkapnya di gambar 

Saya memasukkan tombol untuk menghapus dan ini codingnya

Selamat Mencoba