11 - 158 11 - 158
MELSEC-Q
11 INSTRUCTIONS AND FUNCTIONS
Program Example
(Executed in BASIC on the AD51H)
10 ' This program receives data continually and ends only when an interrupt occurs from CH2
20 ON ERROR GOTO 500
:
' Branches to line 500 if an error occurs
30 CLS
40 ON COM(2) GOSUB 340
:
' Branches to line 340 when there is an
interrupt from CH2
50 COM(2) ON
:
' Allows an interrupt
60 DIM TBL1%(2),CNT%(10),TBL2%(2)
70 '***** RS-232C CH.OPEN *****
80 CH%=2
:
' Defines a communication channel
90 TBL1%(0)=4800
:
' Sets the baud rate
100 TBL1%(1)=&H8
:
' Sets character length, parity bit,
110 TBL1%(2)=&H1
:
' and stop bit
120 ZOPEN #CH%,TBL1%( )
:
' Opens the communication channel
130 '
140 '***** PORT CNTL *****
150 CNT%(0)=32
:
' Specifies control by the RS and ER
signals
160 CNT%(1)=&H1
:
' Turns the RS control signal on
170 ZCNTL #CH%,0,CNT%( )
:
' Executes
180 '
190 '***** MAIN PROGRAM *****
200 J=0
:
' Displays on the screen
210 LOCATE 0,J
220 PRINT "MAIN PROGRAM"
230 J=J+1
240 IF J=10 THEN J=0
250 FOR I=0 TO 100
260 NEXT I
270 CLS
280 GOTO 210
290 '
300 '***** RS-232C CH.CLOSE *****
310 ZCLOSE #CH%
320 END
330 '
340 '***** DATA RECEIVE *****
350 TBL2%(0)=12
:
' Specifies the number of transmission
request bytes
360 TBL2%(1)=0
:
' Stores the number of bytes transmitted
370 TBL2%(2)=300
:
' Specifies the timeout value
380 WOR%=TBL2%(0)/2
390 DIM CTBL%(WOR%-1)
Содержание A1SD51S
Страница 183: ...11 13 11 13 MELSEC Q 11 INSTRUCTIONS AND FUNCTIONS RUN Before swap A 0 H924 A 1 H1159 After swap A 0 H1159 A 1 H924 OK...
Страница 331: ...11 161 11 161 MELSEC Q 11 INSTRUCTIONS AND FUNCTIONS REMARK See the CON ON OFF STOP and ZOPEN functions and Section 7 4...
Страница 557: ...11 387 11 387 MELSEC Q 11 INSTRUCTIONS AND FUNCTIONS REMARK See the CHR SPACE and SPC functions...
Страница 629: ...11 459 11 459 MELSEC Q 11 INSTRUCTIONS AND FUNCTIONS REMARK See the ZOPEN ZSEND and ZCNTL instructions and Section 7 3 4...
Страница 645: ...11 475 11 475 MELSEC Q 11 INSTRUCTIONS AND FUNCTIONS REMARK See the ZEVENT ZSIGNAL and DEF ZEVENT instructions...