11 - 424 11 - 424
MELSEC-Q
11 INSTRUCTIONS AND FUNCTIONS
Program Example
5 ' This program reads the causes of reception errors
10 DIM TBL1%(2),TBL2%(1)
:
' Defines arrays
20 CH%=1
:
' Specifies the communication channel
30 TBL1%(0)=9600
40 TBL1%(1)=&H108
50 TBL1%(2)=&H1
60 ZOPEN #CH%,TBL1%( )
:
' Opens the communication channel
70 TBL2%(0)=64
:
' Specifies to read the causes of reception
errors
80 ZCNTL #CH%,0,TBL2%( )
:
' Executes the read operation
90 A=RDSET(3,TBL2%(1))
:
' Reads the bits
100 B=RDSET(4,TBL2%(1))
110 C=RDSET(5,TBL2%(1))
120 IF A=1 THEN PRINT "There is a parity error!"
:
' Displays the results
130 IF B=1 THEN PRINT "There is an overrun error!"
140 IF C=1 THEN PRINT "There is a framing error!"
150 IF A<>1 AND B<>1 AND C<>1 THEN PRINT "No error"
160 ZCLOSE #CH%
:
' Closes the communication channel
170 END
