Open Cash Drawer With VB

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

Untuk daftar kode yang lainnya, anda dapat lihat disini
http://pages.prodigy.net/daleharris/popopen.htm

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.