![background image](http://html.mh-extra.com/html/omron/nt20s/nt20s_operation-manual_744540249.webp)
230
EXAMPLE PROGRAM
Section 6-7
4200 GOTO *E2AAGAIN
4210 *E2ASEND
4220 SEND$=SEND$+M$
4230 RETURN
4240 *ESC.21 ’
Normal display
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4250 RETURN
4260 *ESC.22 ’
Set inverse display
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4270 RETURN
4280 *ESC.23 ’
End inverse display
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4290 RETURN
4300 *ESC.24 ’
Set flashing display
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4310 RETURN
4320 *ESC.25 ’
End flashing display
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4330 RETURN
4340 *ESC.2B ’
Set cursor position
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4350 *E2B.X
4360 LOCATE 43,0:PRINT SPACE$(36)
4370 LOCATE 43,0:INPUT ”X COORDINATE(000-255)”,BX
4380 IF BX>639 OR BX<0 THEN *E2B.X
4390 *E2B.Y
4400 LOCATE 43,1:PRINT SPACE$(36)
4410 LOCATE 43,1:INPUT ”Y COORDINATE(000–127)”,BY
4420 IF BY>255 OR BY<0 THEN *E2B.Y
4430 BX$=STR$(BX):BX$=RIGHT$(BX$,LEN(BX$)–1):BX$=RIGHT$(”00”+BX$,3)
4440 BY$=STR$(BY):BY$=RIGHT$(BY$,LEN(BY$)–1):BY$=RIGHT$(”00”+BY$,3)
4450 SEND$=SEND$+BX$+BY$
4460 RETURN
4470 *ESC.4 ’
Specify Displayed Characters
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4480 LOCATE 43,0:PRINT ”Write character string (MAX. 32 CHARACTERS) ––>|”
4490 LOCATE 43,1:INPUT C$
4500 C$=LEFT$(C$,32):L$=RIGHT$(”0”+HEX$(LEN(C$)),2)
4510 SEND$=SEND$+L$+C$
4520 RETURN
4530 *ESC.7 ’
Draw Polyline
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4540 LN=0:SL$=””
4550 *E7.X
4560 LOCATE 41,8:PRINT SPACE$(38)
4570 LOCATE 41,9:PRINT SPACE$(38)
4580 LOCATE 41,8:INPUT ”X COORDINATE(END AT 999) : ”,LX
4590 IF LX=999 THEN *E7.E
4600 IF LX<0 OR LX>255 THEN GOTO *E7.X
4610 *E7.Y
4620 LOCATE 41,9:PRINT SPACE$(38)
4630 LOCATE 41,9:INPUT ”Y COORDINATE : ”,LY
4640 IF LY<0 OR LY>127 THEN GOTO *E7.Y
4650 LX$=STR$(LX):LX$=RIGHT$(LX$,LEN(LX$)–1):LX$=RIGHT$(”00”+LX$,3)
Содержание NT20S
Страница 1: ...Cat No V020 E1 04 NT20S Programmable Terminal OPERATION MANUAL ...
Страница 2: ...i ...
Страница 3: ...ii ...
Страница 4: ...iii NT series Programmable Terminal Operation Manual Revised August 1997 ...
Страница 5: ...iv ...
Страница 7: ...vi ...
Страница 11: ...x ...
Страница 19: ...xviii ...
Страница 129: ...110 ...
Страница 169: ...150 ...
Страница 253: ...234 ...