KONSEP
Tujuan
Tujuan utama
dari pembuatan program kasir ini adalah sebagai pemenuhan tugas jurnal pada
praktikum teknologi informatika modul 2. Disamping itu program kasir ini juga
sebagai sarana pengimplentasikan ilmu yang telah didapat pada praktikum yang
telah dijalani.
Manfaat
Manfaat dari program ini adalah untuk mempermudah
seorang kasir dalam menghitung harga barang-barang pembelian konsumen.
Sasaran
Sasaran atau konsumen dari program kasir ini adalah
toko-toko swalayan maupun toko-toko lain yang memerlukan program kasir ini.
Deskripsi Program
Program ini merupakan program yang membantu kasir
dalam menghitung jumlah harga yang harus dibayar oleh konsumen. Pemakaian yang
simple menjadikan program ini cocok digunakan disemua bidang kasir. Terdapat
komponen Nama Barang, Harga, Quantity, Diskon.
Toolbox yang digunakan
|
Komponen
|
Properties
|
Keterangan
|
|
Form1
|
Name
Text
|
Form1
Toko
Kita
|
|
Label1
|
Name
Text
|
Label1
Nama
barang
|
|
Label2
|
Name
Text
|
Label2
Harga
|
|
Label3
|
Name
Text
|
Label3
Jumlah
|
|
Label4
|
Name
Text
|
Label4
Diskon/barang
|
|
Label5
|
Name
Text
|
Label5
Toko
Kita
|
|
Label6
|
Name
Text
|
Label6
Sementara
|
|
Label7
|
Name
Text
|
Label7
Bayar
|
|
Label8
|
Name
Text
|
Label8
Kembali
|
|
Label9
|
Name
Text
|
Label9
Harga Akhir
|
|
Combobox1
|
Name
|
Combobox1
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
Textbox2
|
Name
Text
|
Textbox2
|
|
Textbox3
|
Name
Text
|
Textbox3
|
|
Textbox4
|
Name
Text
|
Textbox4
|
|
Textbox5
|
Name
Text
|
Textbox5
|
|
Textbox6
|
Name
Text
|
Textbox6
|
|
Textbox7
|
Name
Text
|
Textbox7
|
|
Button1
|
Name
Text
|
Button1
Total
harga
|
|
Button2
|
Name
Text
|
Button2
Keluar
|
|
Button3
|
Name
Text
|
Button3
Kembali
|
|
Button4
|
Name
Text
|
Button4
Refresh
|
|
Button5
|
Name
Text
|
Button5
Lagi
|
|
DataGridView1
|
Name
Text
|
DataGridView1
|
|
Picturebox1
|
Name
Text
|
Picturebox1
|
|
Picturebox2
|
Name
Text
|
Picturebox2
|
|
Picturebox3
|
Name
Text
|
Picturebox3
|
|
Picturebox4
|
Name
Text
|
Picturebox4
|
|
Picturebox5
|
Name
Text
|
Picturebox5
|
Analisis listing
Public Class Form1
Dim Harga As Integer
Dim
Jumlah_Barang As Integer
= 0
Dim Diskon As Double
Dim
Total_harga As Double
Dim Bayar As Integer
Dim Kembali
As Integer
===
deklarasi ===
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles ComboBox1.SelectedIndexChanged
If
ComboBox1.Text = ("GELAS KACA") Then TextBox1.Text = ("5000")
===jika
kita memilih salah satu komponen pada combobox, missal gelas kaca, maka akan
muncul harga gelas tersebut pada texbox1===
If
ComboBox1.Text = ("GELAS KACA") Then PictureBox1.Show()
===jika
kita memilih salah satu komponen pada combobox, missal gelas kaca, maka akan
mucul gambar pada pada picturebox1===
If
ComboBox1.Text = ("CANGKIR") Then TextBox1.Text = ("3000")
If
ComboBox1.Text = ("CANGKIR") Then PictureBox2.Show()
If
ComboBox1.Text = ("PIRING KACA") Then TextBox1.Text = ("6000")
If
ComboBox1.Text = ("PIRING KACA") Then PictureBox3.Show()
If
ComboBox1.Text = ("PIRING KERAMIK")
Then TextBox1.Text = ("7000")
If
ComboBox1.Text = ("PIRING KERAMIK")
Then PictureBox4.Show()
If
ComboBox1.Text = ("SENDOK") Then TextBox1.Text = ("8000")
If
ComboBox1.Text = ("SENDOK") Then PictureBox5.Show()
If
ComboBox1.Text = ("GARPU") Then TextBox1.Text = ("8000")
If
ComboBox1.Text = ("GARPU") Then PictureBox6.Show()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
If
Val(TextBox3.Text) > Val(TextBox6.Text) Then
===kita
membandingkan. Jika nilai yang diinputkan pada textbox3 lebih besar dari
textbox6 maka akan muncul message box dibawah ini===
MsgBox("Uangnya
kurang coooy")
Else
Me.Close()
===jika keadaanya
tidak seperti yang telah disebutkan diatas, maka form adam tertutup===
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Harga = Val(TextBox1.Text)
Jumlah_Barang = Val(TextBox5.Text)
===kita
menentukan bahwa harga atau jumlah_barang mempunyai suatu nilai, yaitu berupa
val(texbox1.text) atau val(textbox5.text)===
TextBox5.Text = Format(Jumlah_Barang, "#,#")
===listing
diatas berfungsi agar nilai yang
diinputkan pada textbox5 bernilai positif===
If
Val(TextBox5.Text) < 0 Then
MsgBox("jumlah
barang error")
===jika
nilai yang diinputkan pada textbox5 lebih besar dari 0, maka akan muncul kotak
pesan===
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox5.Text = ""
TextBox2.Text = ""
===setelah
kotak pesan muncul, kejadian kedua yang akan terjadi yaitu nilai-nilai pada
combobox dan texbox yang telah disebutkan diatas akan menghilang dengan kata
lain jadi kosong kembali===
Exit Sub
Else
Diskon = (Harga * Jumlah_Barang *
TextBox2.Text) / 100
Total_harga = Format((Harga *
Jumlah_Barang) - Diskon, "#,#")
===menunjukkan rumus operasi matematis yang
digunakan untuk mencari nilai diskon dan total harga===
TextBox3.Text = Total_harga
===menyatakan
bahwa nilai dari total_harga akan ditampilkan pada TextBox3.Text===
TextBox7.Text = (Val(TextBox7.Text)
+ Val(TextBox3.Text))
===penjumlahan
nilai-nilai yang diinputkan pada textbox7(nilai awal) dan 3 akan ditampilkan
pada textbox7===
DataGridView1.Rows.Insert(0,
ComboBox1.Text, TextBox1.Text, TextBox2.Text, TextBox5.Text, TextBox3.Text)
===menyatakan
bahwa kita memakai datagridview dan pada kolom 1 hingga kolom 5 diisi oleh apa
yang tertulis pada combobox1, textbox1, seterusnya sesuai yang tertera
diatas===
End If
If
Diskon < 0 Then
MsgBox("Tidak
Melayani Diskon Minus")
TextBox2.Text = ""
TextBox3.Text = ""
Exit Sub
===telah
dijelaskan diatas===
End If
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
===jadi
jika tombol 3 diklik, maka akan tereksekusi listing berikut ini===
Total_harga = Val(TextBox7.Text)
Bayar = Val(TextBox6.Text)
===telah dijelaskan
diatas===
Kembali = Format(Bayar - Total_harga, "#,#")
TextBox4.Text = Format(Kembali, "#,#")
===merupakan operasi
matematis, nilai bayar dikurang nilai
total_harga===
If
Bayar < Total_harga Then
MsgBox("jumlah
pembayaran salah")
TextBox4.Text = ""
Exit Sub
===sudah
dijelaskan diatas===
End If
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox5.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
====agar nilai-nilai
yang diinputkan pada combobox dan textbox yang tertera diatas kembali kosong===
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
===agar semua
picturebox yang tertera diatas tidak dapat dilihat===
DataGridView1.Rows.Clear()
====agar nilai-nilai
yang diinputkan pada datagridview yang tertera diatas kembali kosong===
End Sub
Private Sub Button5_Click_1(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox5.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
====agar nilai-nilai
yang diinputkan pada combobox dan textbox yang tertera diatas kembali kosong===
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox5.Visible = False
PictureBox6.Visible = False
====agar semua
picturebox yang tertera diatas tidak dapat dilihat===
End Sub
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
===untuk
memanggil angka hex 48 dan 57. Dimana 48 adalah 0 dan 57 adalah 9===
End Sub
End Class
Tidak ada komentar:
Posting Komentar