FOR语句在控制变量处于指定的值范围内时用来重复语句序列。控制变量必须是INT或DINT类型的本地变量的标识符。FOR循环的定义包括一个初始值和一个终止值的说明。两个值必须与控制变量是同类型。
FOR语句如下执行:
在循环的开始。控制变量设置为初始值(初始化赋值),每次循环重复,其增加(正增量)或减少(负增量)一个增量,直到达到终止值。
接着循环的每次运行,检查条件(终止值达到)证实是否满足。如果条件满足,语句序列被执行,否则跳过循环及其语句序列。
规则(Rules)
FOR语句的规则:
控制变量只能是INT或DINT数据类型。
能够省去语句BY [增量]。如果不指定增量,则自动指定为+1。
初始赋值(Initial Assignment)
控制变量的初始值有下列语法。在赋值左边的简单变量必须是数据类型INT或DINT。
有效的初始赋值的例子:
FOR I := 1 TO 20
FOR I := 1 TO (START + J)
终止值和增量(Final Value and Increment)
能够为终止值和所要求的增量写一个基本表达式。此基本表达式有下列语法:
能够省去语句BY [increment]。如果没指定增量,则自动指定为+1。
初始值、终止值和增量是表达式(见"表达式、运算符和地址")。当FOR语句执行时,起先对他们进行求值。
循环执行后,不允许对终止值和增量值进行更改。
例子(Example)
FUNCTION_BLOCK FOR_EXA
VAR
INDEX : INT ;
IDWORD : ARRAY [1..50] OF STRING;
END_VAR
BEGIN
FOR INDEX := 1 TO 50 BY 2 DO
IF IDWORD [INDEX] = 'KEY' THEN
EXIT;
END_IF;
END_FOR;
实例: VASS标准中用确认类型合格的语句:
iTypAnz := WORD_TO_INT(pDB_STyp.Anz) / 12; 108/12=9
iRBSAnz := WORD_TO_INT(pDB_RBS.Anz) / 1666;6664/1666=4
IF (HAND OR Auto) AND NOT xUebern AND NOT FM_Reset AND xRBS_PZ_IO THEN
---如果在手动或者自动模式时没有完成信号复位,有传递车型号正确时--
FOR iLauf := 1 TO iTypAnz BY 1 DO ---开始循环查9次找已有类型-
FOR i := 1 TO iRBSAnz BY 1 DO循环检查给入数4位
IF tempDB_STyp.Typ[iLauf].arrText[i] = arrRBS[i]
OR tempDB_STyp.Typ[iLauf].arrText[i] = 'X' AND NOT cfg.X2
OR tempDB_STyp.Typ[iLauf].arrText[i] = '~' AND cfg.X2
THEN
如果在比较时有相等的,或者在比较位中有'X'或'~'时可以不比较,但是必须在cfg.X2上进行设置.那么车型号码位合格被激活.
arrSTyp_IO[i] := True;有一位车型号码合格
ELSE 如果没有相同的,或是满足条件的就退出循环
EXIT; 退出循环
END_IF; 结束IF
END_FOR;
IF arrSTyp_IO[iRBSAnz] THEN如果有一位车型号码合格,就转存
_wdata:= tempDB_STyp.Typ[iLauf].Data;
EXIT;退出循环
END_IF;
END_FOR;结束循环
xSTyp_IO := arrSTyp_IO[iRBSAnz]; 发出车型号码合格
xSTyp_NIO := NOT xSTyp_IO;发出车型号码不合格
END_IF;