分享

西门子S7-300 SCL编程笔记(附实例)

 吴敬锐 2022-09-22 发布于广东

1. 数据类型:

注:还有两种类型:P:POINTER(指针数据类型)。A:ANY(任何类型)

数组的定义:M1:ARRAY[n0..m0,n1..m1] OF INT;

数组的类型

2. 寻址

绝对寻址

符号寻址

如:DB10.setpoint

'motor1data'.DW12

间接寻址

如:E[byteindex,bitindex]

MB[byteindex]

DB10.DW[byteindex]

三.SCL运算符和表达式

注:以上运算符的表达式基本大多和我们的数学表达式一样。这里只讲解一下AND,XOR,OR指令。

如:a1:=a1 AND W#16#FFFF

a1:=a1 XOR W#16#FFFF

a1:=a1 OR MW10

四.控制语句

注意:当使用程序 循环时,请确保不超过循环监测时间。

1. IF语句:

IF 条件0

THEN 语句0;

ELSIF 条件1

THEN 语句1;

ELSIF 条件2

THEN 语句2;

ELSE 语句3;

END_IF;

2. CASE语句:'选择'内的值等于Const内的值就执行那个语句。其它语句不执行,就执行END_CASE;

CASE 选择 OF

Const1:语句1;

Const2:语句2;

………

Constn:语句n;

END_CASE;

3. FOR语句

FOR 变量:=n0 TO n BY m DO

…………………..;

………………….;

END_FOR;

注意:这里的n为整型变量或整数值。m为每循环加几。

4. WHILE语句:只要条件满足,程序循环就重复。

WHILE 条件 DO

语句;

END_WHILE;

5. REPEAT语句:只要条件不满足,就重复程序循环。

REPEAT

语句;

UNTIL 条件;

END_REPEAT;

6. CONTINUE语句:在FOR, WHILE, REPEAT循环中终止当前程序通道。

7. EXIT语句:在FOR, WHILE, REPEAT循环中终止所有程序通道。

8. RETURN语句:语句无条件地退出当前执行的块。

9. GOTO语句:

例:

LABEL //定义标签

M1,M2,M3,END;

END_LABEL;

……………..

CASE Selection;

1:GOTO M1;

2:GOTO M2;

3:GOTO M3;

ELSE GOTO DND;

END_CASE;

M1:语句1;

GOTO DND;

M2:语句2;

GOTO DND;

M3:语句3;

END: ;

五.常量:

1. 位常量:值为TRUE或者FALSE.

2. 字符常量:(这里是一个字符)

Charac_1:='B'

Charac_2:=char#43;

Charac_3:=char#'B' //字符'B'

Charac_4:='$41' //字符'A'

3. 字符串常量:

M1:='ABCDEFJH'

4. 日期常量:

T1:=DATE#1995-11-11;

T2:=D#1995-11-11

5. 时间常量

N1:=TIME#10.2S;

N2:=T#3D_2S_3MS;

6. TIME_OF_DAY常量:

TM1:=TIME_OF_DAY#12:11:10.1;

TT2:=TOD#10:10:10;

7. DATE_AND_TIME常量:

TT:=DT#2012-4-26-18:12:00;

六.定时器和计数器:

1.定时器有5种,依次为:S_PULSE S_PEXT S_ODT S_ODTS S_OFFDT VARCurrTime : S5time;BiVal : word;ActFlag : bool;END_VAR//在调用定时器时,部分参数可以省略,但左边的赋值变量一定不能省略。CurrTime:=S_ODT(T_N=T10, //绝对调用,制定定时器号S:=TRUE, //置位条件TV:=T#1s, //设定定时器值R:=FALSE, //复位条件BI:=biVal,Q:=actFlag);FUNCTION_BLOCK TIMEVAR_INPUTMY_TIMER: ARRAY [1..4] of STRUCTT_N INT;TV : WORD;END_STRUCT;…END_VAR…FOR I:= 1 TO 4 DOCurrTime:= S_ODT(T_N=MY_TIMER.T_NO, S:=true,MY_TIMER.TV);END_FOR;FUNCTION_BLOCK
TIMERVAR_INPUTmytimer:TIMER;END_VAR…CurrTime:=S_ODT(T_N=mytimer,.....);

2. 、计数器S_CU 增计数器S_CD 减计数器S_CUD 增/减计数器e.g.S_CUD (C_N=C12, //绝对调用定时器,指定计数器号CD:=I0.0,CU:=I0.1,S:=I0.2 & I0.3, //置位条件PV:=120, //设定计数器值R:=FALSE, //复位条件CV:=binVal, //输出参数,二进制计数值Q:=actFlag); //输出参数,计数器的状态FUNCTION_BLOCK COUNTVAR_INPUTCount: ARRAY [1..4] of STRUCTC_N INT;PV : WORD;END_STRUCT;…END_VAR…FOR I:= 1 TO 4 DO //动态调用计数器S_CD(C_N=Count.C_NO, S:=true, PV:= Count.PV);END_FOR;FUNCTION_BLOCK
COUNTERVAR_INPUTMYCounter:COUNTER;END_VAR…CurrVal:=S_CD(C_N=MyCounter,.....); //动态调用计数器

七.数学函数:

例子:RESULT := ABS (-5) ; //5RESULT := SQRT (81.0); //9RESULT := SQR (23); //529RESULT := EXP (4.1); //60.340 ...RESULT := EXPD (3); //1_000PI := 3. 141 592 ;RESULT := SIN (PI / 6) ; //0.5

八.移位函数:

ROL、ROR、SHL、SHR例子:RESULT := ROL (IN:=CRC, N:=5); //CRC ,左移5位 ,移出的填充到右边空位RESULT := ROR (IN:=BYTE#2#1101_0011, N:=2); //2#1111_0100 ,右移2位 ,移出的填充到左边空位RESULT := SHL (IN:=BYTE#2#1101_0011, N:=3); //2#1001_1000 ,左移3位,空余部分用0填充RESULT := SHR (IN:=BYTE#2#1101_0011, N:=2); //2#0011_0100 ,右移2位,空余部分用0填充

九.SCL块

SCL所用的块结构与标准编程语言有完全相同的方式。

注意:没有功能值返回的功能FC是VOID数据类型。

十.实例:

1.排序

FUNCTION FC4:VOID

Know_How_Protect

VAR_TEMP

// Temporary Variables

loop_count:INT;

index_1:INT;

index_2:INT;

Data_Store:ARRAY[0..5] OF INT;

T :INT;

N :INT;

END_VAR

// Statement Section

// Block Parameters

VAR_INPUT // Input Parameters

INT0:INT;

INT1:INT;

INT2:INT;

INT3:INT;

INT4:INT;

INT5:INT;

END_VAR

VAR_IN_OUT

// I/O Parameters

END_VAR

VAR_OUTPUT

// Output Parameters

min_data:INT;

l_0,l_1,l_2,l_3,l_4,l_5: INT;

END_VAR

Data_Store[0]:=INT0;

Data_Store[1]:=INT1;

Data_Store[2]:=INT2;

Data_Store[3]:=INT3;

Data_Store[4]:=INT4;

Data_Store[5]:=INT5;

min_data:=Data_Store[0];

N:=0;

T:=0;

FOR loop_count:=0 TO 5 BY 1 DO

//查找最小值

IF min_data > Data_Store[loop_count] THEN min_data:=Data_Store[loop_count];

END_IF;

END_FOR;

FOR index_1:=0 TO 5 BY 1 DO

FOR index_2:=index_1 TO 5 BY 1 DO

IF Data_Store[index_1] < Data_Store[index_2] THEN

T:=Data_Store[index_2];

Data_Store[index_2]:=Data_Store[index_1];

Data_Store[index_1]:=T;

END_IF;

END_FOR;

END_FOR;

l_0:=Data_Store[0];

l_1:=Data_Store[1];

l_2:=Data_Store[2];

l_3:=Data_Store[3];

l_4:=Data_Store[4];

l_5:=Data_Store[5];

END_FUNCTION

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多