protech PA-6225 - Sample Code

Chapter 3 Software
PA-6225 SERIES USER MANUAL
Page 147
3-3-3. Sample Code
1. VB Declaration Method
Declare Function GetCashDrawerStatus Lib CashDrawer.dll (ByVal num_drawer as
short) As Boolean
Declare Function CashDrawerOpen Lib CashDrawer.dll (ByVal num_drawer as short)
As Boolean
 Call Function
Open cash drawer:
CashDrawerOpen(1)
Open cash drawer1
CashDrawerOpen(2)
Open cash drawer2
Check cash drawer status:
Dim receive_status as Boolean
Check cash drawer1 status
Receive_Status = CashDrawerOpen(&H1)
Check cash drawer2 status
Receive_Status = CashDrawerOpen(&H2)