Tutorial Program Kasir

Konsep Program Mesin Hitung Kasir

1. Deskripsi

Program yang kami buat ini adalah program yang dapat membantu seorang kasir dalam bekerja, sehingga memudahkan kasir untuk melakukan proses penghitungan

2. Tujuan dan Manfaat

Tujuan dari program ini adalah memberi bantuan dan kemudahan dalam pekerjaan seorang kasir, karena kasir hanya perlu menginputkan data yang diminta untuk kemudian di proses menjadi sebuah informasi

3. Sasaran

Sasaran dari program ini adalah untuk sebuah toko/swalayan yang dijadikan sebagai mesin hitung atas transaksi yang berlangsung di toko/swalayan tersebut

Langkah awal adalah buka dahulu Visual Basic 2010 :

Form1 :

Komponen Toolbox yang digunakan sebagai berikut :

No.	Komponen	Properties	Keterangan
1	Form1	Name	Form1
		Text	Mesin Kasir
		Background	Chartreuse
		Display	CentertoScreen
2	Label1	Name	Label1
		Text	Electronic Solutions
		TextAlign	TopCenter
		Font	Monotype Corsiva, 18 pt
3	Label2	Name	Label2
		Text	Nama Barang
4	Label3	Name	Label3
		Text	Harga Satuan
5	Label4	Name	Label4
		Text	Jumlah
6	Label5	Name	Label5
		Text	Diskon
7	Label6	Name	Label6
		Text	Total Harga
8	Label7	Name	Label7
		Text	Dibayar
9	Label8	Name	Label8
		Text	Kembalian
10	Label14	Name	Label
		Text	Tanggal
11	DateTimePicker1	Name	DateTimePicker1
12	Combobox1	Name	Combobox1
		Item	TV, DVD, Dispenser, Kulkas, Laptop, Kipas Angin
13	Label11	Name	Label11
		Text	Rp
14	Textbox1	Name	Textbox1
		Text
		TextAlign	Right
		Font	Microsoft sans Serif,8 pt
15	Textbox2	Name	Textbox2
		Text
		TextAlign	Right
		Font	Microsoft sans Serif,8 pt
16	Label9	Name	Label9
		Text	unit
17	Combobox2	Name	Combobox2
		Item	0, 25%, 50%, 75%
18	Button1	Name	Button1
		Text	Hitung
19	Textbox3	Name	Textbox3
		Text
		TextAlign	Left
		Font	Microsoft sans Serif,8 pt
20	Label10	Name	Label10
		Text	Rp
21	Textbox4	Name	Textbox4
		Text
		TextAlign	Right
		Font	Microsoft sans Serif,8 pt
22	Label12	Name	Label12
		Text	Rp
23	Textbox5	Name	Textbox5
		Text
		TextAlign	Right
		Font	Microsoft sans Serif,8 pt
24	Label13	Name	Label13
		Text	Rp
25	Button5	Name	Button5
		Text	Bayar
26	Button4	Name	Button4
		Text	Keluar
27	Button3	Name	Button3
		Text	Reset
28	Button2	Name	Button2
		Text	Cetak Struk
29	Picturebox1	Name	Picturebox1
30	Picturebox2	Name	Picturebox2
31	Button6	Name	Button6
		Text	Tambahkan
32	DataGridView1	Name	DataGridView1
33	Textbox7	Name	Textbox7
		Text
		TextAlign	Left
		Font	Microsoft sans Serif,8 pt

Listingnya :

Public Class Form1

    Dim Diskon As Integer = 0

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Diskon = sender.text

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With ComboBox1

            .Items.Add("TV")

            .Items.Add("DVD")

            .Items.Add("Dispenser")

            .Items.Add("Kulkas")

            .Items.Add("Laptop")

            .Items.Add("Kipas Angin")

        End With

        Me.CenterToScreen()

        Me.BackColor = Color.Chartreuse

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = ("TV") Then TextBox1.Text = ("2500000")

        If ComboBox1.Text = ("DVD") Then TextBox1.Text = ("975000")

        If ComboBox1.Text = ("Dispenser") Then TextBox1.Text = ("520000")

        If ComboBox1.Text = ("Kulkas") Then TextBox1.Text = ("5525000")

        If ComboBox1.Text = ("Laptop") Then TextBox1.Text = ("6850000")

        If ComboBox1.Text = ("Kipas Angin") Then TextBox1.Text = ("215000")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim potongan As Double

        Dim total As Double

        Dim harga As Integer

        Dim jumlah As Integer

        Diskon = Val(TextBox6.Text)

        harga = Val(TextBox1.Text)

        jumlah = Val(TextBox2.Text)

        potongan = (harga * jumlah * Diskon) / 100

        total = ((harga * jumlah) - potongan)

        TextBox3.Text = total

        If ComboBox1.Text = "" Or TextBox1.Text = "" Or TextBox6.Text = "" Or TextBox2.Text = "" Then

            TextBox3.Text = ""

            MsgBox("Lengkapilah data dahulu!", 0, "warning")

        End If

        If TextBox6.Text > 100 Then

            TextBox6.Text = ""

            TextBox3.Text = ""

            MsgBox("input data anda salah", 0, "warning")

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ComboBox1.Text = ""

        TextBox6.Text = ""

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Close()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        With DataGridView1

            DataGridView1.Rows.Add(ComboBox1.Text, TextBox1.Text, TextBox2.Text, TextBox6.Text, TextBox3.Text)

        End With

        Dim total As Double

        Dim harga As Double

        Dim jumlah As Integer

        Dim potongan As Double

        Diskon = Val(TextBox6.Text)

        potongan = (harga * jumlah * Diskon) / 100

        harga = Val(TextBox1.Text)

        jumlah = Val(TextBox2.Text)

        total = ((harga * jumlah) - potongan) + Val(TextBox7.Text)

        TextBox7.Text = total

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim dibayar As Double

        Dim kembalian As Integer

        Dim harga As Integer

        harga = Val(TextBox7.Text)

        dibayar = Val(TextBox4.Text)

        kembalian = Val(TextBox5.Text)

        kembalian = (dibayar - harga)

        TextBox5.Text = kembalian

        If TextBox4.Text = "" Then

            MsgBox("Lengkapilah data dahulu!", 0, "warning")

        End If

        If Val(TextBox4.Text) < Val(TextBox7.Text) Then

            TextBox4.Text = ""

            TextBox5.Text = ""

            MsgBox("Uang yang anda bayar kurang!", 0, "Warning!")

        End If

    End Sub

End Class

   

ANALISIS

-    Sub 1 untuk mendeklarasikan diskon

-    Sub 2 berfungsi untuk menginputkan data pada combobox agar terdapat pilihan barang pada tombol pulldown, lalu menampilkan tampilan program pada tengah layar, dan memberikan warna pada background

-    Sub 3 berfungsi untuk menginputkan masing – masing harga yang ada pada textbox1 atas barang – barang yang terdapat dalam combobox1   

-    Sub 4 berfungsi untuk proses aritmatika (menghitung harga dan diskon), lalu jika ada data yang belum terisi (nama, harga, jumlah, diskon) maka tidak akan bias melanjutkan ke proses hitungan selanjutnya (total harga). Dan jika diskon di input melebihi angka 100 maka data tidak bias diproses dan textbox 3 dan 6 juga akan menjadi kosong kembali

-    Sub 5 adalah button untuk mereset semua data yang ada pada kolom data isian

-    Sub 6 adalah button untuk keluar dari program aplikasi

-    Sub 7 untuk menginputkan data penjualan ke dalam datagrid (merekap), lalu untuk melakukan proses aritmatika pula ke dalam textbox7

-    Sub 8 berisi proses aritmatika untuk menghitung uang kembalian. Jika uang pembayaran blm diinput maka tidak bias menampilkan uang kembalian. Dan jika uang yang diinputkan kurang dari total harga (textbox4 < textbox7) maka data tidak dapat diproses