Tutorial
Program Aplikasi Kasir
Visual Basic merupakan bahasa
pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Berikut
adalah contoh langkah-langkah penggunaan visual basic 2010 dalam membuat
program kasir.
Langkah-Langkah:
1. Membuka
Aplikasi Visual Basic 2010
3. Klik menu bar-view-other
windows-tollbox untuk memunculkan toolbox yang akan digunakan
4. Membuat Form seperti di
bawah ini dengan menggunakan komponen toolbox di atas dan diberi nama dengan
mengganti text pada properties
Berikut adalah komponen ToolBox yang digunakan dalam form kasir ini
Kasir
No.
|
Komponen
|
Properties
|
Keteranngan
|
1.
|
Form
1
|
Name
text
|
Form
1
Kasir
|
2.
|
Label
8
|
Name
text
|
Label
8
TOKO
GAMTEK ROTRING
|
3.
|
Label
9
|
Name
text
|
Label
9
Nama
Barang
|
4.
|
Label
10
|
Name
text
|
Label
10
Jumlah
|
5.
|
Label
11
|
Name
text
|
Label
11
Harga
|
6.
|
Label
12
|
Name
text
|
Label
12
Total
Biaya
|
7.
|
Label
13
|
Name
text
|
Label
13
Pembayaran
|
8.
|
Label
14
|
Name
text
|
Label
14
Kembalian
|
9.
|
Label
15
|
Name
text
|
Label
15
Jenis
Member
|
10.
|
Combobox
1
|
Name
text
|
Combobox
1
|
11.
|
Combobox
2
|
Name
text
|
Combobox
2
|
12.
|
Combobox
3
|
Name
text
|
Combobox
3
|
13.
|
Combobox
4
|
Name
text
|
Combobox
4
|
14.
|
Combobox
5
|
Name
text
|
Combobox
5
|
15.
|
Combobox
6
|
Name
text
|
Combobox
6
|
16.
|
Combobox
7
|
Name
text
|
Combobox
7
|
17.
|
Combobox
8
|
Name
text
|
Combobox
8
|
18.
|
Combobox
9
|
Name
text
|
Combobox
9
|
19.
|
Textbox
1
|
Name
text
|
Textbox
1
|
20.
|
Textbox
2
|
Name
text
|
Textbox
2
|
21.
|
Textbox
3
|
Name
text
|
Textbox
3
|
22.
|
Textbox
4
|
Name
text
|
Textbox
4
|
23.
|
Textbox
5
|
Name
text
|
Textbox
5
|
24.
|
Textbox
6
|
Name
text
|
Textbox
6
|
25.
|
Textbox
7
|
Name
text
|
Textbox
7
|
26.
|
Textbox
8
|
Name
text
|
Textbox
8
|
27.
|
Textbox
9
|
Name
text
|
Textbox
9
|
28.
|
Textbox
10
|
Name
text
|
Textbox
10
|
29.
|
Textbox
11
|
Name
text
|
Textbox
11
|
30.
|
Textbox
12
|
Name
text
|
Textbox
12
|
31.
|
Textbox
13
|
Name
text
|
Textbox
13
|
32.
|
Textbox
14
|
Name
text
|
Textbox
14
|
33.
|
Textbox
15
|
Name
text
|
Textbox
15
|
34.
|
Textbox
16
|
Name
text
|
Textbox
16
|
35.
|
Textbox
17
|
Name
text
|
Textbox
17
|
36.
|
Textbox
18
|
Name
text
|
Textbox
18
|
37.
|
Textbox
19
|
Name
text
|
Textbox
19
|
38.
|
Label
1-7
|
Name
text
|
Label
1-7
Rp
|
39.
|
Label
16
|
Name
text
|
Label
16
Rp
|
40.
|
Button
1
|
Name
text
|
Button
1
Proses
|
41.
|
Button
2
|
Name
text
|
Button
2
Total
biaya
|
42.
|
Button
3
|
Name
text
|
Button
3
Reset
|
43.
|
Button
4
|
Name
text
|
Button
4
Kembalian
|
Agar program
berjalan, buatlah listing sebagai berikut:
1. Double click pada design form
2. Menentukan deklarasi variabel pada Form1 dengan
listing
Public Class
Form1
Dim
Firstnumber As Integer
Dim
Secondnumber As Integer
Dim
Thirdnumber As Integer
Dim
forthnumber As Integer
Dim
fifthnumber As Integer
Dim
sixthnumber As Integer
Dim
Seventhnumber As Integer
Dim
eighthnumber As Integer
Dim jumlah1
As Integer
Dim jumlah2
As Integer
Dim jumlah3
As Integer
Dim jumlah4
As Integer
Dim jumlah5
As Integer
Dim jumlah6
As Integer
Dim jumlah7
As Integer
Dim jumlah8
As Integer
Dim jumlah9
As Integer
Dim
Jumlah10 As Integer
3.
Double click
pada ComboBox1 untuk memilih jenis barang yang disediakan dan harga persatuan
barang akan muncul pada Textbox9
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If ComboBox1.Text = ("PENSIL 0,3") Then
TextBox9.Text = (33000)
If ComboBox1.Text = ("PENSIL 0,5") Then
TextBox9.Text = (35000)
If
ComboBox1.Text = ("PENSIL 0,7") Then TextBox9.Text = (37000)
If
ComboBox1.Text = ("JANGKA") Then TextBox9.Text = (69000)
If ComboBox1.Text = ("PENGARIS
60cm") Then TextBox9.Text = (60000)
If ComboBox1.Text = ("MAL
HURUF 0,3") Then TextBox9.Text =
(25000)
If
ComboBox1.Text = ("MAL HURUF 0.5")
Then TextBox9.Text = (19000)
If ComboBox1.Text = ("PAKET
MAL") Then TextBox9.Text = (98000)
If
ComboBox1.Text = ("-") Then TextBox9.Text = (0)
If
ComboBox1.Text = ("PENSIL 0,3") Then TextBox1.Text = (1)
If
ComboBox1.Text = ("PENSIL 0,5") Then TextBox1.Text = (1)
If
ComboBox1.Text = ("PENSIL 0,7") Then TextBox1.Text = (1)
If
ComboBox1.Text = ("JANGKA") Then TextBox1.Text = (1)
If
ComboBox1.Text = ("PENGARIS 60cm")
Then TextBox1.Text = (1)
If
ComboBox1.Text = ("MAL HURUF 0,3")
Then TextBox1.Text = (1)
If
ComboBox1.Text = ("MAL HURUF 0.5")
Then TextBox1.Text = (1)
If
ComboBox1.Text = ("PAKET MAL") Then TextBox1.Text = (1)
If
ComboBox1.Text = ("-") Then TextBox1.Text = (0)
End Sub
Sebagai tambahan, lanjutkan listing diatas sampai
dengan ComboBox8 dan harga akan muncul pada TextBox16
4.
Double click
pada TextBox1 untuk menginput jumlah barang yang diinginkan sehingga sacara
otomatis harga yang keluar akan sesuai dengan jumlah barang dikali dengan harga
satuannya.
Private Sub
TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox1.TextChanged
Firstnumber =
Val(TextBox1.Text)
Secondnumber =
Val(TextBox2.Text)
Thirdnumber =
Val(TextBox3.Text)
forthnumber =
Val(TextBox4.Text)
fifthnumber =
Val(TextBox5.Text)
sixthnumber =
Val(TextBox6.Text)
Seventhnumber =
Val(TextBox7.Text)
eighthnumber =
Val(TextBox8.Text)
If ComboBox1.Text = ("PENSIL 0,3") Then
TextBox9.Text = (Firstnumber*33000)
If ComboBox1.Text = ("PENSIL 0,5") Then
TextBox9.Text = (Firstnumber*35000)
If ComboBox1.Text = ("PENSIL 0,7") Then
TextBox9.Text = (Firstnumber*37000)
If ComboBox1.Text = ("JANGKA") Then
TextBox9.Text = (Firstnumber * 69000)
If ComboBox1.Text = ("PENGARIS
60cm") Then TextBox9.Text =
(Firstnumber*60000)
If ComboBox1.Text = ("MAL HURUF 0,3") Then TextBox9.Text = (Firstnumber * 25000)
If ComboBox1.Text = ("MAL HURUF 0.5") Then TextBox9.Text = (Firstnumber * 19000)
If ComboBox1.Text = ("PAKET MAL") Then
TextBox9.Text = (Firstnumber*98000)
If ComboBox1.Text = ("-") Then
TextBox9.Text = (0)
End Sub
Sebagai
tambahan, lanjutkan listing diatas sampai dengan TextBox8
5.
Double click
pada Button2 untuk memproses total biaya dari sejumlah barang yang telah dibeli
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
jumlah1 = Val(TextBox9.Text)
jumlah2 = Val(TextBox10.Text)
jumlah3 = Val(TextBox11.Text)
jumlah4 = Val(TextBox12.Text)
jumlah5 = Val(TextBox13.Text)
jumlah6 = Val(TextBox14.Text)
jumlah7 = Val(TextBox15.Text)
jumlah8 = Val(TextBox16.Text)
Sebagai
tambahan, kasir ini akan secara otomatis melakukan perhitungan total biaya dengan diskon bagi
setiap anggota berdasarkan jenis keanggotannya. Seperti yang ditampilkan pada
listing berikut
If ComboBox9.Text = ("PLATINUM") Then
TextBox17.Text = 70 / 100 * (jumlah1 + jumlah2 + jumlah3 + jumlah4 + jumlah5 +
jumlah6 + jumlah7 + jumlah8)
If ComboBox9.Text = ("GOLD") Then
TextBox17.Text = 80 / 100 * (jumlah1 + jumlah2 + jumlah3 + jumlah4 + jumlah5 +
jumlah6 + jumlah7 + jumlah8)
If ComboBox9.Text = ("SILVER") Then
TextBox17.Text = 90 / 100 * (jumlah1 + jumlah2 + jumlah3 + jumlah4 + jumlah5 +
jumlah6 + jumlah7 + jumlah8)
If ComboBox9.Text = ("NON MEMBER") Then
TextBox17.Text = (jumlah1 + jumlah2 + jumlah3 + jumlah4 + jumlah5 + jumlah6 +
jumlah7 + jumlah8)
End Sub
6.
Double click
pada Button4 untuk memproses kembalian apabila pembayaran lebih besar dari total biaya
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button4.Click
jumlah9 = Val(TextBox17.Text)
Jumlah10 = Val(TextBox18.Text)
TextBox19.Text = (Jumlah10 - jumlah9)
End Sub
7.
Apabila pembayaran dimasuki nilai minus,
maka akan keluar message box yang menandakan salah input pembayaran
Private Sub
TextBox18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox18.TextChanged
If Val(TextBox18.Text) < 0 Then
MsgBox("uang anda minus?")
End If
End
Sub
8.
Agar TextBox pembayaran tidak dapat
dimasuki nilai minus maka diberi listing berikut
Private Sub TextBox18_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox18.KeyPress
If Asc(e.KeyChar) >= 48 And
Asc(e.KeyChar) <= 57 Then
e.Handled = False
ElseIf Asc(e.KeyChar) = 43 Or
Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or
Asc(e.KeyChar) = 46 Then
e.Handled = False
ElseIf e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End
Sub
9.
Setelah selesai melakukan transaksi,
program ini dapat direset untuk melayani pembelian selanjutnya
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ComboBox7.Text = ""
ComboBox8.Text = ""
ComboBox9.Text = ""
End
Sub
Konsep
Program Aplikasi Kasir
Deskripsi
Program
aplikasi kasir ini dibuat dengan visual basic 2010 yang didalamnya terdapat
sejumlah jenis barang yang dapat dipilih beserta harganya. Juga dilengkapi
dengan perhitungan otomatis berupa diskon yang tergantung jenis keanggotannya
Tujuan
Tujuan
dibuatnya program aplikasi kasir ini adalah sebagai latihan dan pengajaran
untuk membuat program kasir sederhana dari software visual basic 2010.
Manfaat
Manfaat
dari pembuatan kasir sederhana ini sebagai alat pembayaran dari transaksi jual
beli
Sasaran
user
Kasir
ini dapat digunakan oleh penjaga kasir di sebuah toko buku
0 komentar:
Posting Komentar