西门子SCL建立功能块ACQUIRE的步骤

声明部分的结构(Structure of the Declaration Section)

块中的声明部分包含以下子域：

常量：在CONST和END_CONST之间。

输入参数：在VAR_INPUT和END_VAR之间。

输出参数：在VAR_OUTPUT和END_VAR之间。

静态变量：在VAR和END_VAR之间。也包括对EVALUATE块的本地实例的声明。

CONST
LIMIT := 7;
QUANTITY := LIMIT + 1;
END_CONST
VAR_INPUT 输入变量声明
measval_in :INT ; // 新测量值
newval :BOOL; // 在环形缓冲区"measvals"中的测量值
resort :BOOL; // 对测量值进行排序
funct_sel :BOOL; // Select calculation square root/square
newsel :BOOL; // 取得输出地址
selection :WORD; // 输出地址
END_VAR
VAR_OUTPUT 输出变量声明

result_out :INT; // 计算值
measval_out:INT; // 相应的测量值
END_VAR
VAR 静态变量声明
measvals:ARRAY[0..LIMIT] OF INT := 8(0);
resultbuffer:ARRAY[0..LIMIT] OF
STRUCT
squareroot:INT;
square:INT;
END_STRUCT;
pointer:INT:= 0;
oldval:BOOL:= TRUE;
oldsort:BOOL:= TRUE;
oldsel:BOOL:= TRUE;
address:INT:= 0; // 转换后的输出地址
outvalues_instance: EVALUATE;// 定义本地实例
END_VAR

静态变量(Static Variables)

因为某些数据要保留到下一个程序循环，所以选择FB块类型。有些静态变量在声明部分"VAR, END_VAR"中声明。

静态变量是本地变量，其值保留贯穿每个块处理过程。他们用来保留功能块的值，且存贮在实例数据块中。

初始化变量(Initializing Variables)

记住当块被初始化时(下载到CPU之后)，在变量中键入初始值。功能块EVALUATE的本地实例也在声明子域"VAR, END_VAR"中声明。其名字是以后调用和存取输出参数使用的。共享的实例ACQUIRE_DATA用来存贮数据。

语句部分的结构(Structure of the Statement Section)

ACQUIRE的语句部分分为三个子部分：

获取测量值：
如果输入参数"newval"与"oldval"不同，则读入一个新测量值到环形缓冲区。

启动排序和计算：
比较输入参数"resort"和"oldsort"，发生改变时，通过调用EVALUATE功能块启动排充和计算。

求取代码并准备输出：
按字读取代码。根据SIMATIC转换规则，意思是上开关组(字节0)包含输入字的高8位，下开关组(字节1)包含低8位。下图显示代码开关的位置。

计算地址(Calculating the Address)

下图显示如何计算地址：检测到取码开关(位15)一个边沿，输入字IW0的12至14位包含了读入的代码。用标准函数SHR右移并用AND屏蔽相应的位得到“地址”。

地址用来将数组元素(计算结果和对应测量值)写入输出参数。是均方根据，还是平方值决定于"funct_sel"。

检测到取码开关的一个边沿，是因为"newsel"和"oldsel"不同。

逻辑块的语句部分如下：

BEGIN
(*****************************************************************
第1部分：获取测量值。

如果"newval"值发生改变，则输入了测量值。MOD运算是用来实现测量值用的环形缓冲区。
******************************************************************)
IF newval <> oldval THEN
pointer := pointer MOD QUANTITY;
measvals[pointer] := measval_in;
pointer := pointer + 1;
END_IF;
oldval := newval;
(*****************************************************************
第2部分：启动排序和计算

如果"resort"发生改变，则启动对环形缓冲区的排序和运行对测量值的计算。

结果存贮在一个新的叫"calcbuffer"的数组里。
******************************************************************)
IF resort <> oldsort THEN
pointer := 0; //复位缓冲区指针
eval_instance(sortbuffer := measvals); //调用EVALUATE
END_IF;
oldsort := resort;
resultbuffer := eval_instance.calcbuffer; //平方值和均方根

(*****************************************************************
第3部分：求代码值和准备输出

如果"newsel"发生改变，则计算用来输出的数组元素的寻址代码：屏蔽"selection"

的相应位并转换为整数。依据"funct_sel"开关的设置，选择"squareroot"或

"square"用于输出。
******************************************************************)
IF newsel <> oldsel THEN
address := WORD_TO_INT(SHR(IN := selection, N := 12) AND 16#0007);
END_IF;
oldsel := newsel;
IF funct_sel THEN
result_out := resultbuffer[address].square;
ELSE
result_out := resultbuffer[address].squareroot;
END_IF;
measval_out := measvals[address]; //Measured value display
END_FUNCTION_BLOCK

审核编辑：刘清