Mitsubishi A1SD51S, Руководство по программированию

Страница: 594 / 688

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