69
If
(iRet = 0
Or
iBytesRtn <> 1)
Then
MsgBox(
"Error opening ADVSYS.sys. Error = "
& Err.LastDllError)
End
If
End
Sub
Private
Sub
Timer1_Tick(
ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Timer1.Tick
Dim
iBytesRtn
As
Integer
Dim
iRet
As
Integer
, iStatus
As
Integer
' Get Drawer Status
iRet = DeviceIoControl(DeviceHandle, ADV_STATUS_CTL_CODE, 0, 0, iStatus, 4, iBytesRtn, 0)
If
(iRet = 0
Or
iBytesRtn <> 1)
Then
MsgBox(
"Error opening ADVSYS.sys. Error = "
& Err.LastDllError)
End
If
If
(iStatus = 0)
Then
StatusText.Text =
"Cash Drawer(s) Closed"
Else
StatusText.Text =
"Cash Drawer(s) Open"
End
If
End
Sub
Summary of Contents for EP-55XX-AR10
Page 14: ...7 EP 55XX Series with 8 9 2nd Display Dimensions Unit mm...
Page 42: ...35 Jumper and Connector Locations of PEB 973D For EP 55XX AR20...
Page 46: ...39 Jumper and Connector Locations of INS8313B and GA D525E C6 For EP 55XX AR30 40...
Page 62: ...55 8 When installation is complete the WLAN utility will automatically appear on the desktop...
Page 71: ...64 7 Click Finish on the Installation Complete screen...