PROGRAM KASIR

                TUTORIAL PEMBUATAN PROGRAM KASIR

MODUL 2

KELOMPOK 42

NAMA ANGGOTA            :  1. PRISKA RETNOSARI  SETIOWATI        21070112110044

                                                   2. M. SIDIQ SAIFUDDIN PRASETYO        21070112130086

                                                   3. RIZAL LUTHFI NARTADHI                       21070112140135

1.       Buka program Visual Basic Express 2010

2.       Buat tampilan interface berikut :

INTERFACE

 

  
3    Atur TabIndex untuk mengurutkan posisi kursor urut dari : Nama Barang, Jumlah, Diskon, Tombol TOTAL, Bayar, tombol KEMBALIAN, Tombol ADD TO CHART.

4.       Untuk ComboBox Nama Barang masukkan listing berikut sekaligus untuk memunculkan harga satuan dari barang tersebut :

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

       

        If ComboBox1.Text = ("HONDA STREAM") Then

            Hrg.Text = ("150")

        ElseIf ComboBox1.Text = ("HONDA ODYSSEY") Then

            Hrg.Text = ("530")

        ElseIf ComboBox1.Text = ("HONDA FREED") Then

            Hrg.Text = ("260")

        ElseIf ComboBox1.Text = ("HONDA JAZZ") Then

            Hrg.Text = ("190")

        ElseIf ComboBox1.Text = ("HONDA CITY") Then

            Hrg.Text = ("280")

        ElseIf ComboBox1.Text = ("HONDA BRIO") Then

            Hrg.Text = ("170")

        ElseIf ComboBox1.Text = ("HONDA ACCORD") Then

            Hrg.Text = ("420")

        ElseIf ComboBox1.Text = ("HONDA C-RV") Then

            Hrg.Text = ("360")

        ElseIf ComboBox1.Text = ("HONDA CIVIC") Then

            Hrg.Text = ("340")

        End If

    End Sub

5.       Untuk membuat agar TextBox yang diisi hanya berupa angka seperti contoh textbox pada diskon, jumlah, dan bayar,  masukkan listing berikut :

 

    Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jml.KeyPress

        If IsNumeric(e.KeyChar) Then

            e.Handled = False

        ElseIf e.KeyChar = vbBack Then

            e.Handled = False

        Else

            e.Handled = True

        End If

    End Sub

6.  Untuk Tombol TOTAL masukkan listing berikut untuk menghitung total perhitungan jumlah dan diskon :

 Private Sub Total_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total.Click

        Dim potongan As Double

        Dim total As Double

        Dim Harga As Integer

        Dim Jumlah As Integer

        Harga = Val(Hrg.Text)

        Jumlah = Val(Jml.Text)

        diskon = Val(TextBox2.Text)

        potongan = (Harga * Jumlah * diskon) / 100

        total = ((Harga * Jumlah) - potongan)

        TextBox1.Text = total

    End Sub

7.       Masukkan listing berikut dalam tombol KEMBALIAN untuk menghitung berapa harus membayar produk dan mendapatkan kembaliannya :

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

        If Bayar.Text = "" Then

            MsgBox("Maaf Uang Anda Kurang!!")

        ElseIf TextBox1.Text > Bayar.Text Then

            MsgBox("Uang KURANG!!")

        ElseIf TextBox1.Text < Bayar.Text Then

            Kembali.Text = Bayar.Text - TextBox1.Text

        End If

    End Sub

8.  Masukkan Listing berikut untuk merefresh isi dari semua combobox, textbox, akan tetapi tidak menghilangkan data didalam DataGridView :

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

        ComboBox1.Text = ""

        TextBox2.Text = ""

        Jml.Text = ""

        Bayar.Text = ""

        Hrg.Text = ""

        Kembali.Text = ""

        TextBox1.Text = ""

    End Sub

9.  Masukkan Listing berikut untuk memasukkan semua data yang ada di textbox,combobox, dengan isi data Nama Barang, jumlah, diskon, Harga, bayar, Total,dan kembalian :

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

        With DataGridView1

            .Rows.Add(ComboBox1.Text, Jml.Text, Hrg.Text, TextBox2.Text, Bayar.Text, Kembali.Text)

        End With

    End Sub

10. Masukkan Listing berikut untuk menghapus data pada DataGridView :

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

        DataGridView1.Rows.Clear()

    End Sub

KOMPONEN	PROPERTIES	KETERANGAN
Form 1	Name Text	Form 1 Kasir
TextBox 1	Name Text	TextBox1
TextBox 2	Name Text	TextBox2
TextBox  3	Name Text	TextBox 3 Jml
TextBox 4	Name Text	TextBox 4 Hrg
TextBox 5	Name Text	Button14 Bayar
TextBox 6	Name Text	TextBox 2 Kembali
Button 1	Name Text	Button1 Add to Chart
Button 2	Name Text	Button2 Refresh
Button3	Name Text	Button3 Kembalian
Button 4	Name Text	Button25 Refresh Chart
Button 5	Name Text	Button5 Total
DataGridView	Name Text	DataGridView