在西门子PLC中使用SCL语言编程的技巧

在西门子PLC中使用SCL语言编程的技巧
前言：两年半前我就在工控网上发表了有关SCL编程的知识<<在S7300400型PLC中使用高级语言编程>>,但发表完后，即使我自己都从没有把任何使用SCL编写的程序用到实际控制中，当时的感觉是使用SCL编程到处受限，没有STL语言灵活和强大。

直到最近使用施耐德的Unity软件编程，并使用这种已经国际标准化的文本语言（等同于西门子的SCL 语言），才体会到它的优点：<1>、程序容易阅读，便于诊断和维护；<2>、程序容易在不同厂家之间的PLC之间转换。

西门子的STL语言是强大，但难于阅读，编写程序也需要异常小心，其最强大的可能是它的寄存器寻址（类似于一些计算机高级语言中的地址指针），SCL没有这个功能，那就多费一些程序代码来实现同样的功能，程序是否优秀更应该看重程序的架构和提高程序生产效率的标准化，好的PLC程序不应该只有自己明白，而是让更多的人明白。

在西门子PLC中使用SCL语言的场合一般是编写标准功能块FB,其编程方式和西门子的其他编程语言，如梯形图Lad、语句表STL是完全不同的，同时为了实现程序的国际标准化，即为了方便的将程序代码移植到不同厂家的PLC系统上，尽量不要在SCL 中使用西门子独有的功能块。

1、在FB块中使用结构编写FB块的准则，就是其使用的内部变量尽量与外部隔离，除了像PLC的新启动/重启动标志，以及一些方波/脉冲波等全局变量可以在FB块中使用外，其他的任何全局变量都不应该在FB内部使用，即使是自定义结构也应该在FB中单独定义，在FB块中使用结构应该在静态类型变量中定义，
如下：VAR // Static Variables IM:STRUCT //Data structure of Internal Flags
H1_AFCountImp:BOOL:=False; // Aux Flag Counter Impulse H1_CountImp:BOOL:=False; // Counter Impulse H1_ELCountMV:BOOL:=False; // Endless Counter Maximum Value END_STRUCT; //other data structure … END_VAR 在使用这些结构时，可以按照如下方式：IM. H1_CountImp:=Imp;
2、在SCL中替代Set/Reset指令的方法SCL中不存在Set/Reset指令，或者说也没有必要使用。

在SCL中，不使用排他条件Else的条件语句就是一个Set/Reset指令。

如下编程：IF THEN Variable name:=1; END_IF; 其等同于：
(S)
若加上Else条件，如下：IF THEN Variable name:=1; ELSE Variable name:=0; END_IF;
则等同于：( )
一条完整的包含置位和复位的语句可以使用如下方式编程：
IF THEN Variable name:=1; END_IF; IF THEN Variable name:=0; END_IF; 其等效于SR 指令，若将上面的两个条件语句的先后次序颠倒一下，则等效于RS指令。

3、简化程序指令<1>、尽量使用赋值语句替代那些不用于SR/RS指令的BOOL型赋值条件语句，如下：IF fnAdd &(button=false) THEN pus1:=true; ELSE pus1:=false; END_IF; 其等效于pus1:= fnAdd &(NOT button),这样使程序看起来更加简洁和容易阅读。

<2>、对于非BOOL型赋值语句则不能这如上简化，而是可以通过SEL函数实现：IF fnAdd &(button=false) THEN pus1:=value1; ELSE pus1:= value2; END_IF; 其等效于pus1:= SEL (G:= fnAdd &(button=false), IN0:= value2,IN1:= value1); 使用该函数时注意两点：
<1>、参数名不能省略；<2>、当选择条件G为TRUE时，选择后一个参数值IN1，为FALSE 时，选择前一个参数值IN0,这点与计算机C语言等正好相反。

<3>、XOR指令有着比AND 和OR更为复杂的表达，能使用XOR的地方应该尽量使用IF (condition1 AND (NOT condition2)) OR (condition2 AND ( NOT condition1)) THEN Result:=true; ELSE
Result:=false; END_IF; 其等效于Result:= condition1 XOR condition2; XOR功能就是两条件不同输出TRUE，相同输出FALSE
4、脉冲沿检测功能使用以下两条语句替代脉冲上升沿检测函数，譬如检测button_Input
上升沿的代码如下：Puls:=button_Input & (NOT button_Last); button_Last:= button_Input; 同样的下降沿脉冲检测如下：Puls:= ( NOT button_Input) & button_Last; button_Last:= button_Input;
5、编写脉冲发生器波峰持续时间仅为一个PLC扫描周期的波形称为脉冲波，而波峰持续时间大于或等于两个PLC扫描周期的波形称为方波，脉冲波可用于计数、定时，方波可用于控制信号灯的闪烁输出，可以在西门子PLC的硬件配置中配置一个字节的各种时间的方波（波峰时间和波谷时间为1:1），假设"FP_1Sec" 为这个字节中1秒的方波，则：<1>、间隔1秒的脉冲波“Impls_1Sec” 如下编程：“Impls_1Sec” := "FP_1Sec" AND (NOT “Impls_1Sec_Aux”); “Impls_1Sec_Aux”:= "FP_1Sec" ; <2>、间隔10秒的脉冲波
“Impls_10Sec” 如下编程：IF (“Impls_10Sec” ) THEN Count_ Actual:=0;
“Impls_10Sec”:=0; ELSE IF (“Impls_1Sec” ) THEN Count_ Actual:= Count _ Actual +1; END_IF; “Impls_10Sec”:= Count_ Actual>=10; END_IF; Count_ Actual的初始值为0，同时当系统新启动时，也需将其设为零。

间隔更长时间的脉冲波编程都可以按照上面的方式编程。

6、尽量使用编程计数功能来替代定时器功能，这样使程序更可靠和易于阅读假设
Input_Condition为输入，Output_Delay为通过定时处理后的输出，Timer_Setpoint为时间设定点，Timer_Actual为当前时间计数的实际值，“Impls_1Sec” 为系统编程产生的1秒脉冲。

<1>、在输入条件满足的情况下，延时输出的定时器：IF (NOT Input_Condition) THEN Timer_Actual:= 0; Output_Delay:= 0; ELSE IF (“Impls_1Sec” AND NOT Output_Delay) THEN Timer_ Actual:= Timer_ Actual +1; END_IF; Output_Delay:= Timer_Actual >= Timer_Setpoint; END_IF;
<2>、有记忆的延时输出定时器，即在延时过程中，若输入条件终止，不影响延时，这种定时器必须使用其它的信号复位。

IF Input_Condition THEN Output_Aux:=1; END_IF; IF (NOT Output_Aux) THEN Timer_Actual:= 0; Output_Delay:=0；ELSE IF (“Impls_1Sec” AND NOT Output_Delay) THEN Timer_ Actual:= Timer_ Actual +1; END_IF;
Output_Delay:= Timer_Actual >= Timer_Setpoint; END_IF; 若想终止Output_Delay的输出，必须在后面追加一条条件语句，用于复位Output_Aux
<3>、立即输出，延时断开的定时器IF Input_Condition THEN Timer_Actual:= 0;
Output_Aux:= 0; Output_Delay:=1; //立即输出ELSE IF (“Impls_1Sec” AND NOT Output_Aux) THEN Timer_ Actual:= Timer_ Actual +1; END_IF; Output_Aux:=
Timer_Actual >= Timer_Setpoint; END_IF; IF Output_Aux THEN Output_Delay:=0; //延时断开END_IF;
<4>、在检测到一个上升沿脉冲后，立即输出，并开始计时，在时间到达后断开。

IF Input_Condition THEN Output_Aux:=1; END_IF; IF (NOT Output_Aux) THEN
Timer_Actual:= 0; Timer_Arrived := 0; ELSE IF (NOT Timer_ Arrived AND “Impls_1Sec” ) THEN Timer_Actual:= Timer_Actual +1; END_IF; Timer_ Arrived := Timer_Actual >= Timer_Setpoint; END_IF; IF Timer_ Arrived THEN Output_Aux:=0; END_IF;
Output_Delay:= Output_Aux;
通过以上的编程方式可以实现任何定时器功能，而代码却可以为不同的PLC系统所使用。

7、使用编程计数功能来替代计数器在SCL语言中使用计数功能是最为简单的，其关键是必须首先对输入进行脉冲检测假设Input_Imp为输入脉冲，CountImp为输入脉冲检测,Counter 为计数值，Factor为计数因子（更详细点就是每来一次脉冲，计数值增加多少）。

(*----- Create Impulse (Impulse Evaluation) -----------------------------------------------------*) CountImp:= Input_Imp AND (NOT CountImp_Old); CountImp_Old:= Input_Imp; (*----- Counter ---------------------------------------------------------------------------------*) IF CountImp THEN Counter:= Counter+Factor; END_IF; 一个完整的计数程序应该还有计数器复位功能以及计数值上限检测条件（以防止计数值溢出）。

8、新故障/新警告的检测一个完整的FB块应该能够检测故障/警告，以及新故障/新警告，假设Input1, Input2… Inputn对应故障的输入（有信号表示OK），Fault1, Fault2… Faultn 对应故障位，NFault1, NFault2…NFaultn对应新故障位，Flt和NFlt分别对应综合的故障和新故障，Ackn对应故障应答输入，为常开点，Mute对应新故障消除输入（或者称为蜂鸣器
沉寂）,为常开点：Fault1:= NOT Input1 OR (Fault1 AND NOT Ackn); NFault1:= Fault1 AND (Mute OR NFault1); Fault2:= NOT Input2 OR (Fault2 AND NOT Ackn); NFault2:= Fault2 AND (Mute OR NFault2); … Flt := Fault1 OR Fault2 OR Faultn NFlt :=(Fault1 AND NOT NFault1) OR (Fault2 AND NOT NFault2) OR (Faultn AND NOT NFaultn) NFlt就是最终的新故障输出指示，新警告的检测与之类似。

9、字中取位字中取位有两种方式，一种是通过西门子所特有的字取位方式实现，一种是通过计算机编程的标准方式实现，假设Input_Word为输入参数，Word类型，W0,W1,…W15为位变量。

<1>、通过西门子的M变量实现：Temp_Aux:=MW[10]; MW[10]:=Input_Word;
W0:=M[11,0]; W1:=M[11,1]; W2:=M[11,2]; W3:=M[11,3]; W4:=M[11,4]; W5:=M[11,5];
W6:=M[11,6]; W7:=M[11,7]; W8:=M[10,0]; W9:=M[10,1]; W10:=M[10,2]; W11:=M[10,3];
W12:=M[10,4]; W13:=M[10,5]; W14:=M[10,6]; W15:=M[10,7]; MW[10]:=Temp_Aux;
<2>、通过标准编程实现w0:=(Input_Word & 16#1)=16#1; w1:=(Input_Word &
16#2)=16#2; w2:=(Input_Word & 16#4)=16#4; w3:=(Input_Word & 16#8)=16#8;
w4:=(Input_Word & 16#10)=16#10; w5:=(Input_Word & 16#20)=16#20; w6:=(Input_Word & 16#40)=16#40; w7:=(Input_Word & 16#80)=16#80; w8:=(Input_Word &
16#100)=16#100; w9:=(Input_Word & 16#200)=16#200; w10:=(Input_Word &
16#400)=16#400; w11:=(Input_Word & 16#800)=16#800; w12:=(Input_Word &
16#1000)=16#1000; w13:=(Input_Word & 16#2000)=16#2000; w14:=(Input_Word &
16#4000)=16#4000; w15:=(Input_Word & 16#8000)=16#8000;
使用方式1会更加简单和容易理解一些，但方式2具有更加宽广的应用场合，更加标准化，即使是当今的计算机编程在取位操作时也类似于上面的编程。

字取位的场合，一般用于总线数据（譬如变频器的状态数据），则可能是字/整数，此时就需要用到上面的编程。

10、将位组合成字相当于“字中取位”的反向操作，这也有两种方法,一种方法是使用M变量，类似于“字中取位”的方式<1>，另一种也是标准编程，假设Output_Word为输出参数，Word类型，W0,W1,…W15为位变量。

<1>、通过西门子的M变量实现：Temp_Aux:=MW[10];
M[11,0] := W0; M[11,1] := W1; M[11,2] := W2; M[11,3] := W3; M[11,4] := W4; M[11,5] :=
W5; M[11,6] := W6; M[11,7] := W7; M[10,0] := W8; M[10,1] := W9; M[10,2] := W10;
M[10,3] := W11; M[10,4] := W12; M[10,5] := W13; M[10,6] := W14; M[10,7] := W15; Output_Word:=MW[10]; MW[10]:=Temp_Aux; <2>、通过标准编程实现IF W0 THEN Output_Word:=Output_Word OR 16#1; ELSE Output_Word:=Output_Word AND (NOT
16#1); END_IF; IF W1 THEN Output_Word:=Output_Word OR 16#2; ELSE
Output_Word:=Output_Word AND (NOT 16#2); END_IF; IF W2 THEN
Output_Word:=Output_Word OR 16#4; ELSE Output_Word:=Output_Word AND (NOT
16#4); END_IF; IF W3 THEN Output_Word:=Output_Word OR 16#8; ELSE
Output_Word:=Output_Word AND (NOT 16#8); END_IF; IF W4 THEN
Output_Word:=Output_Word OR 16#10; ELSE Output_Word:=Output_Word AND (NOT 16#10); END_IF; IF W5 THEN Output_Word:=Output_Word OR 16#20; ELSE
Output_Word:=Output_Word AND (NOT 16#20); END_IF; IF W6 THEN
Output_Word:=Output_Word OR 16#40; ELSE Output_Word:=Output_Word AND (NOT 16#40); END_IF; IF W7 THEN Output_Word:=Output_Word OR 16#80; ELSE
Output_Word:=Output_Word AND (NOT 16#80); END_IF; IF W8 THEN
Output_Word:=Output_Word OR 16#100; ELSE Output_Word:=Output_Word AND (NOT 16#100); END_IF; IF W9 THEN Output_Word:=Output_Word OR 16#200; ELSE
Output_Word:=Output_Word AND (NOT 16#200); END_IF; IF W10 THEN
Output_Word:=Output_Word OR 16#400; ELSE Output_Word:=Output_Word AND (NOT 16#400); END_IF; IF W11 THEN Output_Word:=Output_Word OR 16#800; ELSE
Output_Word:=Output_Word AND (NOT 16#800); END_IF; IF W12 THEN
Output_Word:=Output_Word OR 16#1000; ELSE Output_Word:=Output_Word AND (NOT 16#1000); END_IF; IF W13 THEN Output_Word:=Output_Word OR 16#2000; ELSE Output_Word:=Output_Word AND (NOT 16#2000); END_IF; IF W14 THEN
Output_Word:=Output_Word OR 16#4000; ELSE Output_Word:=Output_Word AND (NOT 16#4000); END_IF; IF W15 THEN Output_Word:=Output_Word OR 16#8000; ELSE Output_Word:=Output_Word AND (NOT 16#8000); END_IF; 同样的，使用标准化编程会繁琐一些，但有着很强的通用性，在总线通讯控制中，很多控制字（如变频器）都是以字的形式传递，所以需要把一些BOOL数据合并到一个字中，可以采用上面的对字中的位进行置位/复位操作的方式，但事实上使用时，控制命令可能只有启动/停止和方向控制等，所以这是可以直接对输出赋值，譬如当我们知道16#0F对应启动命令和正传时，可以直接使用如下赋值语句即可控制变频器正向运转：Output_Word:= 16#0F，如需反向运转，则再赋另一个值即可，而不需要像上面那样对字的每一位操作。

以上是我总结的一些使用技巧，其编程可能有更好的实现方式，欢迎来信探讨。

SCL语言编程时,any类型参数如何赋值 [sqzth 发表于 2008-10-16 14:42:00]
在我们熟悉的LAD/STL编程语言中，对ANY类型的参数赋值时，可以写成"P#DB1.DBX0.0 byte 20"就行了。

其实这时系统在私下帮我们作了些事情，而在SCL语言中，这些事情就得由我们自己作。

是什么事情呢？这得回归到本质--ANY类型的参数是以怎样的结构存储在PLC中的？查资料可知，它是以长度为10个字节(byte)的连续区域来存储的，这10 bytes的定义为：
Syntax_ID：1 byte //对ANY类型始终为16#10
DataType: 1 byte //01=BOOL，02=BYTE....(可查相关资料)
Repetition_factor: 2 bytes(1 word)
DB_Number: 2 bytes(1 word)
Byte_Pointer: 4 bytes(1 dword)
对"P#DB1.DBX0.0 byte 20"这个例子而言，各部分的数值分别为：
Syntax_ID = 16#10
DataType = 16#02 //BYTE
Repetition_factor = 16#14 //16#14=20
DB_Number = 16#01
Byte_Pointer = 16#8400_0000
把ANY类型的参数在PLC中的存储结构搞清楚后，可以有两种方法来用SCL语言对ANY类型的虚参赋值，先介绍第一种的步骤。

1、建立以10 bytes结构为基础的UDT。

TYPE UDT_ANY_Pointer
STRUCT
Syntax_ID：BYTE
DataType: BYTE
Repetition_factor: WORD
DB_Number: WORD
Byte_Pointer: DWORD
END_STRUCT
END_TYPE
2、在创建的OB、FB、FC块中，先在temp变量定义区中建立UDT的实例，然后用AT功能构建ANY指针，指向该实例。

Buffer: UDT_ANY_Pointer；//建立UDT的实例
Temp_Any_Pointer AT Buffer: ANY； //用AT功能构建ANY指针，指向实例
3、在OB、FB、FC块的代码区中向UDT实例的各变量赋值后，再调用ANY指针。

Buffer.Syntax_ID := B#16#10；
Buffer.DataType := B#16#2；
Buffer.Repetition_factor := INT_TO_WORD(20)；
Buffer.DB_Number := INT_TO_WORD(1)；
Buffer.Byte_Pointer := DW#16#8400_0000；
....
... := Temp_Any_Pointer；
至此，第一种方法就介绍完了。

至于第二种方法，基本原理是相同的，只是直接在OB、FB、FC块的t emp变量定义区中，建立以10 bytes结构为基础的STRUCT类型的变量，而后用AT功能构建ANY指针，指向该STRUCT类型的变量。

最后的赋值和调用是一样的。