Advertisment

Membuat Log Nomor Transaksi Kasir Dengan VisualBasic6.0



Membuat Log Nomor Transaksi Kasir Dengan VisualBasic6.0
#aplikasiPOS #aplikasiKasir #POSkasir #kasirPOS #JASAaplikasiKasir


Awalnya ide ini adalah ketika saya membuat aplikasi kasir pos yang saya jual belikan , jika penasaran buka link berikut ini ya Aplikasi Kasir pos untuk Toko anda.

Saat aplikasi kasir ditutup saya ingin nomor transaksi masih tersimpan jadi misalnya kasir tersebut membuka kembali aplikasi kasir pos maka nomor transaksi akan meneruskan dari nomor terakhir yang tersimpan. Terus gimana resetnya jadi mulai awal lagi? ya dibikin aja di bagian lain kasir misal hitung total keuntungan harian.

ambil contoh transaksi siang ini sudah sampai nomor transaksi 100 kemudian tiba2 listrik mati dan saya lupa bahwa batre ups saya juga soak jadi ya sudah aplikasi kan terpaksa tertutup dengan mati listrik tersebut. kemudian saya buka kembali aplikasi kasir tersebut nah saya maunya nomor transaksi nya melanjutkan dari yang ke 100 tadi jadi berikutnya 101 , nah pasti kita harus menyimpan LOG bukan? nah untuk menanggulangi hal hal tak terduga seperti itu saya berikan nih codingannya biar kalian juga tau dan bermanfaat bagi yang belum tau.

Pada Form1 tambahkan
Command1
Command2
Text1
Text2

isi Form1 dengan code berikut:

Sub dbnomor()
'source untuk membaca isi file txt
Dim FSO         As FileSystemObject
Dim TextStream  As TextStream
Dim Isi, IsiRC  As String

    IsiRC = ""
 
    If Dir("c:\test.txt") <> "" Then
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TextStream = FSO.OpenTextFile("c:\test.txt")
        Do While TextStream.AtEndOfStream = False
            Isi = TextStream.ReadLine
            If Len(Trim(Isi)) > 0 Then
                IsiRC = IsiRC & vbCrLf & Trim(Isi)
            End If
        Loop
        TextStream.Close
        Text2.Text = IsiRC
        Else
        'MsgBox " File Test.txt Tidak ada di c:\"
    End If
End Sub

Private Sub Command1_Click()
Open "c:\test.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
    Text1.Text = ""
    dbnomor
End Sub

Private Sub Command2_Click()
Kill "c:\test.txt"
'bisa di hapus bisa diisi angka 0 lagi
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
dbnomor
End Sub

Saat di build ke aplikasi ,exe anda akan menemui error seperti gambar berikut:


User defined type not definet

Error FSO As FileSystemObject

Cara mengatasinya Error FSO As FileSystemObject yaitu dengan menambahkan cheklist pada Microsoft Scripting Runtime. Klik Project - References - Microsoft Scripting Runtime.


Sekarang coba build exe sudah bisa bukan? sekarang coba jalankan aplikasinya dengan menulis angka 1 kemudian klik tombol Tulis ke TXT maka angka 1 tersebut akan di simpan di dalam file txt yang teletak di direktori C:\test.txt.

Oh iya buat yang belum tau aplikasi kasir pos saya ini deskripsinya

Anda memiliki toko, toserba, mini market kecil, dan membutuhkan aplikasi kasir untuk menunjang usaha anda? Anda mulai kesusahan menghapal harga barang dan menghitung stock barang di toko anda? apalagi anda tidak tahu berapa keuntungan atau profit toko anda hari ini?

Dengan aplikasi kasir ini :
- Anda tidak perlu menghapal harga tiap barang karena anda tinggal scan barcode harga muncul sendiri , seperti di supermarket barang discan satu demi satu kemudian keluar total harga yang harus dibayar oleh pembeli.
- anda tidak perlu susah mengingat berapa stock barang di toko anda, melalui aplikasi kasir ini anda bisa melihat sisa stock barang toko anda.
-Kelebihan dari aplikasi kasir toko ini adalah anda bisa melihat total penjualan hari ini, dan berapa profit atau keuntungan yang anda dapat hari ini juga. Profit dihitung dari harga jual dikurangi dengan harga pokok barang atau hpp.

Sekali lagi saya ada aplikasi kasir yang tentu bisa memperlancar usaha anda. Banyak sekali manfaat yang bisa anda peroleh setelah memakai aplikasi kasir toko ini diantaranya:

Program Kasir V.6
Fitur:
-Penjumlahan otomatis setelah scan barcode
-Fitur Pembatalan Transaksi Sebelum Bayar
-Fitur Quantity Jumlah pcs yang dibeli
-Clear All List Tabel penjualan
-Database Barang dengan fitur diskon
-Database transaksi
-Fitur Print-out Nota Transaksi
-Log  Data Transaksi = bisa untuk perhitungan penghasilan toko perbulan
-Log Nota Penjualan = record item apa saja yang dibeli
-F2 Untuk Melihat Shortcut Tombol
-Fitur Print Nota dengan printer epson TM-U220 Nama Printer "Generic / Text Only"
-Fitur Stock barang
-Fitur perhitungan profit 
-Fitur update database barang

info detai baca disini Aplikasi Kasir pos untuk Toko anda.

Nah sudah bisa bukan anda tinggal menerapkannya ke aplikasi kasir anda.

Demikian sedikit tulisan mengenai Membuat Log Nomor Transaksi Kasir Dengan VisualBasic6.0

Jika artikel ini bermanfaat silahkan di share !!!

Jika ada kritik dan saran silahkan tulis di kolom komentar !!






0 Response to "Membuat Log Nomor Transaksi Kasir Dengan VisualBasic6.0"

Posting Komentar