LANGKAH-LANGKAH PEMBUATAN PROGRAM KASIR
Bukalah software Visual Basic 2010 Express untuk memulai pembuatan program ini
Dalam proram kasir ini kami menggunakan 3 Form. Form 1 adalah
pembuka, Form 2 adalah inti dari program kasir dan Form 3 adalah penutup.
Setelah membuka program Visual Basic 2010, kami mulai membuat dengan Form 1.
♣ FORM 1
Komponen Toolbox yang digunakan :
NO
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
1.
|
Form 1
|
Name
Text
|
Form
1
Selamat
Datang
|
2.
|
Label
1
|
Name
Text
|
Label1
Welcome
to The
|
3.
|
Label
2
|
Name
Text
|
Label2
Industrial
Café
|
4.
|
Button
1
|
Name
Text
|
Button1
Pilih
Menu
|
Edit Form melalui Properties sesuai keinginan. Misal ukuran dan
jenis font, dan background
Setelah diedit Maka jadilah Form 1 seperti yang ada di bawah ini :
Masukkan listing di bawah ini :
Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub
BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As
System.ComponentModel.DoWorkEventArgs)
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.hide
End Sub
End Class
Pada bagian Button1 jika di klik akan berfungsi untuk menampilkan
Form 2 dam menghilangkan atau menyembunyikan Form 1 itu sendiri.
♣ FORM 2
Komponen Toolbox yang digunakan :
NO.
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
1.
|
Form 2
|
Name
Text
|
Form2
Form2
|
2.
|
Label 1
|
Name
Text
|
Label1
Transaksi Pembayaran
|
3.
|
Label 2
|
Name
Text
|
Label2
Industrial Cafe
|
4.
|
Label 3
|
Name
Text
|
Label3
Jenis Makanan atau Minuman
|
5.
|
Label 4
|
Name
Text
|
Label 4
Harga
|
6.
|
Label 5
|
Name
Text
|
Label5
Jumlah Pesanan
|
7.
|
Label 6
|
Name
Text
|
Label6
Total
|
8.
|
Label 7
|
Name
Text
|
Label7
Member
|
9.
|
Label 8
|
Name
Text
|
Label8
Total Pembelian
|
10.
|
Label 10
|
Name
Text
|
Label10
Bayar
|
11.
|
Label 11
|
Name
Text
|
Label11
Kembali
|
12.
|
Label 12
|
Name
Text
|
Label12
Diskon
|
13.
|
Button 1
|
Name
Text
|
Button1
Hitung
|
14.
|
Button2
|
Name
Text
|
Button2
Cetak
|
15.
|
Button 3
|
Name
Text
|
Button3
Reset
|
16.
|
Button 4
|
Name
Text
|
Button4
Selesai
|
17.
|
Button 5
|
Name
Text
|
Button5
Check Price
|
18.
|
ComboBox 1
|
Name
|
ComboBox1
|
19.
|
RadioButton 1
|
Name
Text
|
RadioButton1
Tidak
|
20.
|
RadioButton 2
|
Name
Text
|
RadioButton2
VIP
|
21.
|
RadioButton 3
|
Name
Text
|
RadioButton3
VVIP
|
22.
|
TextBox 1
|
Name
Text
Enabled
|
TextBox1
False
|
23.
|
TextBox 2
|
Name
Text
|
TextBox2
|
24.
|
TextBox 3
|
Name
Text
Enabled
|
TextBox3
False
|
25.
|
TextBox 4
|
Name
Text
Enabled
|
TextBox4
False
|
26.
|
TextBox 5
|
Name
Text
|
TextBox5
|
27.
|
TextBox 6
|
Name
Text
Enabled
|
TextBox6
False
|
28.
|
TextBox 7
|
Name
Text
Enabled
|
TextBox7
False
|
29.
|
ListBox 1
|
Name
|
ListBox1
|
Setelah menggunakan Toolbox sesuai tabel di atas maka edit dan
rapikan Form sesuai keinginan. Mengganti ukuran dan jenis font dan juga
Background melalui Properties. Menambahkan atau mengedit daftar menu pada ComboBox.
Masukkan listing di bawah ini dan kami akan menjelaskan pada tiap
sub akhir :
Public Class Form2
Dim TotalPembelian As Single
Dim Diskon As
Single
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If
ComboBox1.Text = ("Iced Cappucinno")
Then TextBox1.Text = ("11000")
If
ComboBox1.Text = ("Hot Cappucinno")
Then TextBox1.Text = ("10000")
If
ComboBox1.Text = ("Iced Chocolate")
Then TextBox1.Text = ("12000")
If
ComboBox1.Text = ("Hot Chocolate")
Then TextBox1.Text = ("10000")
If
ComboBox1.Text = ("Iced Tea") Then TextBox1.Text = ("6000")
If
ComboBox1.Text = ("Lemon Tea") Then TextBox1.Text = ("8000")
If
ComboBox1.Text = ("French Fries") Then TextBox1.Text = ("10000")
If
ComboBox1.Text = ("Onion Ring") Then TextBox1.Text = ("10000")
If ComboBox1.Text = ("Pancake")
Then TextBox1.Text = ("12000")
If
ComboBox1.Text = ("Cream Soup") Then TextBox1.Text = ("10000")
End Sub
• maksud dari
listing ini adalah setelah memilih salah satu menu pada ComboBox1 maka pada
TextBox1 (harga) akan muncul harga-harga sesuai dengan listing di atas.
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
TextBox3.Text = TextBox1.Text *
TextBox2.Text
End Sub
• Textbox3
adalah Total, sedangkan TextBox1 dan TextBox 2 adalah har dan jumlah pesanan
maka maksud dari listing tersebut total adalah hasil kali dari harga dan jumlah
pesanan.
Private Sub
TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox3.TextChanged
End Sub
Private Sub
Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label5.Click
End Sub
Private Sub
Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label3.Click
End Sub
Private Sub
Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label4.Click
End Sub
Private Sub
Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ListBox1.Items.Add(" ")
ListBox1.Items.Add("
REKAP PEMBELIAN INDUSTRIAL CAFE")
ListBox1.Items.Add("______________________________________________________________________________________________________________________________________________________")
ListBox1.Items.Add("Nama Barang
Harga Jumlah Total Bayar Kembalian ")
ListBox1.Items.Add("_______________________________________________________________________________________________________________________________________________________")
End Sub
• Pada ListBox1
akan muncul bentuk tabel saat memainkan program. Tabel itu akan berfungsi saat
selesei di akhir proram yaitu dengan meng-klik Button2 (cetak) maka akan muncul
rincian rekap seperti yang ada di atas yaitu
nama barang, harga, jumlah, total, bayar, kembalian.
Private Sub
Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label11.Click
End Sub
Private Sub
Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label10.Click
End Sub
Private Sub
Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label8.Click
End Sub
Private Sub
Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label7.Click
End Sub
Private Sub
Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label6.Click
End Sub
Private Sub
ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ListBox1.SelectedIndexChanged
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Form3.Show()
Me.Hide()
End Sub
• Button4
(Selesai) bermaksud untuk mengakhiri Form 2 atau inti dari program kasir itu
sendiri. Yaiti dengan menampilkan Form3 dan menghilangkan atau menyembunyikan
Form2 itu sendiri.
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim
listkembali As Single
Dim listbayar As Single
listkembali = TextBox5.Text -
TextBox4.Text
listbayar = TextBox5.Text
If
listkembali < 0 Then
MsgBox("Maaf
Uang Anda Tidak Cukup")
TextBox6.Text = Nothing
ListBox1.Refresh()
Exit Sub
End If
TextBox5.Text = Format(listbayar, "#,#")
TextBox6.Text = Format(listkembali, "#,#")
With
ListBox1
.Items.Add(ComboBox1.Text &
Space(10) & TextBox1.Text & Space(10) & TextBox2.Text &
Space(15) & TextBox4.Text & Space(15) & TextBox5.Text &
Space(10) & TextBox6.Text & Space(10))
End With
End Sub
• Pada listing
ini mengandung banyak maksud. Pada bagian Button2 (Cetak) jika di klik maka
akan muncul kembalian yaitu hasil pengurangan dari bayar (TextBox5) dan total
pembelian (TextBox4). Lalu jika kembalian minus atau kurang dari satu maka akan
muncul MsgBox ‘Maaf Uang Anda Tidak Cukup’.
Penulisan untuk
bayar (TextBox5) dan kembali (TextBox4) adalah dipisah dengan koma (,) penanda
ribuan atau puluh ribuan.
Penulisan pada
rekap di ListBox1 akan muncul sesuai ukuran spasi yang telah ditulis pada
listing di atas.
Private Sub
TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private
Sub TextBox4_TextChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles TextBox4.TextChanged
End Sub
Private Sub
TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox6.TextChanged
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button5.Click
TextBox4.Text = TextBox3.Text -
(TextBox3.Text * TextBox7.Text) / 100
End Sub
• TextBox4
adalah Total Pembelian yang merupakan hasil dari Total (TextBox3) dikurangi
Total (TextBox3) dikalikan Diskon (TextBox7) dan hasilnya dibagi 100.
Private Sub
Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label1.Click
End Sub
Private Sub
Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label12.Click
End Sub
Private Sub
RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton2.CheckedChanged
If
RadioButton2.Checked = True Then TextBox7.Text = ("10")
End Sub
• Maksudnya jika
kita pilih atau klik pada VIP( RadioButton2)
maka akan muncul ‘10’ pada Diskon (TextBox7). Pembeli dengan member VIP
akan mendapat diskon 10%
Private
Sub TextBox7_TextChanged_1(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles TextBox7.TextChanged
End Sub
Private Sub
RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton1.CheckedChanged
If
RadioButton1.Checked = True Then TextBox7.Text = ("0")
End Sub
• Maksudnya jika
kita pilih atau klik pada Tidak ( RadioButton1)
maka akan muncul ‘0’ pada Diskon (TextBox7). Pembeli tanpa member tidak
mendapat diskon.
Private Sub
RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RadioButton3.CheckedChanged
If
RadioButton3.Checked = True Then TextBox7.Text = ("12")
End Sub
• Maksudnya jika
kita pilih atau klik pada VVIP( RadioButton3)
maka akan muncul ‘12’ pada Diskon (TextBox7). Pembeli dengan member VVIP
akan mendapat diskon 12%
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
ComboBox1.Enabled = True
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
TextBox7.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
• Button3
(Reset) berfungsi untuk merefresh data yang telah dimasukkan dalam program
Kasir saat dimainkan.
Private Sub
TextBox2_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.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
• Listing di
atas berfungsi untuk me-nonaktifkan huruf pada keyboard saat mengetik pada
TextBox2 (Jumlah Pesanan) yang aktif hanya angka.
Private Sub
TextBox5_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.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
End Class
• Sama seperti
pada TextBox2 pada TextBox5 (Bayar)
Listing di atas berfungsi untuk me-nonaktifkan huruf pada keyboard saat
mengetik, yang aktif hanya angka.
♣ FORM 3
Komponen Toolbox yang digunakan :
NO
|
KOMPONEN
|
PROPERTIES
|
KETERANGAN
|
1.
|
Form 3
|
Name
Text
|
Form3
Form3
|
2.
|
Label 1
|
Name
Text
|
Label1
Terima Kasih
|
3.
|
Label 2
|
Name
Text
|
Label2
silahkan datang kembali
|
4.
|
PictureBox 1
|
Name
|
PictureBox1
|
5.
|
Button 1
|
Name
Text
|
Button1
OK
|
Setelah memasukkan Tool-tool dan mengganti Text pada Properties pada
setiap Tool. Maka sama seperti Form1 dan Form2, edit Form sesuai keinginan.
Dengan mengganti jenis dan ukuran font serta dengan mengganti background. Maka
akan jadi seperti yang ada di bawah ini.
Masukkan listing di bawah ini :
Public Class Form3
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Close()
End Sub
Private Sub
Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label2.Click
End Sub
Private Sub
Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
• Listing di atas hanya mengandung satu maksud yaitu jika Button1
(OK) di klik maka akan menutup Form3. Dan berakhirlah Program Kasir.
Untuk mendownload program kami, silahkan klik link dibawah ini :
Referensi lain pembuatan program ini, silahkan dibuka link dibawah ini
Done !!
BalasHapusLayout n template Blog udh menarik, tinggal nambahin gadget standard kyk kalender-jam-viewcount gitu . . .
postingan masih terlalu ribet yak, tabel yg isinya properties masih ditampilin, pdhl itu bisa dimasukin ke lampiran aja, but overall it's fine. sering-sering blogwalkin ke blog-blog tutorial gitu(saran aja)
semangat bwt modul 3 dan tubes nya nanti, sama proses kaderisasinya yg paling penting :D
Label no 9 nya kok gaada? Dan kalau di praktekkan diskon gamau keluar
BalasHapus