TUTORIAL PROGRAM KASIR

TUTORIAL PROGRAM KASIR

Dalam pembuatan program kasir ini, kita dapat menggunakan berbagai tipe atau jenis program visual basic, namun kali ini program kasir yang kami buat menggunakan Visual Basic 2010.

Bukalah Program Microsoft Visual Basic 2010, lalu siapkan form kosong yang pertama dengan pilih new project, lalu windows form application.

 

Adapun pada pembuatan program kasir ini, menggunakan beberapa toolbar, yaitu :

Label

Combo Box

TextBox

Data Grid View

Radio Button

 

Kombinasikan seluruh toolbar yang ada menjadi seperti ini :

a.         ComboBox 1

Digunakan dalam pemelihan barang yang akan dibeli konsumen, dipadukan dengan penggunaan TextBox3

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

        If ComboBox1.Text = ("pensil") Then TextBox3.Text = ("10000")

        If ComboBox1.Text = ("pulpen") Then TextBox3.Text = ("15000")

        If ComboBox1.Text = ("buku") Then TextBox3.Text = ("7000")

        If ComboBox1.Text = ("penggaris") Then TextBox3.Text = ("9000")

        If ComboBox1.Text = ("penghapus") Then TextBox3.Text = ("11000")

    End Sub

 

b.         Radio Button

Programer menggunakan radio button dalam menentukan diskon. Adapun radio button ini tidak akan terlihat pada jendela program dengan mengatur properties Visible menjadi False.

Dim diskon As Integer = 0

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

        diskon = sender.text

    End Sub

c.        TextBox 4

Digunakan untuk menentukan jumlah barang yang akan dibeli, dengan menggabungkan syarat diskon yang akan didapat, dengan pembelian jumlah barang tertentu.

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

        If Val(TextBox4.Text) >= "1" And Val(TextBox4.Text) <= "2" Then RadioButton1.Checked = True

        If Val(TextBox4.Text) >= "3" And Val(TextBox4.Text) <= "5" Then RadioButton2.Checked = True

        If Val(TextBox4.Text) >= "6" And Val(TextBox4.Text) <= "10" Then RadioButton3.Checked = True

        If Val(TextBox4.Text) >= "11" Then RadioButton4.Checked = True

    End Sub

d.         Button 1

Digunakan untuk menentukan total pembelian suatu jenis barang, dengan perhitungan yang sudah ditentukan oleh programer.

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

        harga = Val(TextBox3.Text)

        jumlah = Val(TextBox4.Text)

        potongan = (harga * jumlah * diskon) / 100

        total = ((harga * jumlah) - potongan)

        TextBox5.Text = total

       

    End Sub

e.        Button 4

Dibuat untuk merekap data- data pembelian barang yang ingin dibeli. Dalam button 4 akan dikombinasikan dengan penggunaan Data Grid View untuk mempaparkan apa saja yang akan dibeli.

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

        If RadioButton1.Checked = True Then

            DataGridView1.Rows.Insert(0, ComboBox1.SelectedItem, TextBox3.Text, TextBox4.Text, "0", TextBox5.Text)

        End If

        If RadioButton2.Checked = True Then

            DataGridView1.Rows.Insert(0, ComboBox1.SelectedItem, TextBox3.Text, TextBox4.Text, "25", TextBox5.Text)

        End If

        If RadioButton3.Checked = True Then

            DataGridView1.Rows.Insert(0, ComboBox1.SelectedItem, TextBox3.Text, TextBox4.Text, "50", TextBox5.Text)

        End If

        If RadioButton4.Checked = True Then

            DataGridView1.Rows.Insert(0, ComboBox1.SelectedItem, TextBox3.Text, TextBox4.Text , "75", TextBox5.Text)

        End If

    End Sub

f.         Button 5

Dibuat untuk merefresh ulang data-data barang beserta penghitungan harga dan potongannya, sehingga semua kotak akan kosong seperti semula, dan pengguna dapat memasukkan data yang baru.

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        ComboBox1.Text = ""

        RadioButton1.Checked = Nothing

        RadioButton2.Checked = Nothing

        RadioButton3.Checked = Nothing

    End Sub

g.         Button 6

Apabila tombol diklik maka akan muncul tatal yang harus dibayar dari penjumlahan total harga yang terdata di Data Grid View.

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

        Dim TB As Long

        TB = 0

        For t As Integer = 0 To DataGridView1.Rows.Count - 1

            TB = TB + Val(DataGridView1.Rows(t).Cells(4).Value)

        Next

        TextBox8.Text = TB

    End Sub

h.        Button 3

Apabila diklik maka dalam text box akan memumculkan sisa pembayaran apabila uang pembayaran yang diberikan lebih besar daripada total harga barang.

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

        Dim uang As Integer

        Dim total_bayar As Integer

        Dim kembalian As Integer

        uang = Val(TextBox6.Text)

        total_bayar = Val(TextBox8.Text)

        kembalian = uang - total_bayar

        TextBox7.Text = kembalian

        If uang < total_bayar Then

            TextBox7.Text = "UANG KURANG"

        End If

           

    End Sub

Pembuat dapat menambahkan tanggal dan waktu apabila meenginginkannya, dengan menggunakan toolbax timer dan dua toolbax label. Dengan listing untuk Timer seperti berikut

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label9.Text = Format(Now, "H:mm:ss tt")

        Label10.Text = Format(Now, "dddd, dd - MMMM - yyyy")

    End Sub  

SELAMAT MENCOBA