2023年11月29日发(作者：)

结构化文本ST编程，西门子PLC编程语言中叫SCL ,其它任何PLC控制器编程语言还是叫结

构化编程ST。

西门子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_INPUT

Start : 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 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,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 jump

CASE 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 ... EXIT

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;

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;

END_VAR

BEGIN

//Simple WHILE statement

i := 0;

WHILE = 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

END_IF;

"DB10".Test := 1;

END_FOR;

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

如果不满足条件 i < 5，则执行后续的值分配（“DB10”.Test:= 1）并开始一个新循环。 将运

行变量 (i) 以 2 进行递减，并进行检查该变量的当前值是否在程序中设定的取值范围之内。

如果执行变量 (i) 在取值范围内，则将再次计算 IF 的条件。