Protech Systems PA-3222, User Manual

Page: 177 / 249

Chapter 4 Software Utilities
PA-3222 SERIES USER MANUAL
Page: 4-92
bstatus = PortAccess.GetCashDrawerStatus(0x02); //Before get cash drawer
status, need to initial cash drawer first
VB.NET external function:
Declare Function SetMinSec Lib “WatchDog.dll” (ByVal kind As Short,ByVal
delay_time As Short) As Boolean
Declare Function Stopwatchdog Lib “WatchDog.dll” ( ) As Short
Declare Function Setwatchdog Lib “WatchDog.dll” (ByVal value As Short) As
Boolean
Declare Function Digital_Initial Lib “Digital.dll” ( ) As Long
Declare Function Digtial_Set Lib “Digital.dll”(ByVal hex_value As Short) As
Long
Declare Function Digtial_Get Lib ”Digital.dll” ( ) As Short
Declare Function GPIO_Initial Lib “GPIO.dll” ( ) As Long
Declare Function GPIO_SetPort Lib “GPIO.dll”(ByVal direct As long)
Declare Function GPIO_Set Lib “GPIO.dll”(ByVal dout_value As long) As
Boolean
Declare Function GPIO_Get Lib “GPIO.dll”( ) As Short
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
VB 6 external function:
Declare Function CashDrawerOpen Lib "CashDrawer.dll" (ByVal num_drawer
As Integer) As Boolean
Declare Function GetCashDrawerStatus Lib "CashDrawer.dll" (ByVal
num_drawer As Integer) As Boolean
Note: VB.net short = integer VB6