Cara membuat aplikasi kasir di visual basic 6.0

Hai sobat, apa kabar ? lama tidak menulis artikel lagi. sebelumnya saya adalah admin dari blog dumube. dikarekan ada beberapa kendala jadinya blog tersebut sudah tidak pernah di update lagi dan domainnya sudah Expired.

Maka dari itu di blog baru ini, saya akan kembali membagikan tips-tips menarik mengenai komputer dan sejenisnya!!. Oke langsung saja, pada artikel kali ini saya akan membagikan tutorial bagaimana cara membuat aplikasi kasir di visual basic 6.0.

Oke langsung saja ikuti tutorialnya dibawah ini.

Hal pertama yang harus dilakukan disini ialah buka terlebih dahulu aplikasi visual basic-nya bila sudah terinstall di komputer sobat, jika belum silahkan d0vvnl0d terlebih dahulu.
Jika sudah terbuka, maka akan muncul tampilan seperti gambar dibawah ini. Dan langsung saja Pilih Standard EXE dan tekan Ok
Maka setelah itu akan tampil Form Seperti gambar dibawah ini. Perhatikan :

1 : adalah Form1 yaitu tempat dimana kita mendesain tampilan
2 : adalah tempat Properties setiap objek pada form
3 : adalah tempat ToolBox
Pada pembuatan aplikasi kasir ini, kita memerlukan :

- 3 Frame
- 16 Label
- 1 CommboBox
- 1 CommandButton
- 2 ListBox
- 6 TextBox

Yang terdapat pada ToolBox
Kemudian, silahkan desain terlebih dahulu strukturnya seperti gambar dibawah ini :
Bila sudah, maka selanjutnya agar tampilan tampak menarik, sekarang kita akan mengubah baik warna tulisan maupun backgroundnya. Silahkan sobat ganti dengan warna sesuka hati pada bagian propertiesnya pada masing – masing komponen. Atau bisa juga mengikuti warna yang saya berikan pada contoh dibawah.

Pada gambar diatas, disini kita hanya mengganti :

- Ukuran dan jenis font ( Pada Font )
- Warna font ( Pada ForeColor )
- Warna background ( Pada BackColor )
Bila merasa bagian pewarnaan sudah menarik, selanjutnya ubah semua Caption baik Caption pada label, ComboBox, dan Frame dengan kata-kata yang kita inginkan pada Properties-nya Masing-masing. Perhatikan gambar dibawah.
Bila sudah, maka pada tahap mendesain tampilan aplikasi ini sudah selesai. Kemudian, mari kita lanjut pada bagian pengodingan, agar aplikasi ini berfungsi. Langsung saja tuliskan syntax dibawah ini pada form code

Double Klik script dibawah dan kemudian tekan Ctrl + C untuk mengcopy

Dim bayar As Long
Dim totalbayar As Long
Dim potongan As Long
Dim harga As String


Private Sub Form_Load()
'Ketika aplikasi dijalankan, maka aplikasi akan menampilkan perintah dibawah ini

Combo1.AddItem "Indomie"
Combo1.AddItem "Sarimi"
Combo1.AddItem "Coca cola"
Combo1.AddItem "Fanta"
Combo1.AddItem "Sprite"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
List2.AddItem " Indomie                    2500 "
List2.AddItem " Sarimi                      1000 "
List2.AddItem " Coca cola                 7000 "
List2.AddItem " Fanta                        6000 "
List2.AddItem " Sprite                       6500 "

End Sub

Private Sub Combo1_Click()
'Nilai-nilai harga dari produk yang terdapat pada ComboBox

If Combo1 = "Indomie" Then
harga = "2500"
End If
        If Combo1 = "Sarimi" Then
        harga = "1000"
        End If
                If Combo1 = "Coca cola" Then
                harga = "7000"
                End If
        If Combo1 = "Fanta" Then
        harga = "6000"
        End 
If Combo1 = "Sprite" Then
harga = "6500"
End If
Text1.Text = ""
Text1.SetFocus

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
'Perhitungan dilakukan setelah di tekan enter pada Tekt1, atau saat memasukan jumlah pembelian

If KeyAscii = 13 Then
    If Text1.Text = "" Then
        MsgBox "Jumlah atau kode barang belum di input ", vbQuestion + vbOKOnly, "Perhatian"
        Text1.SetFocus
        Else
        
bayar = Val(harga) * Val(Text1.Text)
Text5.Text = bayar

Label10 = Val(Label10) + Val(Text5.Text)
Text2.Text = Label10.Caption

'Perhitungan untuk diskon
If Text2.Text &gt;= 50000 Then
potongan = Val(Text2.Text * 10 / 100)
Text4.Text = potongan
Text2.Text = Val(Text2.Text) - Val(potongan)
Label10.Caption = Text2.Text
End If

   List1.AddItem Combo1.Text + "" + "           " + "" + "               " + Text1.Text + "" + "               " +     harga + "" + "                 " + Text5.Text + ""
     End If

Text3.SetFocus
End If
End Sub



Private Sub Text3_Change()
'menjumlahkan uang secara otomatis ketika diketik pada Text3 atau pada Uang Bayaran

On Error Resume Next
Text6.Text = Val(Text3.Text - Label10.Caption)
Text6.Text = Format(Text6.Text, "Rp ###,###,###")
End Sub




Private Sub Command1_Click()
'Pada saat tombol transaksi baru ditekan, maka semuanya akan bersih kembali

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Label10.Caption = "OPOS"
List1.Clear
Combo1 = "Pilih produk"
Combo1.SetFocus

End Sub

Setelah selesai menuliskan semua syntax tersebut pada bagian form code, maka sobat sudah bisa menjalankan aplikasi tersebut, dan lihat hasilnya. Berikut tampilan aplikasi yang baru saja kita buat dan sudah siap dijalankan.