diandong.bas

来自「是关于trio公司的TRIO BASIC语言的！对于trio basic中几个难」· BAS 代码 · 共 56 行

'数字量输入通道0为总开关，为off时禁止所有运动
REPEAT
IF IN(0)=1 THEN
IF IN(1)=1 THEN'in(0)=1,in(1)=1,in(2)有上升沿
IF IN(2)=0 THEN
WA(1)
IF IN(2)=1 THEN
autoflag=1'给出标志位
ENDIF
ENDIF

ENDIF

IF IN(1)=0 THEN'in(0)=1,in(1)=0,in(2)有上升沿
IF IN(2)=0 THEN
WA(1)
IF IN(2)=1 THEN
tepflag=1'给出标志位
ENDIF
ENDIF

ENDIF

ELSE
    BASE(0)
    CANCEL
    CANCEL
    CANCEL
    autoflag=0
    tepflag=0
ENDIF

IF autoflag=1 THEN'根据前面不同的条件，执行不同的动作
    BASE(0)
    SPEED=30
    'IF MTYPE=0 THEN
    'FORWARD
    'ENDIF
    MOVE(20) AXIS(0)
WAIT IDLE
autoflag=0
ENDIF

IF tepflag=1 THEN
    BASE(0)
    SPEED=10
    'IF MTYPE=0 THEN
    'FORWARD
    'ENDIF
    MOVE(20) AXIS(0)
WAIT IDLE
tepflag=0
ENDIF

UNTIL FALSE