Cara Perintah Buka Cash Drawer (Laci Kasir) Dengan VB Visual basic

[Asololey]

Apa yang dimaksud dengan cash drawer? Cash drawer adalah laci tempat uang yang biasanya di pakai pada swalayan. Jika anda membuat program POS (Point of sales) silahkan simak bacaan berikut. Tutorial kali ini adalah bagaimana caranya atau code untuk membuka laci atau cash drawer, yg terhubung lewat port serial [COM1] atau pararel port [LPT1] menggunakan VB6 atau bahasa lainnya. Berikut ulasannya :



1. Printer POS Samsung (port LPT)

Open "LPT1:" For Output As #1
Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC@)
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250); 'open cash drawer
Close #1

2. Printer POS Start (port LPT)

Open "LPT1:" For Output As #1
Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @)
Print #1, Chr$(&H1B); "3"; Chr$(5); ' Set line spacing"
Print #1, Chr$(27); Chr$(7); Chr$(11); Chr$(55); Chr$(7) 'open cash drawer
Close #1

3. Printer POS Epson (port COM)

Open "COM1" For Output As #1
Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @)
Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250); 'open cash drawer
Close #1

Contoh:
Umpama codenya 27,07,11,55,07 tinggal di konversi ke bahasa vb6 menjadi:
Print #1, Chr$(27); Chr$(7); Chr$(11); Chr$(55); Chr$(7)

Silahkan anda kembangkan sendiri. Selamat mencoba.

[pastecino]

ajjiiibb lebih lengkap infonya dari postingan sebelumnya.
gue nambahin ya gan kita bisa open drawer dari driver printer, biasanya di properties ada option open drawer before print ato after print, cara ini lebih gampang, ga ribet, bisa dipake di semua program POS (ga ribet setting ato coding) asal mau ngeprint laci dah membuka duluan baru print.