Mitsubishi Electric AJ71QC24 Manual page 72

4. COMMUNICATIONS USING A DEDICATED PROTOCOL MELSEC QnA
External device program
1000
I
!
_ - _ _ _ _ _ _ - _ - _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - _ - - - - - - - - - - - - - - - _ - - - - - l
1020
'
!
I
1030
I
_ _ _ _ _ _ - _ - _ - _ - _ _ - _ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - _ - - - - - - - - - - - - - - - - - -
I
1040 *ST1
1050 CLS 3 :'Clear screen
1060 CH% =1 :'Channel No.
1070
1090
OPEN "COM: E71NN" AS #CH%
:
"Set corrmunication mode, etc.
1100 ON COM GOSUB *WARIKOMI
:
COM ON :'RS-232C interrupt setting
1'310
'
!
AJ71QC24 On-Demand Function Sample Program
I
1080
I
!
- - _ _ _ - _ - _ - _ _ _ _ _ _ - _ - _ _ _ _ _ _
RS-232C open
&
initialize----------------------------!
1120
I
!
- _ - - - - _ - _ - _ - _ - _ - _ - - - - - - _ - - - - - - - - M a i ~ ~
program
_ ~ _
!
1130 *MAIN
1140 CLS
1150 LOCATE 10,l
:
PRINT "Main program running.
I'
1160 LOCATE 10,3
:
PRINT "Wher, the on-demand function is executed,"
117C
LOCATE 10,4
:
PRINT "execute the interrug: program."
1180 LOCATE 1,lO
1190 FOR I%= 1 TO 100 :FRIKT USING
" # i i #
" ;
I%
;
;200
FOR J%= 1 TO 100
1210 NEXT J%
1220 NEXT I%
1230 LOCATZ 1,10
124C
FOR I%= 1 TO 10C :PRINT
1250 FOR J%= 1 TO 100
1260 NEXT J%
I270 NEXT I%
128C
GOT0 *MAIN
1290
I,
4 , .
1303
!
!
_ - _ _ _ _ _ _ _ _ _ _ _ _ - _ _ _ - _ - - - _ - _ - - _
Interrupt program--------------------------------
13 10
*WARIKOMI
1320 CLS
1333 1F LOC(CH%)=O THEN RETURN
1340 LOCATE 25,l
:
PRINT "Data receive from AJ71QCi4"
1350
LOCATE 25,2
:
PRINT "Receive data ASCII code (hexadecimal)"
1360 FOR WT%=1 TO 1000
:
NEXT WT%
1373 RD$=INPUTS(LOC(CH%),#CH%) :MAX%=LEN(RD$)
Y380 FO3. L%=l TO MAX%
1390 A$=MID$(RD$,L%,l)
1400 PRINT SFC(35)RIGHT$("0"+HEX$(ASC(A$)) ,2)
141'3 NEXT L%
1420 LOCATE 25,2?
:
F'RINT "Hit any key r.0 return to main prograin."
1430 *RZST
1440
IK$=INKEYS
:
IF IK$="" THEK *REST
1450 RETU4N
*
BASIC commands must be changed according to BASIC software.
4
-
39