Project Penjualan Sederhana Menggunakan Visual Basic !!

Teknisi Komputer - di sini saya akan membagikan sedikit ilmu yang saya miliki, karena di sini saya juga dalam proses belajar. kenapa saya membagikan tutorial ini ? karena pasti banyak teman di luar saya khusus nya mahasiswa TI tingkatan awal yang belajar memprogram atau membuat aplikasi menggunakan visual basic ini. visual basic ini mempunyai banyak komponen, diantara nya : properties (sebelah kanan bawah) , mempunyai menu bar,sama dengan aplikasi lainnya (berada di atas) , tool bar (biasanya berada di sebelah kiri), component, form , module dan lain nya. saya anggap kalian sudah pasti tau. 

perlu di ketahui di sini kita hanya menggunakan event click. yang di maksud dengan event adalah sebuah kejadian. dimana sebuah kejadian yang akan terjadi pada prosedur tersebut. contoh nya event click pada command1. command1 akan menampilkan sebuah kejadian apabila di klik, tergantung dengan event yang kita gunakan. ada beberapa event yang paling umum di gunakan , di antaranya : "Click, GotFokus, LostFokus, dan KeyPress.

 Petunjuk :

• Buat Label dengan Caption : BARANG, HARGA, DISKON, JUMLAH, TOTAL.
• Combo Box = Pada Properties => Text, Isi dengan ( --Pilih-- ), kemudian scroll ke atas, akan menemukan tulisan list, isi dengan merek HP, ex = NOKIA, enter dan klik lagi isi lagi, bisa juga langsung melalui coding nya meggunakan ( additem ), ex = combo1.additem "Nokia" .
• Disamping Harga kita buat Text Box, dengan name standard, yaitu : text1, disesuaikan otomatis oleh sistem. pada Properties => Text, kita kosongkan saja agar tulisan Text1 nya terhapus.
• Di samping diskon kita menggunakan Check Box, buat dua buah Check Box. Pada Properties => Caption kita rubah sesuai keinginan, di sini saya mengisi 50000 dan 100000 sebagai diskon nya.
• Di samping Jumlah yaitu sama dengan Disamping Harga yaitu menggunakan Text Box. Maka akan tertulis name nya menjadi Text2.
• Disamping Total juga Text Box, dan mempunyai name Text3.
• Pada Hitung kita menggunakan CommandButton. Ubah Caption nya menjadi "HITUNG".
• Buat satu CommandButton Lagi dan ubah Caption nya menjadi "HAPUS".

Kode :

Private Sub Check1_Click()

Check2.Value = 0

End Sub

Private Sub Check2_Click()

Check1.Value = 0

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "NOKIA" Then

Text1.Text = 1000000

ElseIf Combo1.Text = "SAMSUNG" Then

Text1.Text = 1200000

ElseIf Combo1.Text = "XIAOMI" Then

Text1.Text = 1500000

ElseIf Combo1.Text = "OPPO" Then

Text1.Text = 2000000

End If

End Sub

Private Sub Command1_Click()

dim diskon as string

If Check1.Value = 1 Then

diskon = Check1.Caption

End If

If Check2.Value = 1 Then

diskon = Check2.Caption

End If

If Text1 = "" Then

Text1 = "ISI HP NYA DONK"

End If

If Text2 = "" Then

MsgBox ("JUMLAH HARUS DI ISI")

Else

Text3 = Text1 * Text2 - diskon

End If

End Sub

Private Sub Command2_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

End Sub

Private Sub Form_Load()

Penjualan.BackColor = vbGreen

Combo1.Enabled = True

Text1.Enabled = False

Text2.Enabled = True

Text3.Enabled = False

Combo1.AddItem "NOKIA"

Combo1.AddItem "SAMSUNG"

Combo1.AddItem "XIAOMI"

Combo1.AddItem "OPPO"

End Sub

Private Sub Text2_Click()

Text2 = ""

End Sub

Penjelasan :

Private Sub Form_Load()

= Pada Form ini mempunyai event load, yang berarti ketika form di jalankan atau diload, maka perintah yang ada akan di jalankan.

Combo1.Enabled = True // Isi Dari Combo1 bisa di klik atau di ubah nilainya.

Text1.Enabled = False // Isi atau nilai Dari Text1 Tidak Bisa Di Ubah, 

Text2.Enabled = True // Nilai atau Isi Dari Text2 Bisa Di Ubah.

Text3.Enabled = False //Nilai Atau Isi dari text3 Tidak Bisa Di Ubah.

Keterangan : Combo1 enabled nya di bikin true agar bisa di mulai berurutan dari atas ke bawah. text1 dan text3 karena berisikan harga dan total maka kita buat enabled nya false agar harga dan total tidak bisa di ubah.

Combo1.AddItem "NOKIA"

Combo1.AddItem "SAMSUNG"

Combo1.AddItem "XIAOMI"

Combo1.AddItem "OPPO"

keterangan : Ini adalah contoh menginput list combo box melalui code langsung.

Private Sub Combo1_Click()

If Combo1.Text = "NOKIA" Then

Text1.Text = 1000000

ElseIf Combo1.Text = "SAMSUNG" Then

Text1.Text = 1200000

ElseIf Combo1.Text = "XIAOMI" Then

Text1.Text = 1500000

ElseIf Combo1.Text = "OPPO" Then

Text1.Text = 2000000

End If

keterangan: Jika combo1.text  adalah nokia maka text1 nya akan otomatis terisi 1000000, begitu juga seterusnya.

Private Sub Command1_Click() //Jika Command1 Di klik.

If Check1.Value = 1 Then

diskon = Check1.Caption

End If

keterangan : jika check1 value nya 1 atau di klik maka diskon = check1.caption. di sini kita membuat variabel baru yaitu diskon.

If Text1 = "" Then

Text1 = "ISI HP NYA DONK"

End If

If Text2 = "" Then

MsgBox ("JUMLAH HARUS DI ISI")

Else

Text3 = Text1 * Text2 - diskon

End If

End Sub

keterangan: 

- jika text1 kosong maka text1 akan berisi tulisan "ISI HP NYA DONK", bisa juga menggunakan msgbox.

- jika text2 kosong maka text2 akan berisi tulisan "JUMLAH HARUS DI ISI".

-text3 = isi dari text1 dikali dengan text2 kemudian di kurangi checkbox kita tadi yang udah di buat variabel baru menjadi diskon.

Sekian  Project Penjualan Sederhana Menggunaka Visual Basic !! Jika ada yang kurang panam mohon di tanya di kolom komentar :)