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

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

11 - 457 11 - 457
MELSEC-Q
11 INSTRUCTIONS AND FUNCTIONS
Program Example (Executed in BASIC on the AD51H)
10 ' This program receives data from the LM7000 (AD51H is the reception side)
20 ON ERROR GOTO 360 : ' Branches to line 360 if an error occurs
30 '
40 '***** RS-232C CH.OPEN *****
50 DIM TBL1%(2) : ' Defines an array
60 CH%=1 : ' Defines a communication channel
70 TBL1%(0)=4800 : ' Sets the baud rate
80 TBL1%(1)=&H8 : ' Sets the character length, parity bit,
90 TBL1%(2)=&H1 : ' and stop bit
100 ZOPEN #CH%,TBL1%( ) : ' Opens the communication channel
110 '
120 '***** PORT CNTL *****
130 DIM CNT%(10) : ' Defines an array
140 CNT%(0)=32 : ' Control by the RS/ER signals W
150 CNT%(1)=&H1 : ' Control by the RS control signal NM
160 ZCNTL #CH%,CNT%( ) : ' Control by signals S
170 '
180 '***** DATA RECEIVE *****
190 DIM TBL2%(2) : ' Defines an array
200 TBL2%(0)=12 : ' Sets the number of bytes requested to be
received
210 TBL2%(1)=0 : ' Stores the number of bytes received
220 TBL2%(2)=300 : ' Sets the timeout value
230 WOR%=TBL2%(0)/2 : ' Reads 2 bytes
240 DIM CTBL%(WOR%-1) : ' Defines an array
250 ZRECEIVE #CH%,0,TBL2%( ),CTBL%( ) : ' Executes the reception
260 PRINT "RECEIVE CHARACTER =";TBL2%(1) : ' Displays the number of characters
received
270 FOR I%=0 TO WOR%-1
280 PRINT "RECEIVE DATA =&H";HEX$(CTBL%(I%)) : ' Displays the data received
290 NEXT I%
300 '
310 '***** RS-232C CH.CLOSE *****
320 ZCLOSE #CH% : ' Closes the communication channel
330 END : ' Ends the execution
340 '
350 '***** ERROR ROUTINE *****
360 ERTYPE%=ERR:ERLINE%=ERL : ' Stores the error that occurred and the line
in which it occurred
370 IF ERTYPE%=17 THEN PRINT "ZOPEN ERROR!!" : ' Displays the error if it is Z related
380 PRINT "ERROR CODE =";ERTYPE% : ' Displays the error code
390 PRINT "ERROR LINE =";ERTYPE% : ' Displays the line where the error occurred
400 RESUME 320 : ' Returns the processing to line 310