FOR語句在控制變量處于指定的值范圍內(nèi)時(shí)用來重復(fù)語句序列。控制變量必須是INT或DINT類型的本地變量的標(biāo)識(shí)符。FOR循環(huán)的定義包括一個(gè)初始值和一個(gè)終止值的說明。兩個(gè)值必須與控制變量是同類型。

FOR語句如下執(zhí)行：

在循環(huán)的開始?？刂谱兞吭O(shè)置為初始值(初始化賦值)，每次循環(huán)重復(fù)，其增加(正增量)或減少(負(fù)增量)一個(gè)增量，直到達(dá)到終止值。

接著循環(huán)的每次運(yùn)行，檢查條件(終止值達(dá)到)證實(shí)是否滿足。如果條件滿足，語句序列被執(zhí)行，否則跳過循環(huán)及其語句序列。

規(guī)則(Rules)

FOR語句的規(guī)則：

控制變量只能是INT或DINT數(shù)據(jù)類型。

能夠省去語句BY [增量]。如果不指定增量，則自動(dòng)指定為+1。

初始賦值(Initial Assignment)

控制變量的初始值有下列語法。在賦值左邊的簡(jiǎn)單變量必須是數(shù)據(jù)類型INT或DINT。

有效的初始賦值的例子：

FOR I := 1 TO 20
FOR I := 1 TO (START + J)

終止值和增量(Final Value and Increment)

能夠?yàn)榻K止值和所要求的增量寫一個(gè)基本表達(dá)式。此基本表達(dá)式有下列語法：

能夠省去語句BY [increment]。如果沒指定增量，則自動(dòng)指定為+1。

初始值、終止值和增量是表達(dá)式(見"表達(dá)式、運(yùn)算符和地址")。當(dāng)FOR語句執(zhí)行時(shí)，起先對(duì)他們進(jìn)行求值。

循環(huán)執(zhí)行后，不允許對(duì)終止值和增量值進(jìn)行更改。

例子(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;

實(shí)例: VASS標(biāo)準(zhǔn)中用確認(rèn)類型合格的語句:

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

---如果在手動(dòng)或者自動(dòng)模式時(shí)沒有完成信號(hào)復(fù)位,有傳遞車型號(hào)正確時(shí)--

FOR iLauf := 1 TO iTypAnz BY 1 DO ---開始循環(huán)查9次找已有類型-

FOR i := 1 TO iRBSAnz BY 1 DO循環(huán)檢查給入數(shù)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

如果在比較時(shí)有相等的,或者在比較位中有'X'或'~'時(shí)可以不比較,但是必須在cfg.X2上進(jìn)行設(shè)置.那么車型號(hào)碼位合格被激活.

arrSTyp_IO[i] := True;有一位車型號(hào)碼合格

ELSE 如果沒有相同的,或是滿足條件的就退出循環(huán)

EXIT; 退出循環(huán)

END_IF; 結(jié)束IF

END_FOR;

IF arrSTyp_IO[iRBSAnz] THEN如果有一位車型號(hào)碼合格,就轉(zhuǎn)存

_wData := tempDB_STyp.Typ[iLauf].Data;

EXIT;退出循環(huán)

END_IF;

END_FOR;結(jié)束循環(huán)

xSTyp_IO := arrSTyp_IO[iRBSAnz]; 發(fā)出車型號(hào)碼合格

xSTyp_NIO := NOT xSTyp_IO;發(fā)出車型號(hào)碼不合格

END_IF;

編輯：jq