300流量累计程序，源码-专业自动化论坛-中国工控网论坛

300流量累计程序，源码点击：7095 | 回复：135

tyfeixian

精华：4帖
求助：2帖
帖子：14帖 | 50回
年度积分：27
历史总积分：1276
注册：2006年8月02日

发表于：2015-10-10 17:01:31

楼主

西门子官网的程序是用德文书写的。必须将语言给位德文才可以使用。现将内部的程序转发。

建立一个FB块

IN中建立

名称 VALUE 数据类型 real

名称 Interval 数据类型 time 计量单位的时间例如：30M3/H 则输入 T#1H

名称 Cycle 数据类型 time 扫描循环的时间放在OB35中则是T#100ms OB36则是T#50ms

名称 Com_RST 数据类型 bool 复位开关，ON时清零，需要在扫描时间内，需要将此位置位时间大于

//////////////////////////////////OB35的中断扫描时间。

OUT中建立

名称 TOTAL 数据类型 real 累计值

Stat中建立

名称 Accum 数据类型 real

Temp中建立

名称 tInterval 数据类型 real

名称 tCycle 数据类型 real

程序段1中输入

A #COM_RST

JCN NW2

L 0.0

T #ACCUM

T #TOTAL

SET

SAVE

BEU

程序段2中输入

NW2: NOP 0

L #INTERVAL

DTR

T #tINTERVAL

L #CYCLE

DTR

T #tCYCLE

程序段3中输入

L #VALUE

L #tCYCLE

L #tINTERVAL

L #ACCUM

T #ACCUM

T #TOTAL

程序段4中输入

SET

SAVE

BEU

保存为FB功能块

说明：次功能块只能接受real值。直接读取上来的值需要经过fc105的转换后或自行转换为32位浮点数后再使用。

应用实例：

你觉得有用，帮忙顶一下。

上面的例子在累计数特别大时，容易出现计数不准，偏差比较大。下面的程序更改后比较好点。

代码如下：

文字的上传不上来。用图片粘贴吧。

提供一个工程附件。累计块为FC1001.
附件内包含源程序，以及简易的模拟量转换源码。以及自己编写的一点逻辑程序源码。

1200&1500代码

FUNCTION_BLOCK "TOT"
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : Tyfixn
VERSION : 0.1
   VAR_INPUT
      _Hi : Real;   // 现场流量计，上限量程。
      _InterVal : Time;   // 此时间为量程中标定的时间。例如30m3/h则为1h，30L/m则为60s，
      _Cycle : Time;   // 次时间为循环扫描时间，例如OB35则为100ms，OB32则为1s
      _inPV : Real;   // 实际输入值。
      _inLoQC : Real;   // 小信号切除值。
   END_VAR

   VAR_OUTPUT
      _TOT_value : Real;   // 累计值
   END_VAR

   VAR_IN_OUT
      _Start_Stop : Bool;   // 启动停止累计操作端。
      _Com_RST : Bool;   // 复位操作端。此端口置1后自动复位。
   END_VAR

   VAR
      _TOTAL_L : Real;   // 流量累计输出值，低位。
      _TOTAL_H : Real;   // 流量累计输出值，高位。
      _start_Temp : Bool;
   END_VAR

   VAR_TEMP
      _t_Value : Real;
      _t_Cycle : Real;
      _t_InterVal : Real;
      _var1 : Real;
   END_VAR

BEGIN
#_t_Cycle := DINT_TO_REAL(TIME_TO_DINT(#_Cycle));           //将时间数据转换为实数。
#_t_InterVal := DINT_TO_REAL(TIME_TO_DINT(#_InterVal));      //将时间数据转换为实数。
//#_var1 := SCALE(IN := #_inPV, HI_LIM := #_Hi, LO_LIM := 0, BIPOLAR := 0, OUT => #_t_Value);

//复位清零操作
IF #_Com_RST THEN
     #_TOTAL_H := 0;
     #_TOTAL_L := 0;
     #_Com_RST := FALSE;
END_IF;

//切除小信号，当低于切除值时，将累积信号置0；
IF #_inPV > #_inLoQC THEN
     #_var1 := 0;
ELSE
     #_var1 := #_inPV;
END_IF;

//当输入启动信号到达后，立即开启累积计数，当启动信号停止（结束）后，判断信号值是否到0，到0后立即停止累积计数。

//下面这节是根据实际工况改写的一节延时计量，
//

// IF #_Start_Stop THEN
// #_start_Temp := 1;
// ELSIF #_var1 = 0 THEN
// #_start_Temp := 0;
// END_IF;
//

//正常使用下面这一节

IF #_Start_Stop THEN
#_start_Temp := 1;

ELSE

#_start_Temp := 0;
END_IF;

//开始累积
IF #_start_Temp THEN
     #_TOTAL_L := #_var1 * #_t_Cycle / #_t_InterVal + #_TOTAL_L;
END_IF;

//消除极大数加极小数的累加错误
IF #_TOTAL_L > 1000.0 THEN
     #_TOTAL_H := #_TOTAL_H + 1;
     #_TOTAL_L := #_TOTAL_L - 1000.0;
END_IF;

//输出结果
#_TOT_value :=( #_TOTAL_H * 1000)+ #_TOTAL_L;
END_FUNCTION_BLOCK

更改一个小错误。

正在下载，请等待……