protech PA-6222, User Manual

Page: 76 / 159

Chapter 3 Software
PA-6222 SERIES USER

S MANUAL
Page:72
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)