PROGRAM PEMBUATAN KASIR

“Program Kasir”

Tujuan

Tujuan dari pembuatan program aplikasi ini adalah untuk memenuhi tugas penugasan modul 2 yang diberikan oleh asissten  laboratorium Decision Support System, selain itu tujuan dari aplikasi ini adalah untuk membantu user untuk menghitung jumlah barang pembelian, total pembayaran dan kembalian. sehingga lebih mudah dalam pengerjaannya.

Sasaran

          Program aplikasi ini berguna untuk wirausahawan dan pelanggan dalam melakukan transaksi pemesanan dan pembelian.

DESKRIPSI   

Program ini merupakan aplikasi yang berfungsi sebagai alat bantu hitung yang terdiri dari satu form. Berbentuk mesin kasir dimana kasir tersebut memberikan pilihan barang apa yang hendak dibeli, berapa jumlah barang yang diinginkan dan juga harga barang yang tertera, hal ini akan memudahkan customer dan pewirausaha untuk bertransaksi pembayaran. Selain itu dalam aplikasi ini juga terdapat resi barang yang sudah dipesan.

TUTORIAL :

1.     Membuka Aplikasi Visual Basic 2010

 2. Klik ok maka akan mucul tampilan seperti berikut

3. Menampilkan Toolbox yang akan digunakan untuk memunculkan toolbox, bisa dimunculkan dari menu bar -view – other windows – toolbox

4. Ubah nama Button dengan angka pada main form  yang diinginkan

Komponen toolbox yang digunakan :

Komponen	Properties	Keterangan
Form1	Name Text	Form1
Label1	Name Text	Label1 Nama barang
Label2	Name Text	Label2 Jumlah
Label3	Name Text	Label3 Harga satuan
Label4	Name Text	Label4 Diskon
Label5	Name Text	Label5 Total harga
Label6	Name Text	Label6 pembayaran
Label7	Name Text	Label7 Item
Label8	Name Text	Label8 Jumlah
Label9	Name Text	Label9 Harga satuan
Label10	Name Text	Label10 Total harga
Label11	Name Text	Label11 diskon
Label12	Name Text	Label12 Harga yang dibayar
Label13	Name Text	Label13 pembayaran
Label14	Name Text	Label14 kembali
Label15	Name Text	Label15 Total pembelian
Listbox1	Name Text	Listbox1
Listbox2	Name Text	Listbox2
Listbox3	Name Text	Listbox3
Listbox4	Name Text	Listbox4
Listbox5	Name Text	Listbox5
Listbox6	Name Text	Listbox6
Listbox7	Name Text	Listbox7
Listbox8	Name Text	Listbox8
Textbox1	Name Text	Textbox1
Textbox2	Name Text	Textbox2
Textbox3	Name Text	Textbox3
Textbox4	Name Text	Textbox4
Textbox5	Name Text	Textbox5
Textbox7	Name Text	Textbox7
Textbox4	Name Text	Textbox4
Combobox1	Name Text	Combobox1
Button1	Name Text	Button1 Add new item
Button2	Name Text	Button2 Pembayaran
Button3	Name Text	Button3 Kembali
Button4	Name Text	Button4 keluar

5. Masukan listingcode Berikut

Public Class Form1

    Dim j As Integer

    Dim kembali As Integer

    Dim total As Integer

    Dim harga As Integer

    Dim total_pembelian As Double

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

        ListBox1.Items.Add(ComboBox1.Text)

        ListBox2.Items.Add(TextBox2.Text)

        ListBox3.Items.Add(TextBox1.Text)

        ListBox4.Items.Add(TextBox3.Text)

        ListBox5.Items.Add(j)

        ListBox6.Items.Add(TextBox4.Text)

        ListBox7.Items.Add(TextBox6.Text)

        ListBox8.Items.Add(TextBox5.Text)

        ComboBox1.Text = ""

        TextBox3.Text = ""

        TextBox2.Text = ""

        TextBox1.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

    End Sub

( deskrpsi : perintah diatas digunakan untuk menghapus isi dari textbox1 sampai textbox6 serta mengisi listbox1 sampai dengan listbox6 dengan deskripsi yg diperintahkan)

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

        CenterToScreen()

        MsgBox("selamat datang di Pusat Penyet")

        Me.BackColor = Color.DarkOrange

    End Sub

(deskripsi: perintah centerToscreen digunakan untuk membuat aplikasi terbuka di tengah – tengah dari screen laptop, sedangkan perintah backcolor digunakan untuk menyeting warna dari tampilan, dan perintah msgbox untuk memberikan sambutan pada saat aplikasi baru dimulai)

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

        If ComboBox1.Text = "ayam penyet" Then

            TextBox3.Text = "9000"

        ElseIf ComboBox1.Text = "ayam bakar" Then

            TextBox3.Text = "9000"

        ElseIf ComboBox1.Text = "ayam kremes" Then

            TextBox3.Text = "9000"

        ElseIf ComboBox1.Text = "bebek penyet" Then

            TextBox3.Text = "11000"

        ElseIf ComboBox1.Text = "bebek bakar" Then

            TextBox3.Text = "11000"

        ElseIf ComboBox1.Text = "bebek kremes" Then

            TextBox3.Text = "11000"

        ElseIf ComboBox1.Text = "tahu penyet" Then

            TextBox3.Text = "5000"

        ElseIf ComboBox1.Text = "tempe penyet" Then

            TextBox3.Text = "5000"

        ElseIf ComboBox1.Text = "lele bakar" Then

            TextBox3.Text = "7000"

        ElseIf ComboBox1.Text = "lele penyet" Then

            TextBox3.Text = "7000"

        End If

    End Sub

(deskripsi : perintah yang diberikan adalah pada saat ada menu yg dipilih maka harga akan muncul otomatis di textbox3 sesuai dengan harga yang ditetapkan)

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If TextBox4.Text >= "75" Then

            MsgBox("diskon melebihi batas ")

        ElseIf TextBox4.Text = "" Then

            MsgBox("tolong input data anda")

            TextBox4.Focus()

        Else

            j = TextBox2.Text * TextBox3.Text

            total = j - (j * (TextBox4.Text / 100))

            TextBox1.Text = total

            total_pembelian = Val(TextBox1.Text) + Val(TextBox7.Text)

            TextBox7.Text = total_pembelian

        End If

     

    End Sub

(deskripsi : perintah ini digunakan untuk mendeteksi diskon yg dimasukan,  bila diskon yang dimasukan lebih dari 75 % maka program akan menolak dengan otomatis, begitu juga bila diskon tidak diisi, dan apabila diskon yang dimasukan benar, maka program akan otomatis menghitung jumlah pembayaran yg harus dibayar, serta jumlah pembelian)

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

        If Val(TextBox6.Text) < Val(TextBox1.Text) Then

            MsgBox("uang anda kurang", MsgBoxStyle.Critical)

            TextBox1.Focus()

            kembali = "0"

        Else

            kembali = TextBox6.Text - TextBox1.Text

        End If

        TextBox5.Text = kembali

    End Sub

(deskripsi :perintah ini digunakan untuk menghitung kembalian dari proses pembayaran, bila jumlah uang yg dibayarkan lebih kecil dari total pembelian maka program akan otomatis memberi peringatan)

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

        MsgBox("terima kasih telah makan disini", MsgBoxStyle.Information, ":D")

        Me.Close()

    End Sub

(deskripsi : perintah ini digunakan untuk memberikan sebuah tanda terima kasih saat user selesai menggunakan program )

End Class