![background image](http://html1.mh-extra.com/html/advantech/ep-55xx-ar10/ep-55xx-ar10_user-manual_2858588077.webp)
70
Appendix C. Sample VB6.0 Cash Drawer Code for Windows
NOTE:
Requires installation of System Driver. Refer to the System Driver Installation
section for instructions.
Option
Explicit
On
Private
Declare
Function
CreateFile
Lib
"kernel32"
Alias
"CreateFileA"
(
ByVal
lpFileName
As
String
,
ByVal
dwDesiredAccess
As
Long
,
ByVal
dwShareMode
As
Long
,
ByVal
lpSecurityAttributes
As
SECURITY_ATTRIBUTES,
ByVal
dwCreationDisposition
As
Long
,
ByVal
dwFlagsAndAttributes
As
Long
,
ByVal
hTemplateFile
As
Long
)
As
Long
Private
Declare
Function
DeviceIoControl
Lib
"kernel32"
(
ByVal
hDevice
As
Long
,
ByVal
dwIoControlCode
As
Long
,
ByVal
lpInBuffer
As
Any,
ByVal
nInBufferSize
As
Long
,
ByVal
lpOutBuffer
As
Any,
ByVal
nOutBufferSize
As
Long
,
ByVal
lpBytesReturned
As
Long
,
ByVal
lpOverlapped
As
OVERLAPPED)
As
Long
Private
Declare
Function
CloseHandle
Lib
"kernel32.dll"
(
ByVal
hObject
As
Long
)
As
Long
'CreateFile Custom Variables
Private
Type SECURITY_ATTRIBUTES
nLength
As
Long
lpSecurityDescriptor
As
Long
bInheritHandle
As
Long
End
Type
'DeviceIoControl Custom Variables
Private
Type OVERLAPPED
Internal
As
Long
InternalHigh
As
Long
offset
As
Long
OffsetHigh
As
Long
hEvent
As
Long
End
Type
Dim
DeviceHandle
As
Integer
Dim
SA
As
SECURITY_ATTRIBUTES
Dim
SA1
As
OVERLAPPED
Dim
ADV_OPEN_CTL_CODE
As
Long
Dim
ADV_STATUS_CTL_CODE
As
Long
Private
Const
GENERIC_READ
As
Long
= &H80000000
Private
Const
GENERIC_WRITE
As
Long
= &H40000000
Private
Const
FILE_SHARE_READ
As
Long
= &H1
Private
Const
FILE_SHARE_WRITE
As
Long
= &H2
Private
Const
OPEN_EXISTING
As
Long
= &H3
Private
Const
FILE_ATTRIBUTE_NORMAL
As
Long
= &H80
Private
Const
INVALID_HANDLE_VALUE
As
Long
= &HFFFFFFFF
Private
Const
METHOD_BUFFERED
As
Long
= 0, FILE_ANY_ACCESS
As
Long
= 0
Private
Function
CTL_CODE(
ByVal
lngDevFileSys
As
Long
,
ByVal
lngFunction
As
Long
,
ByVal
lngMethod
As
Long
,
ByVal
lngAccess
As
Long
)
As
Long
CTL_CODE = (lngDevFileSys)
Or
(lngAccess * (2 ^ 14))
Or
(lngFunction * (2 ^ 2))
Or
lngMethod
End
Function
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...