Jumat, 30 November 2012

Flowchart Program Kasir


Diposting oleh di Tidak ada komentar:

Tutorial Program Kasir

LANGKAH-LANGKAH PEMBUATAN PROGRAM KASIR

Bukalah software Visual Basic 2010 Express untuk memulai pembuatan program ini





Dalam proram kasir ini kami menggunakan 3 Form. Form 1 adalah pembuka, Form 2 adalah inti dari program kasir dan Form 3 adalah penutup. Setelah membuka program Visual Basic 2010, kami mulai membuat dengan Form 1.


♣ FORM 1
Komponen Toolbox yang digunakan :
                                                      
NO
KOMPONEN
PROPERTIES
KETERANGAN
1.
Form  1
Name

Text
Form 1

Selamat Datang
2.
Label  1
Name

Text
Label1

Welcome to The
3.
Label 2
Name

Text
Label2

Industrial Café
4.
Button 1
Name

Text
Button1

Pilih Menu
Edit Form melalui Properties sesuai keinginan. Misal ukuran dan jenis font, dan background
Setelah diedit Maka jadilah Form 1 seperti yang ada di bawah ini :
                                                                                                
Masukkan listing di bawah ini :
Public Class Form1

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

    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)

    End Sub


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

    End Sub
End Class

Pada bagian Button1 jika di klik akan berfungsi untuk menampilkan Form 2 dam menghilangkan atau menyembunyikan Form 1 itu sendiri.


♣ FORM  2
Komponen Toolbox yang digunakan :
NO.
KOMPONEN
PROPERTIES
KETERANGAN
1.
Form 2
Name

Text
Form2

Form2
2.
Label 1
Name

Text
Label1

Transaksi Pembayaran
3.
Label 2
Name

Text
Label2

Industrial Cafe
4.
Label 3
Name

Text
Label3

Jenis Makanan atau Minuman
5.
Label 4
Name

Text
Label 4

Harga
6.
Label 5
Name

Text
Label5

Jumlah Pesanan
7.
Label 6
Name

Text
Label6

Total 
8.
Label  7
Name

Text
Label7

Member
9.
Label 8
Name

Text
Label8

Total Pembelian
10.
Label 10
Name

Text
Label10

Bayar
11.
Label 11
Name

Text
Label11

Kembali
12.
Label 12
Name

Text
Label12

Diskon
13.
Button 1
Name

Text
Button1

Hitung
14.
Button2
Name

Text
Button2

Cetak
15.
Button 3
Name

Text
Button3

Reset
16.
Button 4
Name

Text
Button4

Selesai
17.
Button 5
Name

Text
Button5

Check Price
18.
ComboBox 1
Name
ComboBox1
19.
RadioButton 1
Name

Text
RadioButton1

Tidak
20.
RadioButton 2
Name

Text
RadioButton2

VIP
21.
RadioButton 3
Name

Text
RadioButton3

VVIP
22.
TextBox 1
Name

Text

Enabled
TextBox1



False
23.
TextBox 2
Name

Text
TextBox2
24.
TextBox 3
Name

Text

Enabled
TextBox3



False
25.
TextBox 4
Name

Text

Enabled
TextBox4



False
26.
TextBox 5
Name

Text
TextBox5
27.
TextBox 6
Name

Text

Enabled
TextBox6



False
28.
TextBox 7
Name

Text

Enabled
TextBox7



False
29.
ListBox 1
Name
ListBox1
Setelah menggunakan Toolbox sesuai tabel di atas maka edit dan rapikan Form sesuai keinginan. Mengganti ukuran dan jenis font dan juga Background melalui Properties. Menambahkan atau mengedit  daftar menu pada ComboBox.
                                                                                
Masukkan listing di bawah ini dan kami akan menjelaskan pada tiap sub akhir :
Public Class Form2
    Dim TotalPembelian As Single
    Dim Diskon As Single
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = ("Iced Cappucinno") Then TextBox1.Text = ("11000")
        If ComboBox1.Text = ("Hot Cappucinno") Then TextBox1.Text = ("10000")
        If ComboBox1.Text = ("Iced Chocolate") Then TextBox1.Text = ("12000")
        If ComboBox1.Text = ("Hot Chocolate") Then TextBox1.Text = ("10000")
        If ComboBox1.Text = ("Iced Tea") Then TextBox1.Text = ("6000")
        If ComboBox1.Text = ("Lemon Tea") Then TextBox1.Text = ("8000")
        If ComboBox1.Text = ("French Fries") Then TextBox1.Text = ("10000")
        If ComboBox1.Text = ("Onion Ring") Then TextBox1.Text = ("10000")
        If ComboBox1.Text = ("Pancake") Then TextBox1.Text = ("12000")
        If ComboBox1.Text = ("Cream Soup") Then TextBox1.Text = ("10000")
        
           
    End Sub

• maksud dari listing ini adalah setelah memilih salah satu menu pada ComboBox1 maka pada TextBox1 (harga) akan muncul harga-harga sesuai dengan listing di atas.


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = TextBox1.Text * TextBox2.Text
    End Sub

• Textbox3 adalah Total, sedangkan TextBox1 dan TextBox 2 adalah har dan jumlah pesanan maka maksud dari listing tersebut total adalah hasil kali dari harga dan jumlah pesanan.

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
   
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add(" ")
        ListBox1.Items.Add("                                             REKAP PEMBELIAN INDUSTRIAL CAFE")
        ListBox1.Items.Add("______________________________________________________________________________________________________________________________________________________")
        ListBox1.Items.Add("Nama Barang         Harga         Jumlah             Total              Bayar            Kembalian                                                               ")
        ListBox1.Items.Add("_______________________________________________________________________________________________________________________________________________________")

    End Sub

• Pada ListBox1 akan muncul bentuk tabel saat memainkan program. Tabel itu akan berfungsi saat selesei di akhir proram yaitu dengan meng-klik Button2 (cetak) maka akan muncul rincian rekap seperti yang ada di atas yaitu  nama barang, harga, jumlah, total, bayar, kembalian.

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

   

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

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

    End Sub

• Button4 (Selesai) bermaksud untuk mengakhiri Form 2 atau inti dari program kasir itu sendiri. Yaiti dengan menampilkan Form3 dan menghilangkan atau menyembunyikan Form2 itu sendiri.

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

        listkembali = TextBox5.Text - TextBox4.Text
        listbayar = TextBox5.Text
        If listkembali < 0 Then
            MsgBox("Maaf Uang Anda Tidak Cukup")
            TextBox6.Text = Nothing
            ListBox1.Refresh()
            Exit Sub
        End If
        TextBox5.Text = Format(listbayar, "#,#")
        TextBox6.Text = Format(listkembali, "#,#")

        With ListBox1
            .Items.Add(ComboBox1.Text & Space(10) & TextBox1.Text & Space(10) & TextBox2.Text & Space(15) & TextBox4.Text & Space(15) & TextBox5.Text & Space(10) & TextBox6.Text & Space(10))
        End With
    End Sub

• Pada listing ini mengandung banyak maksud. Pada bagian Button2 (Cetak) jika di klik maka akan muncul kembalian yaitu hasil pengurangan dari bayar (TextBox5) dan total pembelian (TextBox4). Lalu jika kembalian minus atau kurang dari satu maka akan muncul MsgBox ‘Maaf Uang Anda Tidak Cukup’.
Penulisan untuk bayar (TextBox5) dan kembali (TextBox4) adalah dipisah dengan koma (,) penanda ribuan atau puluh ribuan.
Penulisan pada rekap di ListBox1 akan muncul sesuai ukuran spasi yang telah ditulis pada listing di atas.

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
      
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox4.Text = TextBox3.Text - (TextBox3.Text * TextBox7.Text) / 100
    End Sub

• TextBox4 adalah Total Pembelian yang merupakan hasil dari Total (TextBox3) dikurangi Total (TextBox3) dikalikan Diskon (TextBox7) dan hasilnya dibagi 100.

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then TextBox7.Text = ("10")
    End Sub

• Maksudnya jika kita pilih atau klik pada VIP( RadioButton2)  maka akan muncul ‘10’ pada Diskon (TextBox7). Pembeli dengan member VIP akan mendapat diskon 10%

    Private Sub TextBox7_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then TextBox7.Text = ("0")
    End Sub

• Maksudnya jika kita pilih atau klik pada Tidak ( RadioButton1)  maka akan muncul ‘0’ pada Diskon (TextBox7). Pembeli tanpa member tidak mendapat diskon.

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then TextBox7.Text = ("12")
    End Sub

• Maksudnya jika kita pilih atau klik pada VVIP( RadioButton3)  maka akan muncul ‘12’ pada Diskon (TextBox7). Pembeli dengan member VVIP akan mendapat diskon 12%


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ComboBox1.Enabled = True
        ComboBox1.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        RadioButton3.Checked = False
        TextBox7.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""


    End Sub

• Button3 (Reset) berfungsi untuk merefresh data yang telah dimasukkan dalam program Kasir saat dimainkan.

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
            e.Handled = False
        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then
            e.Handled = False
        ElseIf e.KeyChar = vbBack Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub

• Listing di atas berfungsi untuk me-nonaktifkan huruf pada keyboard saat mengetik pada TextBox2 (Jumlah Pesanan) yang aktif hanya angka.

    Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
            e.Handled = False
        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then
            e.Handled = False
        ElseIf e.KeyChar = vbBack Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub
End Class

• Sama seperti pada TextBox2 pada TextBox5 (Bayar)  Listing di atas berfungsi untuk me-nonaktifkan huruf pada keyboard saat mengetik, yang aktif hanya angka.


♣ FORM 3
Komponen Toolbox yang digunakan :
NO
KOMPONEN
PROPERTIES
KETERANGAN
1.
Form 3
Name

Text
Form3

Form3
2.
Label 1
Name

Text
Label1

Terima Kasih
3.
Label 2
Name

Text
Label2

silahkan datang kembali
4.
PictureBox 1
Name
PictureBox1
5.
Button 1
Name

Text
Button1

OK

Setelah memasukkan Tool-tool dan mengganti Text pada Properties pada setiap Tool. Maka sama seperti Form1 dan Form2, edit Form sesuai keinginan. Dengan mengganti jenis dan ukuran font serta dengan mengganti background. Maka akan jadi seperti yang ada di bawah ini.

                                                               
Masukkan listing di bawah ini :
Public Class Form3

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

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

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

    End Sub
End Class

• Listing di atas hanya mengandung satu maksud yaitu jika Button1 (OK) di klik maka akan menutup Form3. Dan berakhirlah Program Kasir.

Untuk mendownload program kami, silahkan klik link dibawah ini :
http://www.4shared.com/rar/XjmWWVNo/kasir_fix.html?

Referensi lain pembuatan program ini, silahkan dibuka link dibawah ini 
kamarujung.blogspot.com/2012/09/program-kasir-menggunakan-visual-basic.html
kelompok34ti2011.wordpress.com/2011/11/17/tutorial-pembuatan-program-kasir-visual-basic-2010/


Diposting oleh di 2 komentar:
Langganan: Postingan (Atom)