1. Aplikasi Kasir
a. Konsep
Aplikasi Program Simulasi Kasir ini
menggunakan sistem database langsung yang transparan dalam storage datanya
dimana pengunjung dapat melihat dan mengecek sendiri apakah datanya sudah
tersimpan atau belum, lalu disini pengunjung juga dapat melihat preview laptop
yang akan dibelinya pada layar yang tersedia sehingga memudahkan dalam
pemakaian di Tools PictureBox. Untuk Security dan terjaminnya transaksi serta
pengiriman kami juga melengkapi MsgBox yang secara otomatis akan muncul dan
mengingatkan user agar mengikuti alur pengisian data yang benar. Dengan adanya
sistem Pembayaran dan Kembalian juga akan meminimalisir akan kesalahan dalam
transaksi uang ,dengan fungsi If Then akan memilah yang mana algoritma
pengisian data yang benar.
b. Tutorial Pembuatan
Tutorial 1
(Pembuatan Program)
·
Tools
Form1
No
|
Komponen
|
Properties
|
Keterangan
|
1
|
Button1
|
Name
Text
|
Button1
Total
|
2
|
Button2
|
Name
Text
|
Button2
Harga Potongan
|
3
|
Button3
|
Name
Text
|
Button3
Total Pembayaran
|
4
|
Button4
|
Name
Text
|
Button4
Kembalian
|
5
|
Button5
|
Name
Text
|
Button5
Save
|
6
|
Button6
|
Name
Text
|
Button6
Clear
|
7
|
Label1
|
Name
Text
|
Label1
Nama
|
8
|
Label2
|
Name
Text
|
Label2
Alamat
|
9
|
Label3
|
Name
Text
|
Label3
Harga Barang
|
10
|
Label4
|
Name
Text
|
Label4
Jumlah
Barang
|
11
|
Label5
|
Name
Text
|
Label5
Diskon
|
12
|
Label6
|
Name
Text
|
Label6
Pembayaran
|
14
|
Textbox1
|
Name
Text
|
Textbox1
|
15
|
Textbox2
|
Name
Text
|
Textbox2
|
16
|
Textbox3
|
Name
Text
|
Textbox3
|
17
|
Textbox4
|
Name
Text
|
Textbox4
|
18
|
Textbox5
|
Name
Text
|
Textbox5
|
19
|
Textbox6
|
Name
|
Textbox6
|
Text
|
|||
20
|
Textbox7
|
Name
Text
|
Textbox7
|
21
|
Textbox8
|
Name
Text
|
Textbox8
|
22
|
Textbox9
|
Name
Text
|
Textbox9
|
23
|
Textbox10
|
Name
Text
|
Textbox10
|
24
|
Combobox1
|
Name
Text
|
Combobox1
|
25
|
Picturebox1
|
Name
Text
|
Picturebox1
|
26
|
DateTimeP
icker1
|
Name
Text
|
DateTime P icker
|
27
|
ToolS tripMenuItem1
|
Name
Text
|
ToolS tripMenuIte m1
File
|
28
|
ToolS tripMenuItem2
|
Name
Text
|
ToolS tripMenuItem2
Help
|
29
|
ToolS tripMenuItem3
|
Name
Text
|
ToolS tripMenuItem3
About
|
Form2
No
|
Komponen
|
Properties
|
Keterangan
|
1
|
Label1
|
Nama
Text
|
Label1
Nama
|
2
|
Label2
|
Nama
Text
|
Label2
Alamat
|
3
|
Label3
|
Nama
Text
|
Label3
Nama Barang
|
4
|
Label4
|
Nama
Text
|
Label4
Jumlah
|
5
|
Label5
|
Nama
Text
|
Label5
Harga
|
6
|
Label6
|
Nama
Text
|
Label6
Total Pembayaran
|
7
|
Label7
|
Nama
Text
|
Label7
|
8
|
Label8
|
Nama
Text
|
Label8
|
9
|
Label9
|
Nama
Text
|
Label9
|
10
|
Label10
|
Nama
Text
|
Label10
|
11
|
Label11
|
Nama
Text
|
Label11
|
12
|
Label12
|
Nama
Text
|
Label12
|
13
|
Label13
|
Nama
Text
|
Label13
Data Rekap
Transaksi
|
14
|
Label14
|
Nama
Text
|
Label14
Sinar Komputer
|
15
|
Button1
|
Nama
Text
|
Button1
Ok
|
16
|
ToolS tripMenuItem1
|
Nama
Text
|
ToolS tripMenuItem1
File
|
17
|
ToolS tripMenuItem2
|
Nama
Text
|
ToolS tripMenuItem2
Exit
|
· c. Listing
Form1
Dalam Form1 Tools yang tidak diberikan Source Code yakni hanya bagian Textbox dan
DateTimeP icker saja. Untuk fungsi dalam
Combobox Nama
Barang dimasukkan
fungsi salah
satunya seperti berikut ini :
Untuk penulisan Merk laptop
lainnya hampir sama seperti diatas hanya untuk penulisan nama
dan harga sesuai dengan laptop itu sendiri kemudian untuk gambar laptop tsb yang telah diimpor
diberi
fungsi
True sementara
gambar lainnya diberi fungsi false.
Selanjutnya untuk
Tools Button(Total)
dimasukkan list code
seperti dibawah
ini
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TextBox5.Text =
Val(TextBox3.Text) * Val(TextBox4.Text)
End Sub
Sementara untuk Button(Harga Potongan) list code seperti ini :
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TextBox10.Text =
Val(TextBox5.Text) * Val(TextBox6.Text) / 100
End Sub
Untuk Button(Total Pembayaran) list code seperti ini :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
MsgBox("Isikan Nama dan Alamat dengan tepat",
MsgBoxStyle.Critical, "DATA ERROR") End If
Dim potongan, total As Double Dim harga, diskon As Integer harga = Val(TextBox5.Text)
diskon = Val(TextBox10.Text)
total =
harga - diskon
TextBox7.Text =
total
End Sub
Dan untuk Tools
fungsi perhitungan yang terakhir yakni
Button(Kembalian)
masukkan list code seperti ini ;
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox9.Text =
Val(TextBox8.Text) - Val(TextBox7.Text)
If Val(TextBox8.Text) <
Val(TextBox7.Text) Then MsgBox("Maaf Tidak
Boleh Ngutang", MsgBoxStyle.Critical, "Perhatian")
If Val(TextBox8.Text) < Val(TextBox7.Text) Then TextBox9.Text = ""
End Sub
Lalu sebagai pelengkap fitur dalam button C lear
karena dia berfungsi sebagai “reset”
data dengan menghilangkan hurf/angka pada textbox maka
diperlukan fungsi “” pada tiap Textbox,
seperti berikut ini :
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" ComboBox2.Text = ""
End Sub
Dan untuk melanjutkan proses, masukkan
fungsi Form2.Show() pada Button Save.
Form2
Pertama-tama agar form2 ini langsung
menampilkan tabel seperti ini :
Masukkan Listing code dibawah ini pada Form2_Load
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nilai1 =
Label7.Text
nilai2 =
Label8.Text nilai3 =
Label9.Text nilai4 =
Label10.Text nilai5 =
Label11.Text nilai6 =
Label12.Text
Me.Label7.Text = Form1.TextBox1.Text
Me.Label8.Text =
Form1.TextBox2.Text Me.Label9.Text =
Form1.ComboBox2.Text Me.Label10.Text =
Form1.TextBox4.Text Me.Label11.Text =
Form1.TextBox5.Text Me.Label12.Text =
Form1.TextBox7.Text
End Sub
Tutorial 2 (Listing Code)
· Form 1
Public Class Form1
Dim nilai1, nilai2, nilai3, nilai4, nilai5, nilai6 As String
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) End Sub
Untuk mengubah
variabel nilai1-6
menjadi mode string (teks) sehingga fungsinya
dapat berjalan.
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox2.Text = "Acer T7350" Then TextBox3.Text = "3500000"
PictureBox1.Visible = True PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Acer 8935G" Then
TextBox3.Text = "3750000"
PictureBox2.Visible = True
PictureBox1.Visible = False
PictureBox3.Visible =
False PictureBox4.Visible =
False PictureBox5.Visible =
False PictureBox6.Visible =
False PictureBox7.Visible =
False PictureBox8.Visible =
False PictureBox9.Visible =
False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Acer Aspire 3935" Then TextBox3.Text = "2750000"
PictureBox1.Visible = false PictureBox2.Visible = False PictureBox3.Visible = True PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = False
PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Asus U47VC" Then TextBox3.Text = "4000000"
PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = True PictureBox5.Visible = False PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Asus X93SV" Then TextBox3.Text = "4150000"
PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = True PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Asus 675VW" Then TextBox3.Text = "5000000"
PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = True PictureBox7.Visible = False
PictureBox8.Visible =
False PictureBox9.Visible =
False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Toshiba L63S"
Then TextBox3.Text = "4800000"
PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False
PictureBox6.Visible = False PictureBox7.Visible = True PictureBox8.Visible = False PictureBox9.Visible = False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Toshiba Satelit Pro"
Then
TextBox3.Text = "4000000" PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = True PictureBox9.Visible = False PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Lenovo"
Then TextBox3.Text = "3600000"
PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = False
PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = True PictureBox10.Visible = False
ElseIf ComboBox2.Text = "Fujitsu"
Then TextBox3.Text = "4000000" PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False PictureBox6.Visible = False PictureBox7.Visible = False PictureBox8.Visible = False PictureBox9.Visible = False PictureBox10.Visible = True
End If
End Sub
Dalam combobox
dimasukkan fungsi seperti PictureBox1.Visible = True
PictureBox2.Visible = False
Maka jika yang terpilih
Acer T7350 maka PictureBox1 akan muncul.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TextBox5.Text =
Val(TextBox3.Text) * Val(TextBox4.Text)
Fungsi val untuk menjalankan fungsi numerik agar berjalan. Dan untuk mengalikan isi Textbox3 dan Textbox4 menggunakan fungsi *
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing And TextBox2.Text = Nothing Then
MsgBox("Isikan Nama dan Alamat dengan tepat", MsgBoxStyle.Critical, "DATA ERROR")
End If
Dim potongan, total As Double Dim harga, diskon As Integer harga =
Val(TextBox5.Text) diskon =
Val(TextBox10.Text)
total =
harga - diskon
TextBox7.Text =
total
End Sub
Fungsi Nothing digunakan agar jika Textbox1 dan Textbox2 kosong akan keluar MsgBox untuk peringatan yang isi tulisannya sesuai dengan yang diisi ("Isikan Nama dan Alamat dengan tepat", MsgBoxStyle.Critical, "DATA ERROR")
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
TextBox10.Text = Val(TextBox5.Text) * Val(TextBox6.Text) / 100
End Sub
Fungsi val untuk menjalankan fungsi numerik
agar berjalan. Dan untuk
mengalikan
isi Textbox5 dan
Textbox6 menggunakan fungsi * lalu dibagi 100
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox9.Text =
Val(TextBox8.Text) - Val(TextBox7.Text)
If Val(TextBox8.Text) <
Val(TextBox7.Text) Then MsgBox("Maaf Tidak
Boleh Ngutang", MsgBoxStyle.Critical, "Perhatian")
If Val(TextBox8.Text) <
Val(TextBox7.Text) Then TextBox9.Text = ""
End Sub
Fungsi If Val[variabel] < Val[variabel] agar jika dimasukkan Pembayaran
yang
lebih kecil dari harga laptop itu sendiri tidak menghasilkan nilai negatif dan muncul peringatan MsgBox “Tidak Boleh N gutang”
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
Form2.Show() End Sub
Form.S how() agar jika diclick Button tsb langsung melanjutkan ke form
selanjutnya.
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Form2.Show() End Sub
Form.Show() agar jika diclick Button tsb langsung melanjutkan ke form selanjutnya.
Private Sub CaraPenggunaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaraPenggunaanToolStripMenuItem.Click
If MsgBox("Yakin Butuh Bantuan?", MsgBoxStyle.OkCancel,
"Keyakinan") = MsgBoxResult.Ok Then
Form3.Show()
End If
End Sub
Fungsi If MsgBox agar muncul tampilan
window untuk
bantuan dimana jika click
Ok maka akan
lanjut ke Form selanjutnya.
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
If MsgBox("Yakin mau keluar?", MsgBoxStyle.OkCancel, "Keyakinan") = MsgBoxResult.Ok Then
Me.Close() End If
End Sub
Fungsi If MsgBox agar muncul tampilan
window untuk
bantuan dimana jika click
Ok maka akan keluar aplikasi {Me.C lose()}.
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = ""
TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" ComboBox2.Text = ""
End Sub
Fungsi “” adalah sebagai Eraser. Dimana jika Button
ini
diclick Textbox1-10
dan
Combobox2 akan kembali ke tampilan semula . Form 2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
nilai1 =
Label7.Text
nilai2 = Label8.Text
nilai3 = Label9.Text
nilai4 = Label10.Text
nilai5 = Label11.Text
nilai6 = Label12.Text
Me.Label7.Text = Form1.TextBox1.Text Me.Label8.Text = Form1.TextBox2.Text
Me.Label9.Text = Form1.ComboBox2.Text
Me.Label10.Text = Form1.TextBox4.Text
Me.Label11.Text = Form1.TextBox5.Text
Me.Label12.Text = Form1.TextBox7.Text
End Sub
Fungsi diatas berfungsi untuk
mentransfer/memindahkan hasil data dari form sebelumnya ke Form2. Sehingga fungsi Form2
sebagai database dapat berfungsi.
d. Tutorial
Penggunaan
TUTORIAL 3 (Penggunaan)
1.
Buka program, maka akan muncul Window Menu
Utama
2.
Isilah Kolom “Nama” dan “Alamat” untuk Identitas Diri (Pastikan terisi
karena jika tidak
Form aplikasi tidak
dapat dilanjutkan)
3. Pada Nama
Barang pilihlah Type
Laptop
yang diinginkan maka akan muncul gambar laptop yang berkaitan dan harganya.
4. Kemudian tentukan berapa banyak yang akan dipesan, jika semua sudah sesuai keinginan maka click Button Total Harga.
5. Selanjutnya lakukan pembayaran, namun perlu diingat pembayaran tidak boleh kurang dari Total Harga, jika sudah click dan
tampilan
uang
kembalian akan
muncul.
6. Jika anda sudah
yakin
akan
semua data yang terisi maka click Button Save
untuk menyimpan data di Database.
PERINGATAN : Pastikan semua data terisi
untuk
me nghindari
“error
program”
e. Flowchart
sekian penjelasan mengenai program
aplikasi kasir, semoga dapat bermanfaat bagi yang membaca dan mencobanya. Untuk
mendownload silahkan klik link disini, terima kasih
Tidak ada komentar:
Posting Komentar