发布于 2011-08-11 13:41:53
1楼
VAR_TEMP
Index:int;
k:INT;
END_VAR;
VAR
Seqency: ARRAY[1..7] OF INT; //填入1..7
StartUp ARRAY[1..7] OF BOOL;//填入起动命令
Out arryay[1..7] OF BOOL;//输出信号
END_VAR;
FOR Index:=0 TO 7 BY 1 DO
k:=Seqency[i];
IF StartUp[k] THEN
IF Out[k] THEN
Out[k]:=0;
ELSE
Out[k]:=1;
END_IF;
StartUp[k]:=0;
END_IF;
END_FOR;