A. Konsep Aplikasi Online Kasir
Program kasir ini berfungsi untuk merekap data
barang-barang yang akan dibeli pelanggan pada Toko Bata. Barang-barang yang tersedia berupa sepatu maupun sandal
yang diproduksi oleh perusahaan Bata.
Sebelum pelanggan
membeli barang yang diinginkan, pelanggan diminta untuk memasukkan beberapa
data identitas untuk proses perekapan barang yang dibeli oleh pelanggan.
Cara menggunakan
aplikasi rekap ini adalah, pengguna pertama memasukkan beberapa data identitas
pelanggan, seperti : Nama, Alamat, Kota, dan Nomor Telepon. Lalu, pelanggan
memilih jenis sepatu yang diinginkan. Ada empat jenis sepatu yang bisa dipilih,
yaitu :
1. Sepatu sekolah,
2. Sepatu pria,
3. Sepatu wanita, dan
4. Sandal.
Jika telah selesai,
maka pelanggan mengklik Add Charts, sehingga semua data-data yang telah diisi
pelanggan akan direkap. Add items berfungsi untuk menambah kembali data-data
mengenai barang yang akan dibeli jika pelanggan.
Disini juga disediakan cara pembayaran barang yang
telah dipilih. Pelanggan dapat
melihatnya dari LinkLabel “disini” yang terletak di kiri bawah barang.
B. Flowchart
C. Analisis Aplikasi Online Kasir
Komponen toolbox yang digunakan:
Form
|
Komponen
|
Properties
|
Keterangan
|
Form 1
|
Form1
|
Name
Text
|
Form1
Bata Online Store
|
Label1
|
Name
Text
|
Label1
Bata Online Store
|
|
Label2
|
Name
Text
|
Label2
Nama
|
|
Label3
|
Name
Text
|
Label3
Alamat
|
|
Label4
|
Name
Text
|
Label4
Kota
|
|
Label5
|
Name
Text
|
Label5
Nomor Telepon
|
|
Label6
|
Name
Text
|
Label6
Jenis Barang
|
|
Label7
|
Name
Text
|
Label7
Tipe
|
|
Label8
|
Name
Text
|
Label8
Banyaknya
|
|
Label9
|
Name
Text
|
Label9
Gratis ongkos kirim
untuk kota Semarang
|
|
Label10
|
Name
Text
|
Label10
Dapatkan diskon
hingga 75% untuk produk tertentu
|
|
Label11
|
Name
Text
|
Label11
Tata cara
pembayaran klik
|
|
Label12
|
Name
Text
|
Label12
Harga Satuan
|
|
Label13
|
Name
Text
|
Label13
OngKir
|
|
LinkLabel1
|
Name
Text
|
LinkLabel1
disini
|
|
Button1
|
Name
Text
|
Button1
Pesan
|
|
Button2
|
Name
Text
|
Button2
Exit
|
|
Button3
|
Name
Text
|
Button3
Add to Chart
|
|
Button4
|
Name
Text
|
Button4
Add Items
|
|
Button5
|
Name
Text
|
Button5
Count
|
|
DataGridView1
|
Name
Text
|
DataGridView1
|
|
PictureBox1
|
Name
Text
|
PictureBox1
|
|
TextBox1
|
Name
Text
|
TextBox1
|
|
TextBox2
|
Name
Text
|
TextBox2
|
|
TextBox3
|
Name
Text
|
TextBox3
|
|
TextBox4
|
Name
Text
|
TextBox4
|
|
TextBox5
|
Name
Text
|
TextBox5
|
|
TextBox6
|
Name
Text
|
TextBox6
|
|
ComboBox1
|
Name
Text
|
ComboBox1
|
|
ComboBox2
|
Name
Text
|
ComboBox2
|
|
ComboBox3
|
Name
Text
|
ComboBox3
|
|
ComboBox4
|
Name
Text
|
ComboBox4
|
|
ComboBox5
|
Name
Text
|
ComboBox5
|
|
RadioButton1
|
Name
Text
|
RadioButton1
Sepatu Pria
|
|
RadioButton2
|
Name
Text
|
RadioButton2
Sepatu Wanita
|
|
RadioButton3
|
Name
Text
|
RadioButton3
Sepatu Anak
|
|
RadioButton4
|
Name
Text
|
RadioButton4
Sandal
|
|
NumericUpDown1
|
Name
Text
|
NumericUpDown1
|
Public Class Registrasi
Dim total As Double
Private Property Response As MsgBoxResult
Listing ini digunakan untuk mendeklarasikan nilai yang akan diinput dalam bentuk nilai double.
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ComboBox6.Items.Add("")
ComboBox6.Items.Add("BATA 01 213")
ComboBox6.Items.Add("BATA 01 224")
ComboBox6.Items.Add("BATA 01 276")
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ComboBox6.Items.Add("")
ComboBox6.Items.Add("BATA 02 858")
ComboBox6.Items.Add("BATA 02 867")
ComboBox6.Items.Add("BATA 02 998")
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ComboBox6.Items.Add("")
ComboBox6.Items.Add("BATA 03 490")
ComboBox6.Items.Add("BATA 03 288")
ComboBox6.Items.Add("BATA 03 217")
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
ComboBox6.Items.Add("")
ComboBox6.Items.Add("BATA 11 788")
ComboBox6.Items.Add("BATA 11 908")
ComboBox6.Items.Add("BATA 11 233")
End Sub
Listing di atas (Radiobutton1-4) digunakan untuk menambah pilihan barang yang akan dibeli pengguna.
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Form2.Show()
End Sub
Listing di atas digunakan untuk menghubungkan form ini dengan form 2 yang berisi informasi tata cara pembayaran online kasir.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Response = MsgBox("Do you want to Exit?", vbYesNo, "Exit")
If Response = vbYes Then
Me.Close()
Else 'do nothing
End If
End Sub
listing ini berguna untuk memunculkan message box jika data yang dibutuhkan tidak terisi.
Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If Not Char.IsDigit(e.KeyChar) Then e.Handled = True
End Sub
Listing ini digunakan agar pada textbox4 yang dapat diinput hanya nilai bilangan.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If TextBox1.Text = ("") Or TextBox2.Text = ("") Or ComboBox5.Text = ("") Or TextBox4.Text = ("") Or RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False And RadioButton4.Checked = False Then
MsgBox("Data yang Anda Isi Kurang Lengkap")
Else
Me.DataGridView1.Show()
With Me.DataGridView1
.Rows.Add(Me.ComboBox5.Text, Me.ComboBox6.Text, Me.TextBox5.Text, Me.NumericUpDown1.Value, Me.TextBox6.Text, Me.TextBox3.Text)
End With
End If
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
NumericUpDown1.ResetText()
ComboBox6.SelectedIndex = False
TextBox5.ResetText()
TextBox6.ResetText()
TextBox3.ResetText()
End Sub
Listing ini digunakan jika button Add to Charts diklik, maka data yang telah diinput akan dipindah ke datagridview.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
NumericUpDown1.ResetText()
ComboBox6.SelectedIndex = False
TextBox5.ResetText()
TextBox6.ResetText()
TextBox3.ResetText()
End Sub
Private Sub ComboBox6_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox6.SelectedIndexChanged
If ComboBox6.Text = ("BATA 01 213") Then TextBox5.Text = ("200000")
If ComboBox6.Text = ("BATA 01 224") Then TextBox5.Text = ("235000")
If ComboBox6.Text = ("BATA 01 276") Then TextBox5.Text = ("270000")
If ComboBox6.Text = ("BATA 02 858") Then TextBox5.Text = ("200000")
If ComboBox6.Text = ("BATA 02 867") Then TextBox5.Text = ("190000")
If ComboBox6.Text = ("BATA 02 998") Then TextBox5.Text = ("270000")
If ComboBox6.Text = ("BATA 03 490") Then TextBox5.Text = ("200000")
If ComboBox6.Text = ("BATA 03 288") Then TextBox5.Text = ("190000")
If ComboBox6.Text = ("BATA 03 217") Then TextBox5.Text = ("270000")
If ComboBox6.Text = ("BATA 11 788") Then TextBox5.Text = ("75000")
If ComboBox6.Text = ("BATA 11 908") Then TextBox5.Text = ("128000")
If ComboBox6.Text = ("BATA 12 233") Then TextBox5.Text = ("78000")
End Sub
Listing ini digunakan untuk menginput kembali barang yang ingin pesan apabila pengguna ingin memesan lagi.
Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged
If ComboBox5.Text = ("Semarang") Then TextBox6.Text = ("0")
If ComboBox5.Text = ("Jogjakarta") Then TextBox6.Text = ("5000")
If ComboBox5.Text = ("Surabaya") Then TextBox6.Text = ("5000")
If ComboBox5.Text = ("Bandung") Then TextBox6.Text = ("8000")
If ComboBox5.Text = ("Jakarta") Then TextBox6.Text = ("8000")
End Sub
Listing ini digunakan untuk menentukan harga ongkos kirim sesuai kota yang dipilih.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox3.Text = Val(TextBox5.Text) * Val(NumericUpDown1.Value) + Val(TextBox6.Text)
End Sub
Listing ini digunakan untuk menghitung jumlah yang harus dibayar sesuai dengan rumus yang ada.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Thanks for Purchasing with BATA Online Store")
Me.Close()
End Sub
Listing ini digunakan untuk menampilkan message box jika pengguna telah selesai memilih barang yang ingin dipesan.
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox7.Text = Val(TextBox3.Text) + Val(TextBox7.Text)
End Sub
listing ini untuk menghitung harga yang harus dibayar pengguna sesuai dengan rumus yang ada.
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Val(TextBox7.Text) >= Val(TextBox8.Text) Then
MsgBox("Not Enough Money")
Else : TextBox9.Text = Val(TextBox8.Text) - Val(TextBox7.Text)
End If
End Sub
End Class
Listing ini digunakan untuk menampilkan message box jika uang yang dikirim tidak cukup untuk membayar, dan menghitung nilai uang kembalian jika uang yang dikirim berlebih.
1. Cara
menampilkan form 2
Komponen toolbox yang digunakan:
Form
2
|
Form2
|
Name
Text
|
Form2
Cara
Pembayaran
|
|
GroupBox1
|
Name
Text
|
GroupBox1
|
|
Label1
|
Name
Text
|
Label1
Setelah anda melakukan pemesanan kami akan
mengirim sms konfirmasi ke nomor anda
|
|
Label2
|
Name
Text
|
Label2
Pastikan
anda mendapat sms dari pengirim
"BATA ONLINE STORE" bukan dari
nomor lainnya
|
|
Label3
|
Name
Text
|
Label3
Transfer pembayaran ke rekening a.n BATA
ONLINE
|
|
Label4
|
Name
Text
|
Label4
Mandiri
101.00.98300.997
BCA 237.301.8881
BNI 000.530.2291
|
|
Label5
|
Name
Text
|
Label5
Kirim sms
ke nomor 0813 100 2000
dengan format nama_tanggaltransfer_jumlah
transfer
|
|
Label6
|
Name
Text
|
Label6
Barang akan kami kirim ke alamat anda menggunakan
ekspedisi JNE
|
|
PictureBox1
|
Name
Text
|
PictureBox1
|
|
PictureBox2
|
Name
Text
|
PictureBox2
|
|
PictureBox3
|
Name
Text
|
PictureBox3
|
|
PictureBox4
|
Name
|
PictureBox4
|
28 Desember 2016 pukul 22.54
mas program penghitungan gaji dengan bahasa pascal, flowchat, dan bahasa natural....
makasaih