Membuat Aplikasi Kasir Dengan Microsoft Visual Studio 2012

Visual Basic merupakan bahasa pemrograman yang dapat digunakan untuk membuat suatu program sederhana. Berikut adalah contoh langkah-langkah penggunaan visual basic 2012 dalam membuat program kasir.

Langkah-Langkah:

1. Membuka Aplikasi Visual Basic 2012

2.Klik  Windows Form Application maka akan muncul tampilan seperti berikut.

 3. Toolbox yang akan digunakan.

 

ü MEMBUAT DESIGN FORM

    Bentuk Form seperti di bawah ini dengan menggunakan komponen toolbox di atas

2.      Ubah text pada Komponen-komponen tersebut seperti di bawah ini 

3.      Untuk mengganti background, form1 dipilih-properties – Backgroundimage-local resource-import-ok. Mengganti style pada toolbox (font,background toolbox), klik toolbox yang hendak diganti stylenya,pilih properties-font(huruf)-) backcolor (background toolbox) - forecolor(warna tulisan toolbox).

·        Membuat Listing Program

1.       Double click pada design form

2.      Menentukan deklarasi variabel dari form 1 dengan listing:

Public Class Form1

    Dim coklat, susu, roti, Jumlah_Barang, Jumlah_Pembayaran, Uang_Pembayaran, Sisa As Integer

3.      Double click pada Button1 untuk mengaktifkan tombol sisa pembayaran, dengan listing:

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

        Uang_Pembayaran = Val(TextBox3.Text)

        Sisa = Uang_Pembayaran - Jumlah_Pembayaran

        TextBox4.Text = Sisa

    End Sub

4.      Double click pada Button3 untuk mengaktifkan tombol ComboBox1 untuk pemlihan jenis barang, mengaktifkan TextBox1 untuk menginput jumlah barang, dan jumlah pembayaran yang keluar pada TexBox2, listing:

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

        coklat = 12000

        susu = 5000

        roti = 8000

        Jumlah_Barang = Val(TextBox1.Text)

        If ComboBox1.Text = "coklat" Then

            Jumlah_Pembayaran = coklat * Jumlah_Barang

            TextBox2.Text = Jumlah_Pembayaran

        ElseIf ComboBox1.Text = "susu" Then

            Jumlah_Pembayaran = susu * Jumlah_Barang

            TextBox2.Text = Jumlah_Pembayaran

        ElseIf ComboBox1.Text = "roti" Then

            Jumlah_Pembayaran = roti * Jumlah_Barang

            TextBox2.Text = Jumlah_Pembayaran

        Else

            MsgBox("MASUKAN INPUT BARANG", MsgBoxStyle.Critical, "Mesin Kasir")

        End If

    End Sub

5.      Double click pada Button2 untuk menutup program, listing :

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

        End

    End Sub

End Class

4.      File > Save All, untuk menyimpan program secara keseluruhan.

5.      Tekan F5 untuk menjalankan program kasir. Jika terjadi error, mungkin ada kesalahan dalam memasukkan listing code.

Apabila tidak error maka akan keluar tampilan seperti dibawah ini

Pada gambar diatas pertama kita pilih barang yang ingin kita beli pada ComboBox, kemudian kita input kan banyaknya barang yang dibeli, setelah itu klik “proses” maka akan tercantum harga yang harus dibayar.

Gambar menginput kan uang yang d bayar beserta kembaliaannya.

Pada gambar ini ,kita menginputkan jumlah uang yang diberikan oleh pembeli,misalnya 50.000, maka kita akan klik “Hitung” kemudian akan keluar hasil uang kembaliaannya,jika uang yang kita inputkan tadi melebihi uang yang harus kita bayar. Dan apabila kita klik tombol “Clear” ,program akan ditutup.

SELESAI