You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

193 lines
5.4 KiB

FUNCTION_BLOCK IJ_DAHUPID
VAR_EXTERNAL
END_VAR
VAR_INPUT
DAHU_STRUCT_IN :DAHU_IN;
END_VAR
VAR_OUTPUT
DAHU_STRUCT_OUT :DAHU_OUT;
END_VAR
VAR
DAHU_SPID :BS_PID;
DAHU_WPID :BS_PID;
DAHU_RunTime :BS_Runtime;
DAHU_WVCTEMP :REAL;
RunTon1 :TON;
RunTon2 :TON;
RunTof1 :TOF;
RunTof2 :TOF;
DevCheck1_time :TIME :=t#15s; (*设备运行状态反馈*)
DevCheck2_time :TIME :=t#15s; (*设备运行状态反馈*)
Status0 :INT;
Status1 :INT;
Status2 :INT;
Status3 :INT;
DAHU_SPID_VP :REAL;
DAHU_SPID_VI :REAL;
DAHU_WPID_VP :REAL;
DAHU_WPID_VI :REAL;
PID_in :BOOL;
PID_timer :TON;
END_VAR
(*
时 间:20200603
版 本:1.3
作 者:姚立
名 称:吾悦定制吊顶空调机组程序功能块
说 明:
修正设定温度与目标温度关系为负值时,水阀输出0
输入变量
DAHU_STRUCT_IN.
SM :INT ; 季节模式 0夏季 1冬季 2过渡
Run :BOOL; 运行状态
Fault :BOOL; 故障状态
Auto :BOOL; 自动状态
Control :BOOL; 程序控制
TSET :REAL; 温度设定
WVMC :BOOL; 水阀手动控制
WVMV :REAL; 水阀手动控制值
RTS :REAL; 回风温度
RST :BOOL; 运行时间累计重置
RSTV :REAL; 运行时间累计重置值
FPS :BOOL; 风机压差
ISO1 :BOOL; 运行故障反馈隔离
ISO2 :BOOL; 风机压差反馈隔离
VP :REAL; PI设定值P
VI :REAL; PI设定值I
DAHU_STRUCT_OUT.
WVCS :INT ; 水阀控制转换值,放大100倍
Control :BOOL; 启停控制
RH :REAL; 运行小时
SN :INT ; 设备状态代码
包含以下几点功能
1.运行故障回检,输出故障代码,支持故障报警隔离
2.水阀PID调节/手动调节
3.运行时间累计
备 注:
依赖块:
BS_PID;
BS_Runtime;
*)
(******************************************************运行故障回检******************************************************)
RunTon1( IN:=DAHU_STRUCT_IN.Control , PT:=DevCheck1_time );
RunTof1( IN:=DAHU_STRUCT_IN.Control , PT:=DevCheck1_time );
RunTon2( IN:=DAHU_STRUCT_IN.Control , PT:=DevCheck2_time );
RunTof2( IN:=DAHU_STRUCT_IN.Control , PT:=DevCheck2_time );
(*设备电气控制箱控制指令与设备运行反馈不一致故障检测,检测故障产生原因电箱没电、断路器断开、中间继电器与接触器故障等为Status0*);
DAHU_STRUCT_OUT.Control:=DAHU_STRUCT_IN.Control;
if DAHU_STRUCT_IN.ISO1=0 then
if RunTon1.q or not RunTof1.q then
if DAHU_STRUCT_OUT.Control<>DAHU_STRUCT_IN.Run then
Status0:=1;
else
Status0:=0;
end_if;
if DAHU_STRUCT_IN.Fault=1 then
Status1:=1;
else
Status1:=0;
end_if;
end_if;
else
Status0:=0;
Status1:=0;
end_if;
(*设备电气控制箱控制指令与设备运行反馈不一致故障检测,检测故障产生风机压差无回检信号*);
if DAHU_STRUCT_IN.ISO2=0 then
if RunTon2.q or not RunTof2.q then
if DAHU_STRUCT_OUT.Control<>DAHU_STRUCT_IN.FPS then
Status2:=1;
else
Status2:=0;
end_if;
end_if;
else
Status2:=0;
end_if;
(*输出故障代码*)
if DAHU_STRUCT_OUT.Control<>0 then
DAHU_STRUCT_OUT.SN := Status0*1 + Status1*4 + Status2*8;
else
DAHU_STRUCT_OUT.SN := 0 ;
end_if;
(******************************************************水阀控制******************************************************)
PID_in:= not PID_timer.q;
PID_timer(in:=PID_in, pt:=t#1s );(*PID积分时间*)
if DAHU_STRUCT_IN.WVMC=0 then
if DAHU_STRUCT_IN.Run=1 then
if DAHU_STRUCT_IN.VP<>0.0 and DAHU_STRUCT_IN.VI<>0.0 then
DAHU_SPID_VP:=-DAHU_STRUCT_IN.VP;
DAHU_SPID_VI:=-DAHU_STRUCT_IN.VI;
DAHU_WPID_VP:=DAHU_STRUCT_IN.VP;
DAHU_WPID_VI:=DAHU_STRUCT_IN.VI;
else
DAHU_SPID_VP:=-30.0;
DAHU_SPID_VI:=-150.0;
DAHU_WPID_VP:=30.0;
DAHU_WPID_VI:=150.0;
end_if;
(*制冷季*)
if DAHU_STRUCT_IN.SM=0 then
if DAHU_STRUCT_IN.RTS-DAHU_STRUCT_IN.TSET>=3.0 then
DAHU_WVCTEMP:=100.0;
end_if;
if DAHU_STRUCT_IN.RTS-DAHU_STRUCT_IN.TSET<=0.0 then
DAHU_WVCTEMP:=0.0;
end_if;
if PID_timer.q then
DAHU_SPID(RUN:= DAHU_STRUCT_IN.RUN,STOP_D:=1,STOP_I:=0,SET:=DAHU_STRUCT_IN.TSET,FB:=DAHU_STRUCT_IN.RTS,KFB:=1.0,KP:=DAHU_SPID_VP,TI:=DAHU_SPID_VI,TD:=-1.0,DEAD_BAND:=0.2,YMAX:=100.0,YMIN:=0.0 | DAHU_WVCTEMP:=OUT);
end_if;
end_if;
(*制热季*)
if DAHU_STRUCT_IN.SM=1 then
if DAHU_STRUCT_IN.TSET-DAHU_STRUCT_IN.RTS>=3.0 then
DAHU_WVCTEMP:=100.0;
end_if;
if DAHU_STRUCT_IN.TSET-DAHU_STRUCT_IN.RTS<=0.0 then
DAHU_WVCTEMP:=0.0;
end_if;
if PID_timer.q then
DAHU_WPID(RUN:= DAHU_STRUCT_IN.RUN,STOP_D:=1,STOP_I:=0,SET:=DAHU_STRUCT_IN.TSET,FB:=DAHU_STRUCT_IN.RTS,KFB:=1.0,KP:=DAHU_WPID_VP,TI:=DAHU_WPID_VI,TD:=1.0,DEAD_BAND:=0.2,YMAX:=100.0,YMIN:=0.0 | DAHU_WVCTEMP:=OUT);
end_if;
end_if;
(*过渡季*)
if DAHU_STRUCT_IN.SM=2 then
DAHU_WVCTEMP:=0.0;
end_if;
else
DAHU_WVCTEMP:=0.0;
end_if;
else
DAHU_WVCTEMP:=DAHU_STRUCT_IN.WVMV;
end_if;
(*水阀赋值量程转换*)
DAHU_STRUCT_OUT.WVCS:=REAL_TO_INT(DAHU_WVCTEMP*100.0);
(******************************************************运行时间累计******************************************************)
DAHU_RunTime(RUN :=DAHU_STRUCT_IN.Run , RUNTIMESET :=DAHU_STRUCT_IN.RSTV , RUNTIMERST :=DAHU_STRUCT_IN.RST ,RunTimeRec_In :=DAHU_STRUCT_OUT.RH | DAHU_STRUCT_OUT.RH:= RUNTIME);
END_FUNCTION_BLOCK