Sharp RZ-X750 (serv.man5) Service Manual ▷ View online
Programming
Programming
Programming
Programming Guide
Guide
Guide
Guide for
for
for
for RZ
RZ
RZ
RZ----X750
X750
X750
X750
7
SHARP
DrawerOpened
Format
Private Declare Function DrawerOpend Lib "DrawerX750.dll"_
(ByVal PortNum As Integer) As Integer
Description
Get Cash Drawer status.
Return Value
Opened
1
Closed
-1
Fail
0
Parameter
PortNum
1
Drawer Port1
2
Drawer Port2
Example
Sub CheckStatusPort1()
Dim Ret As Long
Ret = DrawerOpend (1)
End Sub
Programming
Programming
Programming
Programming Guide
Guide
Guide
Guide for
for
for
for RZ
RZ
RZ
RZ----X750
X750
X750
X750
8
SHARP
Line Display
CDPOpen
Format
Private Declare Function CDPOpen Lib "CDP202E.dll"_
(ByVal PortNum As Long) As Long
Description
Open port of Line Display.
Return Value
Port open error
0
Success
1
Port already Open
2
Parameter
PortNum
1~3
Select port
Example
Dim Ret As Long
Ret = CDPOpen (3)
Programming
Programming
Programming
Programming Guide
Guide
Guide
Guide for
for
for
for RZ
RZ
RZ
RZ----X750
X750
X750
X750
9
SHARP
CDPClose
Format
Private Declare Function CDPClose Lib "CDP202E.dll" () As Long
Description
Close port of Line Display.
Return Value
Success
1
Port close error
0
Example
Dim Ret As Long
Ret = CDPClose ()
Programming
Programming
Programming
Programming Guide
Guide
Guide
Guide for
for
for
for RZ
RZ
RZ
RZ----X750
X750
X750
X750
10
SHARP
CdpWrite
Format
Private Declare Function CdpWrite Lib "CDP202E.dll"_
(ByVal Row As Long, ByVal Data As String) As Long
Description
Displays the string of characters at the specified row and first column.
Return Value
Success
1
Transmit error
0
Parameter
Row
1,2
The start column for the text.
Data
20 Characters
English, Japanese(katakana)
Example
Sub DisplayTotal()
Dim Ret As Long
If CDPOpen (3) = SUCCESS Then
Ret = CdpWrite (1, “Total : 10.00”)
Ret = CdpWrite (2, “Have a nice day!!!”)
CDPClose()
End IF
End Sub
Click on the first or last page to see other RZ-X750 (serv.man5) service manuals if exist.