Siemens_SCL语句详解

西门子SCL语言

第一章IF：条件执行

IF 分支

IF <条件> THEN <指令>

END_IF;

如果满足该条件，则将执行THEN 后编写的指令。如果不满足该条件，则程序将从END_IF 后的下一条指令开始继续执行。

IF 和ELSE 分支

IF <条件> THEN <指令1>

ELSE <指令0>;

END_IF;

如果满足该条件，则将执行THEN 后编写的指令。如果不满足该条件，则将执行ELSE 后编写的指令。程序将从END_IF 后的下一条指令开始继续执行。

IF、ELSIF 和ELSE 分支

IF <条件1> THEN <指令1>

ELSIF <条件2> THEN <指令2>

ELSE <指令0>;

END_IF;

如果满足第一个条件（<条件1>），则将执行THEN 后的指令（<指令1>）。执行这些指令后，程序将从END_IF 后继续执行。

如果不满足第一个条件，则将检查第二个条件（<条件2>）。如果满足第二个条件（<条件2>），则将执行THEN 后的指令（<指令2>）。执行这些指令后，程序将从END_IF 后继续执行。如果不满足任何条件，则先执行ELSE 后的指令（<指令0>），再执行END_IF 后的程序部分。

在IF 指令内可以嵌套任意多个ELSIF 和THEN 组合。可以选择对ELSE 分支进行编程。IF "Tag_1" = 1

THEN "Tag_Value" := 10;

ELSIF "Tag_2" = 1

THEN "Tag_Value" := 20;

ELSIF "Tag_3" = 1

THEN "Tag_Value" := 30;

ELSE "Tag_Value" := 0;

END_IF;

IF 案例如下：

FUNCTION_BLOCK "IF"

TITLE = 'IF Statement'

//IF ... THEN ... ELSE ... END_IF

VAR_INPUTStart : BOOL;

Manual : BOOL;

ActVal : INT;

END_VAR

VAR

Manual_FM : BOOL;

over : BOOL;

under : BOOL;

equal_to : BOOL;

Setpoint_man : INT := 1000;

Setpoint : INT;

Deviation : INT;

y_index : INT := 12;

Total : INT;

END_VAR

VAR_TEMP i : INT; END_VAR

BEGIN

//Simple IF branch

IF Start THEN Setpoint := 1200; END_IF; IF Manual THEN

Setpoint := Setpoint_man;

Q4.0 := TRUE;

END_IF;

//Branch with THEN...ELSE

IF ActVal > Setpoint

THEN Deviation := ActVal - Setpoint;

ELSE Deviation := Setpoint - ActVal; END_IF;

//Branch with ELSIF

IF ActVal > Setpoint

THEN over := TRUE;

under := FALSE;

equal_to := FALSE;

ELSIF ActVal < Setpoint

THEN under := TRUE;

over := FALSE;

equal_to := FALSE;

ELSE equal_to := TRUE;

over := FALSE;under := FALSE;

END_IF;

//Edge evalaution (rising edge)

IF Manual AND NOT Manual_FM

THEN (*rising edge*);

END_IF;

Manual_FM := Manual; //Correct edge memory bit

//Counting bits set to "1"

Total := 0;

FOR i:=1 TO 32 DO

IF M[y_index,i] = TRUE

THEN Total := Total + 1;

END_IF;

END_FOR;

END_FUNCTION_BLOCK

第二章CASE：创建多路分支

说明：使用“创建多路分支”指令，可以根据数字表达式的值执行多个指令序列中的一个。表达式的值必须为整数。执行该指令时，会将表达式的值与多个常数的值进行比较。如果表达式的值等于某个常数的值，则将执行紧跟在该常数后编写的指令。常数可以为以下值：·整数（例如，5）

·整数范围（例如，15 到20）

·由整数和范围组成的枚举（例如，10、11、15 到20）

CASE <表达式> OF

<常量1>: <指令1>

<常量2>: <指令2>

<常量X>: <指令X>; // X>= 3

ELSE <指令0>;

END_CASE;

例子

CASE #a OF

0 :

"Tag_1":= 1;

1,3,5 :

"Tag_2":= 1;

6...10 :

"Tag_3":= 1;

16,17,20...25 :

"Tag_4":= 1;

ELSE"Tag_5":= 1;

END_CASE;

CASE OF 案例小程序：FUNCTION_BLOCK "CASE"

TITLE = 'CASE Statements'

VAR

Expression1 : INT;

Expression2 : INT;

Expression3 : INT;

Day_of_the_week: STRING[12];

Dat : DATE;

ID : INT;

Error_number : INT;

END_VAR

VAR_TEMP

Return_jump : INT;

END_VAR

LABEL

Subroutine; M_1; M_2; M_3; End; END_LABEL

BEGIN

//CASE with simple waiting list CASE Expression1 OF

1 : Q4.1 := TRUE;

2 : Q4.2 := TRUE;

3 : Q4.3 := TRUE;

END_CASE;

//CASE with value areas

CASE Expression2 OF

1,2 : Q4.4 := TRUE;

2,3 : Q4.5 := TRUE;

ELSE : QB4 := 0;

END_CASE;

//CASE with gaps in the value areas CASE Expression3 OF

1..4 : Q5.1 := TRUE;

7..9 : Q5.2 := TRUE;

12..16 : Q5.3 := TRUE;ELSE : QB5 := 0;

END_CASE;

//Determining the day of the week from the DATE format CASE DINT_TO_INT(DATE_TO_DINT(Dat) MOD 7)+1 OF

1 : Day_of_the_week := 'Monday';

2 : Day_of_the_week := 'Tuesday';

3 : Day_of_the_week := 'Wednesday';

4 : Day_of_the_week := 'Thursday';

5 : Day_of_the_week := 'Friday';

6 : Day_of_the_week := 'Saturday';

7 : Day_of_the_week := 'Sunday';

END_CASE;

//Assigning an error number

CASE ID OF

0 : Error_number := 0;

1,3,5 : Error_number := ID + 128;

6..10 : Error_number := ID;

ELSE : Error_number := 16#7F;

END_CASE;

//"Subroutines"

IF I1.0 THEN Return_jump := 1; GOTO subroutine; END_IF; M_1: (*Return jump from subroutine*);

//...

IF I1.1 THEN Return_jump := 2; GOTO subroutine; END_IF; M_2: (*Return jump from subroutine*);

//...

IF I1.2 THEN Return_jump := 3; GOTO subroutine; END_IF; M_3: (*Return jump from subroutine*);

//...

GOTO End; //Jump over subroutine Subroutine: ; //Jump to subroutine

//...Statemen

//Selection for the return jumpCASE return_jump OF

1 : GOTO M_1;

2 : GOTO M_2;

3 : GOTO M_3;

END_CASE;

//*********************************************************

End: ;

END_FUNCTION_BLOCK

第三章FOR：在计数循环中执行

说明

使用“在计数循环中执行”指令，重复执行程序循环，直至运行变量不在指定的取值范围内。也可以嵌套程序循环。在程序循环内，可以编写包含其它运行变量的其它程序循环。

通过指令“复查循环条件”(CONTINUE)，可以终止当前连续运行的程序循环。通过指令“立即退出循环”(EXIT) 终止整个循环的执行。

FOR i := 2 TO 8 BY 2

DO "a_array :="Tag_Value"*"b_array";

END_FOR;

FOR 指令案例

FUNCTION_BLOCK "FOR"

TITLE = 'FOR Statement'

//FOR ... TO ... BY ... DO ... END_FOR

//CONTINUE (XI)

NAME : C28FOR

FAMILY : SCL_Book

AUTHOR : Berger

VERSION : '1.0'

VAR

index1 : INT := 4;

index2 : INT := 6;

index3 : INT := 8;

END_VAR

VAR_TEMP

Runtime_variable : INT;

i, k : INT;

END_VAR

BEGIN

//Simple FOR loop

FOR Runtime_variable := 0 TO 7 DO

M[index1,Runtime_variable] := TRUE;

END_FOR;

FOR Runtime_variable := 0 TO 15 BY 2 DO

M[index2 + Runtime_variable MOD 8, Runtime_variable] := TRUE; END_FOR;

MD[index1] := 0;

MD[index2] := 0;

(* Set memory bits *)

FOR i := 2 TO 23 DO

M[i DIV 8,i MOD 8] := TRUE;

END_FOR;

MD[index2] := MD[index1];

//Nested FOR loops

(* Reset memory bits *)

FOR i := 0 TO 2 DO

FOR k := 0 TO 7 DO

IF (k < 2 AND i = 0) THEN CONTINUE; END_IF;

IF (i = 2 AND k > 5) THEN EXIT; END_IF;

M[i,K] := FALSE;

END_FOR;

END_FOR;

MW[index3] := INT_TO_WORD(i);

MW[index3 + 2] := INT_TO_WORD(k);

//FOR loop with step width <> 1

FOR i:=128 TO 142 BY 2 DO

MW := PIW;

END_FOR;

//Abort FOR loops

FOR Runtime_variable := 0 TO 15 DO

M[index2,Runtime_variable] := TRUE;

IF Runtime_variable = 7 THEN CONTINUE;ELSIF Runtime_variable = 8 THEN CONTINUE;

END_IF;

IF Runtime_variable = 10 THEN EXIT; END_IF;

M[index2 + 1,Runtime_variable] := TRUE;

END_FOR;

MD[index2] := 0;

END_FUNCTION_BLOCK

第四章WHILE：满足条件时执行

说明

使用“满足条件时执行”指令可以重复执行程序循环，直至不满足执行条件为止。该条件是结果为布尔值（TRUE 或FALSE）的表达式。可以将逻辑表达式或比较表达式作为条件。执行该指令时，将对指定的表达式进行运算。如果表达式的值为TRUE，则表示满足该条件；如果其值为FALSE，则表示不满足该条件。

也可以嵌套程序循环。在程序循环内，可以编写包含其它运行变量的其它程序循环。

通过指令“复查循环条件”(CONTINUE)，可以终止当前连续运行的程序循环。通过指令“立即退出循环”(EXIT) 终止整个循环的执行。WHILE

"Tag_Value1" <>"Tag_Value2"

DO "Tag_Result"

:= "Tag_Input";

END_WHILE;

WHILE 案例

FUNCTION_BLOCK "WHILE"

TITLE = 'WHILE Statement'

//WHILE ... DO ... END_WHILE

VAR_INPUT

Data : BLOCK_DB;

END_VAR

VAR

Runtime_variable : INT;

Dat : DATE;

NextWeek : ARRAY[1..7] OF DATE;

byteindex : INT;

bitindex : INT;

END_VAR

VAR_TEMP

t_Date : DINT;

i, k : INT;BEGIN

//Simple WHILE statement

i := 0;

WHILE Data.DW = 16#FFFF DO

i := i + 1;

END_WHILE;

//Finding the next date that falls at the beginning of the week

t_Date := DATE_TO_DINT(Dat);

WHILE (t_Date MOD 7)+1 <> 1 DO

t_Date := t_Date + 1;

END_WHILE;

//Saving the date information for the next week

FOR i := 1 TO 7 DO

NextWeek := DINT_TO_DATE(t_Date + i - 1);

END_FOR;

//Finding the first input bit containing "1"

i := 0; k := 0;

WHILE I[i,k] = TRUE DO k := k + 1;

IF k = 8 THEN k := 0; i := i + 1; END_IF;

IF i > i + 4 THEN EXIT; END_IF;

END_WHILE;

byteindex := i; bitindex := k;

END_FUNCTION_BLOCK

第五章EXIT：立即退出循环

说明

使用“立即退出循环”指令，可以随时取消FOR、WHILE 或REPEAT 循环的执行，而无需考虑是否满足条件。在循环结束（END_FOR、END_WHILE 或END_REPEAT）后继续执行程序。

该指令将影响其所在的程序循环。

示例

：

SCL 将以下程序代码复制到剪贴板。

FOR i := 15 TO 1 BY -2 DO

IF (i < 5)

THEN EXIT;"DB10".Test := 1;

END_FOR;

如果满足条件i < 5，则将取消循环执行。程序将从END_FOR 后继续执行。

如果不满足条件i < 5，则执行后续的值分配（“DB10”.Test:= 1）并开始一个新循环。将运行变量(i) 以2 进行递减，并进行检查该变量的当前值是否在程序中设定的取值范围之内。如果执行变量(i) 在取值范围内，则将再次计算IF 的条件。