TUTORIAL PROGRAM KASIR

TUTORIAL PROGRAM KASIR

1.      Buka visual basic 2010 lalu klik new project dan pilih windows form application.

2.      Masukkan label, combobox, textbox, button, datagridview seperti gambar dibawah ini :

3.      Masukkan listing pada combobox1(nama baang) untuk memberikan harga pada masing-masing item yan ditawarkan :

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

  If ComboBox1.Text = ("Strawberry Cheese Cake") Then TextBox1.Text = ("120000")

  If ComboBox1.Text = ("Tiramisu") Then TextBox1.Text = ("120000")

  If ComboBox1.Text = ("Blueberry Cheese Cake") Then TextBox1.Text = ("130000")

  If ComboBox1.Text = ("Choco Lava Cake") Then TextBox1.Text = ("110000")

  If ComboBox1.Text = ("Fruit Cake") Then TextBox1.Text = ("140000")

  If ComboBox1.Text = ("Modina Special Cake") Then TextBox1.Text = ("150000")

    End Sub

4.      Masukkan listing pada button1 (kalkulasi) untuk memproses perhitungan harga satuan, total harga, dan total kembalian dari data nama barang, jumlah barang, diskon, dan bayar :

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

        Dim HargaSatuan As Integer

        Dim jumlahBarang As Integer

        Dim Diskon As Double

        Dim TotalHarga As Integer

        Dim TotalBayar As Integer

        Dim TotalKembalian As Integer

        HargaSatuan = Val(TextBox1.Text)

        jumlahBarang = Val(TextBox2.Text)

        Diskon = Val(TextBox3.Text)

        TotalBayar = Val(TextBox5.Text)

      

        Diskon = (HargaSatuan * jumlahBarang * Diskon) / 100

        TotalHarga = ((HargaSatuan * jumlahBarang) - Diskon)

        TotalKembalian = (TotalBayar - TotalHarga)

       (listing ini digunakan untuk menentukan rumus perhitungan)

        If ComboBox1.Text = ("") Then

            MsgBox("silahkan pilih yang ingin dibeli")

        ElseIf TextBox2.Text = ("") Then

            MsgBox("silahkan isi jumlah yang ingin dibeli")

             

        End If

       (listing ini digunakan untuk memunculkan peringatan apabila combobox1 dan textbox2 tidak diisi)

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

            TotalKembalian = False

            MsgBox("uang yang anda bayarkan kurang")

        End If

       (listing ini digunakan untuk memunculkan peringatan apabila uang pembayaran kurang dari total harga)

        If Val(TextBox2.Text) < 1 Then

            TotalHarga = False

            TotalKembalian = False

            TextBox2.Text = ""

        End If

       (listing ini digunakan untuk memunculkan peringatan apabila jumlah angka yang diisikan di textbox2 kurang dari 1)

        TextBox4.Text = TotalHarga

        TextBox6.Text = TotalKembalian

    End Sub

5.      Masukkan listing pada button2 (reset) untuk menghapus data yang diisikan di form dan di datagridview :

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

        ComboBox1.ResetText()

        TextBox1.ResetText()

        TextBox2.ResetText()

        TextBox3.ResetText()

        TextBox4.ResetText()

        TextBox5.ResetText()

        TextBox6.ResetText()

        DataGridView1.Rows.Clear()

    End Sub

6.      Masukkan listing pada button3 (finish) untuk menyelesaikan pembelian/pembayaran dan keluar dari program dan memunculkan messegebox

“silahkan datang kembali”

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

        MsgBox("Silahkan Datang Kembali")

        Me.Hide()

    End Sub

7.      Masukkan listing pada button4 (add item) untuk memasukkan data kedalam datagridview sesuai kebutuhan :

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

        With DataGridView1

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

        End With

    End Sub

KOMPONEN-KOMPONEN TOOLS

KOMPONEN	PROPERTIES	KETERANGAN
Form1	Name Text	Form1
Label1	Name Text	Label1 Modina bakery
Label2	Name Text	Label2 Nama barang
Label3	Name Text	Label3 Harga satuan
Label4	Name Text	Label4 Jumlah
Label5	Name Text	Label5 Diskon
Label6	Name Text	Label6 Total harga
Label7	Name Text	Label7 Bayar
Label8	Name Text	Label8 Total kembalian
Combobox1	Name Text	Combobox1
Button1	Name Text	Button1 Kalkulasi
Button2	Name Text	Button2 Reset
Button3	Name Text	Button3 Finish
Button4	Name Text	Button4 Add item
Textbox1	Name Text	Textbox1
Textbox2	Name Text	Textbox2
Textbox3	Name Text	Textbox3
Textbox4	Name Text	Textbox4
Textbox5	Name Text	Textbox5
Textbox6	Name Text	Textbox6
Datagridview1	Name Text	Datagridview