Open Cash Drawer

jetpr · **Posted:** Fri Jan 18, 2013 8:31 pm

This VB
If Trim(SysDevices.CashDrawer) = "Y" Then
Open "LPT1:" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250)
Close #1
End If

How i do this in RealBasic

:idea:

npalardy · **Posted:** Fri Jan 18, 2013 10:59 pm

jetpr wrote:

This VB
If Trim(SysDevices.CashDrawer) = "Y" Then
Open "LPT1:" For Output As #1
Print #1, Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250)
Close #1
End If

How i do this in RealBasic

:idea:

The cash drawer hooks to a parallel port ?

Specialised · **Posted:** Fri Jan 18, 2013 11:32 pm

I would say the receipt printer hooks to the parallel port and the printer triggers the cash drawer - very common setup in POS land. Either way it just looks like a serial connection and can easily be done using serial classes

jetpr · **Posted:** Sat Jan 19, 2013 12:30 am

yes the cash drawer is connect to the Printer usb or parallel

is some one have i small code to use the serial please paste

thanks

Specialised · **Posted:** Sat Jan 19, 2013 6:56 pm

So many variables but basically

If MySerialPort.Open then
  MySerialPort.Write(Chr(27) + Chr(112) + Chr(0) + Chr(25) + Chr(250))
Else
  // Serial not open - handle error here
End if

I know nothing about your setup so I am guessing you will have additional questions...
There are things like baud rate etc to set up and which serial port to use.
You should reference http://docs.realsoftware.com/index.php/Serial for all (most) of the info you need.

npalardy · **Posted:** Sat Jan 19, 2013 7:32 pm

You might look here
http://www.lvr.com/parport.htm#inpout32dll
for a dll to access the parallel port

there's also a vb project that could be converted

aaron used to have code that I have a copy of
pm me your email & I'll send it to you

	Real Software Forums The forum for Real Studio and other Real Software products.
[ REAL Software Website \| Board Index ]

Real Software Forums

Open Cash Drawer