|
s7-300流量累计源码.zip
(211.95 KB, 售价: 2 E币)
建立一个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 *R L #tINTERVAL /R L #ACCUM +R 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
【必读】版权免责声明
1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。
| 
