New topic: 

Open Cash Drawer

<http://forums.realsoftware.com/viewtopic.php?t=46613>

         Page 1 of 1
   [ 6 posts ]                 Previous topic | Next topic          Author  
Message        jetpr          Post subject: Open Cash DrawerPosted: Fri Jan 18, 
2013 8:31 pm                                 
Joined: Wed Sep 20, 2006 5:12 pm
Posts: 570
Location: Puerto Rico                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

     
_________________
Thanks for any contribution  and  God blesses all (I start Using RS in 
10/12/2010)
 Mac Mini with Snow Leopard v10.6.8 and Real Studio 2012r1 Pro And Windows 7 
RS2012r1 Personal  and  Linux RS2012r1 Personal Register user 
   my Hobbies R/C Turbines Jets Models  
                             Top                npalardy          Post subject: 
Re: Open Cash DrawerPosted: Fri Jan 18, 2013 10:59 pm                       
Real Software Engineer          
Joined: Sat Dec 24, 2005 8:18 pm
Posts: 7679
Location: Canada, Alberta, Near Red Deer                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

 

The cash drawer hooks to a parallel port ?      
_________________
My web site Great White Software
RBLibrary.com REALbasic learning  
                             Top                Specialised          Post 
subject: Re: Open Cash DrawerPosted: Fri Jan 18, 2013 11:32 pm                  
               
Joined: Thu Aug 26, 2010 6:57 am
Posts: 534
Location: Sydney Australia                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      
_________________
Regards

Chris Musty
Specialised Technologies Pty Ltd
http://www.specialised.net.au
-----------------------------------------------
Latest RB Enterprise (12r2) on Win 8 Pro, Ubuntu 12.04 - ahh the pressure I am 
about to MAC it up also!
Turnkey Linux Appliances on Amazon Web Services = unbelievably easy to deploy 
servers for WE.  
                             Top                jetpr          Post subject: 
Re: Open Cash DrawerPosted: Sat Jan 19, 2013 12:30 am                           
      
Joined: Wed Sep 20, 2006 5:12 pm
Posts: 570
Location: Puerto Rico                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      
_________________
Thanks for any contribution  and  God blesses all (I start Using RS in 
10/12/2010)
 Mac Mini with Snow Leopard v10.6.8 and Real Studio 2012r1 Pro And Windows 7 
RS2012r1 Personal  and  Linux RS2012r1 Personal Register user 
   my Hobbies R/C Turbines Jets Models  
                             Top                Specialised          Post 
subject: Re: Open Cash DrawerPosted: Sat Jan 19, 2013 6:56 pm                   
              
Joined: Thu Aug 26, 2010 6:57 am
Posts: 534
Location: Sydney Australia                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.      
_________________
Regards

Chris Musty
Specialised Technologies Pty Ltd
http://www.specialised.net.au
-----------------------------------------------
Latest RB Enterprise (12r2) on Win 8 Pro, Ubuntu 12.04 - ahh the pressure I am 
about to MAC it up also!
Turnkey Linux Appliances on Amazon Web Services = unbelievably easy to deploy 
servers for WE.  
                             Top                npalardy          Post subject: 
Re: Open Cash DrawerPosted: Sat Jan 19, 2013 7:32 pm                       Real 
Software Engineer          
Joined: Sat Dec 24, 2005 8:18 pm
Posts: 7679
Location: Canada, Alberta, Near Red Deer                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      
_________________
My web site Great White Software
RBLibrary.com REALbasic learning  
                             Top             Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 6 posts ]      
-- 
Over 1500 classes with 29000 functions in one REALbasic plug-in collection. 
The Monkeybread Software Realbasic Plugin v9.3. 
http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

rbforumnotifier@monkeybreadsoftware.de

Reply via email to