使用和利时PLC的锅炉控制源代码

PROGRAM PLC_PRG（）hs_tcp(EN:=TRUE , Address:=5 );success:=hs_tcp.Q ;initial();read_io();read_analog();winterpump_start();summerpump_start();supplypump_start();lifepump_start();v1_start();v2_start();zv04_start();boiler_start();flow_start();to_retain();PROGRAM boiler_start（）*zv01 open*)tp_zv01openpulse(IN:= mskv1_b1runstate OR mskv0_b1start, PT:= t#5s);IF(tp_zv01openpulse.Q =TRUE) THENqx_zv01open:=TRUE;ELSEqx_zv01open:=FALSE;END_IF(*boiler1 start*)IF( mskv0_b1start=TRUE AND ix_zv01open=TRUE AND ix_b1lalarm=FALSE AND ix_b1talarm=FALSEAND ix_b1palarm=FALSE AND ix_firealarm=FALSE AND (b_summerpumpstarted=TRUE OR b_winterpumpstarted=TRUE)AND ix_b1burnfault=FALSE AND ix_summerpumpfault=FALSE AND ix_winterpumpfault=FALSE AND ix_supplypumpfault=FALSE)THENqx_b1start:=TRUE;ELSEqx_b1start:=FALSE;(*boiler1 stop*)END_IFPROGRAM flow_start（）Timer_flowstart(IN:=TRUE,PT:=T#1s);IF Timer_flowstart.Q THENIF(retain_hall>999999)THENretain_hall:=0;END_IFtemp_dt1:=(t_feed-t_back);temp_dt2:=(t_feed-mskv8_te02);temp_dt:=temp_dt1+temp_dt2;temp_j:=mskv8_ffeed*4.1868;temp_j:=temp_j/3600;mskv8_j:=temp_j;temp_gj:=temp_j/1000000000;retain_hall:=retain_hall+temp_gj;mskv8_hall:=retain_hall;timer_flowstart(in:=FALSE);END_IF(*(4.1868*mskv8_ffeed*(t_feed-t_back)/3600/1000000000); *)PROGRAM from_retain（）mskv0_v1auto:=retain_v1auto;mskv0_v2auto:=retain_v2auto;mskv0_supplypumpauto:=retain_supplypumpauto; mskv9_fwinterpump:=retain_fwinterpump;mskv9_fsummerpump:=retain_fsummerpump;mskv9_tjiejuv1:=retain_tjiejuv1;mskv9_fsupplypump:=retain_fsupplypump;mskv9_vv1:=retain_vv1;v_v1:=retain_vv1;mskv9_vv2:=retain_vv2;v_v2:=retain_vv2;PROGRAM initial（）IF(b_firstpoweron=TRUE) THENqx_b1start:=FALSE;qx_b2start:=FALSE;qx_b3start:=FALSE;read_analog();t_mesurev1:=t_out;from_retain();b_firstpoweron:=FALSE;END_IFPROGRAM lifepump_start（）timer_lifepump(in:=TRUE,pt:=t#2s);IF(timer_lifepump.q=TRUE)THENIF(t_backlife<=38) THENqx_lifepumpa:=TRUE;qx_lifepumpb:=TRUE;END_IFIF(t_backlife>=55)THENqx_lifepumpa:=FALSE;qx_lifepumpb:=FALSE;END_IFtimer_lifepump(in:=FALSE);END_IFPROGRAM read_analog（）timer_readanalog(in:=TRUE,pt:=t#100ms);IF(timer_readanalog.Q=TRUE) THENhhe_tout(EN:=TRUE , IN:=iw_tout , HIGH:=50 ,LOW:=-50 ,MODE:=0 ); t:=hhe_tout.out;t_out:=t;mskv8_tout:=t;(**)hhe_tguofu(EN:=TRUE , IN:=iw_tguofu , HIGH:=100 ,LOW:=0 ,MODE:=0); t:=hhe_tguofu.OUT;mskv8_tguofu:=t;hhe_pguofu(EN:=TRUE , IN:=iw_pguofu , HIGH:=1.6 ,LOW:=0 ,MODE:=0); t:=hhe_pguofu.OUT;mskv8_pguofu:=t;hhe_te02(EN:=TRUE , IN:=iw_te02, HIGH:=100 ,LOW:=0 ,MODE:=0); t:=hhe_te02.OUT;mskv8_te02:=t;(**)hhe_tg1(EN:=TRUE , IN:=iw_tg1 , HIGH:=100 ,LOW:=0 ,MODE:=0); t:=hhe_tg1.OUT;mskv8_tg1:=t;hhe_tg2(EN:=TRUE , IN:=iw_tg2 , HIGH:=100 ,LOW:=0 ,MODE:=0 ); t:=hhe_tg2.OUT;mskv8_tg2:=t;hhe_tg3(EN:=TRUE , IN:=iw_tg3 , HIGH:=100 ,LOW:=0 ,MODE:=0 ); t:=hhe_tg3.OUT;mskv8_tg3:=t;hhe_tfeed(EN:=TRUE ,IN:=iw_tfeed , HIGH:=100 ,LOW:=0 ,MODE:=0 );t:=hhe_tfeed.OUT;mskv8_tfeed:=t;t_feed:=t;hhe_tnatatorium(en:=TRUE,in:=iw_tnatatorium,high:=100,low:=0,mode:=0); t:=hhe_tnatatorium.OUT;mskv8_tnatatorium:=t;hhe_tshelter(en:=TRUE,in:=iw_tshelter,high:=100,low:=0,mode:=0);t:=hhe_tshelter.OUT;mskv8_tshelter:=t;hhe_tswimpool(en:=TRUE,in:=iw_tswimpool,high:=100,low:=0,mode:=0); t:=hhe_tswimpool.OUT;mskv8_tswimpool:=t;hhe_tgeothermy(en:=TRUE,in:=iw_tgeothermy,high:=100,low:=0,mode:=0); t:=hhe_tgeothermy.OUT;mskv8_tgeothermy:=t;hhe_tback(en:=TRUE,in:=iw_tback,high:=100,low:=0,mode:=0);t_back:=hhe_tback.OUT;mskv8_tback:=t_back;hhe_tb1co2(en:=TRUE,in:=iw_tb1co2,high:=400,low:=0,mode:=0);t:=hhe_tb1co2.OUT;mskv8_tb1co2:=t;hhe_tb2co2(en:=TRUE,in:=iw_tb2co2,high:=400,low:=0,mode:=0);t:=hhe_tb2co2.OUT;mskv8_tb2co2:=t;hhe_tb3co2(en:=TRUE,in:=iw_tb3co2,high:=400,low:=0,mode:=0);t:=hhe_tb3co2.OUT;mskv8_tb3co2:=t;hhe_tfeedlife(en:=TRUE,in:=iw_tfeedlife,high:=100,low:=0,mode:=0);t_feedlife:=hhe_tfeedlife.OUT;mskv8_tfeedlife:=t_feedlife;hhe_tbacklife(en:=TRUE,in:=iw_tbacklife,high:=100,low:=0,mode:=0);t_backlife:=hhe_tbacklife.OUT ;mskv8_tbacklife:=t_backlife;hhe_ttransa(en:=TRUE,in:=iw_ttransa,high:=100,low:=0,mode:=0);t:=hhe_ttransa.OUT;mskv8_ttransa:=t;hhe_ttransb(en:=TRUE,in:=iw_ttransb,high:=100,low:=0,mode:=0);t:=hhe_ttransb.OUT;mskv8_ttransb:=t;hhe_vv1(en:=TRUE,in:=iw_vv1,high:=100,low:=0,mode:=2);t:=hhe_vv1.OUT;mskv8_vv1:=t;hhe_vv2(en:=TRUE,in:=iw_vv2,high:=100,low:=0,mode:=2);t:=hhe_vv2.OUT;mskv8_vv2:=t;hhe_fsummerpump(en:=TRUE,in:=iw_fsummerpump,high:=100,low:=0,mode:=0); t:=hhe_fsummerpump.OUT;mskv8_fsummerpump:=t;hhe_fwinterpump(en:=TRUE,in:=iw_fwinterpump,high:=100,low:=0,mode:=0); t:=hhe_fwinterpump.OUT;mskv8_fwinterpump:=t;hhe_fsupplypump(en:=TRUE,in:=iw_fsupplypump,high:=100,low:=0,mode:=0); t:=hhe_fsupplypump.OUT;mskv8_fsupplypump:=t;hhe_pfeed(en:=TRUE,in:=iw_pfeed,high:=1.6,low:=0,mode:=0);t:=hhe_pfeed.OUT;mskv8_pfeed:=t;hhe_pnatatorium(en:=TRUE,in:=iw_pnatatorium,high:=1.6,low:=0,mode:=0);t:=hhe_pnatatorium.OUT;mskv8_pnatatorium:=t;hhe_pshelter(en:=TRUE,in:=iw_pshelter,high:=1.6,low:=0,mode:=0);t:=hhe_pshelter.OUT;mskv8_pshelter:=t;hhe_pswimpool(en:=TRUE,in:=iw_pswimpool,high:=1.6,low:=0,mode:=0);t:=hhe_pswimpool.OUT;mskv8_pswimpool:=t;hhe_pgeothermy(en:=TRUE,in:=iw_pgeothermy,high:=1.6,low:=0,mode:=0); t:=hhe_pgeothermy.OUT;mskv8_pgeothermy:=t;hhe_pback(en:=TRUE,in:=iw_pback,high:=1.6,low:=0,mode:=0);t:=hhe_pback.OUT;mskv8_pback:=t;p_back:=t;hhe_psupply(en:=TRUE,in:=iw_psupply,high:=1.6,low:=0,mode:=0);t:=hhe_psupply.OUT;mskv8_psupply:=t;p_supply:=t;hhe_ffeed(EN:=TRUE ,IN:=iw_ffeed , HIGH:=200 ,LOW:=0 ,MODE:=0 );t:=hhe_ffeed.OUT;mskv8_ffeed:=t;timer_readanalog(in:=FALSE);END_IFROGRAM read_io（）timer_readio(in:=TRUE,pt:=t#1s);IF(timer_readio.Q =TRUE) THENmskv1_lshuixiang:=ix_lshuixiang;mskv1_hshuixiang:=ix_hshuixiang;mskv1_b1runstate:=ix_b1runstate;mskv1_b2runstate:=ix_b2runstate;mskv1_b3runstate:=ix_b3runstate;mskv1_summerpump:=ix_summerpump;mskv1_winterpump:=ix_winterpump;mskv1_supplypump:=ix_supplypump;mskv1_lifepumpa:=ix_lifepumpa;mskv1_lifepumpb:=ix_lifepumpb;mskv1_b1lalarm:=ix_b1lalarm;mskv1_b2lalarm:=ix_b2lalarm;mskv1_b3lalarm:=ix_b3lalarm;mskv1_b1talarm:=ix_b1talarm;mskv1_b2talarm:=ix_b2talarm;mskv1_b3talarm:=ix_b3talarm;mskv1_b1palarm:=ix_b1palarm;mskv1_b2palarm:=ix_b2palarm;mskv1_b3palarm:=ix_b3palarm;mskv1_b1burnfault:=ix_b1burnfault;mskv1_b2burnfault:=ix_b2burnfault;mskv1_b3burnfault:=ix_b3burnfault;mskv1_zv01open:=ix_zv01open;mskv1_zv01close:=ix_zv01close;mskv1_zv02open:=ix_zv02open;mskv1_zv02close:=ix_zv02close;mskv1_zv03open:=ix_zv03open;mskv1_zv03close:=ix_zv03close;mskv1_winterpumpfault:=ix_winterpumpfault;mskv1_firealarm:=ix_firealarm;timer_readio(in:=FALSE);END_IFPROGRAM summerpump_start（）heh_summerpump(EN:=TRUE , IN:=mskv9_fsummerpump ,HIGH:=100 ,LOW:= 0, MODE:=0); qw_fsummerpump:=heh_summerpump.OUT;(**)timer_summerpump(in:=TRUE,pt:=t#2s);IF(timer_summerpump.Q=TRUE) THENIF(mskv0_summerpump=TRUE)THENqx_summerpump:=TRUE;ELSEqx_summerpump:=FALSE;END_IFtimer_summerpump(in:=FALSE);END_IF(**)timer_summerpumpstart(in:=ix_summerpump,pt:=t#60s);IF(timer_summerpumpstart.Q =TRUE) THENb_summerpumpstarted:=TRUE;ELSEb_summerpumpstarted:=FALSE;END_IFPROGRAM supplypump_vf（）(*Variable frequency*)timer_pidsp(in:=TRUE,pt:=t#30s);IF(timer_pidsp.Q =TRUE) THENdp:=0.13-p_supply;ddp:=dp-dp_oldsp;dp_oldsp:=dp;IF(dp>0.005 OR dp<-0.005) THENf:=kp_fsp*ddp+ki_fsp*dp;IF(f>10)THENf:=10;END_IFIF(f<-10)THENf:=-10;END_IFf_supplypump:=f_supplypump+f;END_IF(**)IF(f_supplypump>=100) THENf_supplypump:=100;END_IFIF(f_supplypump<=0) THENf_supplypump:=0;END_IFtimer_pidsp(in:=FALSE);END_IFmskv9_fsupplypump:=f_supplypump;heh_supplypump(EN:=TRUE , IN:=mskv9_fsupplypump , hIGH:=100 ,LOW:= 0, MODE:=0); qw_fsupplypump:=heh_supplypump.OUT;PROGRAM to_retain（）retain_v1auto:=mskv0_v1auto;retain_v2auto:=mskv0_v2auto;retain_supplypumpauto:=mskv0_supplypumpauto;retain_fwinterpump:=mskv9_fwinterpump;retain_fsummerpump:=mskv9_fsummerpump;retain_tjiejuv1:=mskv9_tjiejuv1;retain_vv1:=mskv9_vv1;retain_vv2:=mskv9_vv2;ROGRAM v1_auto（）timer1_pidv1(in:=TRUE,pt:=t#10s);IF(timer1_pidv1.Q =TRUE) THENt:=0.7*t_out+0.3*t_oldout;t_oldout:=t;timer1_pidv1(in:=FALSE);END_IF(*end timer1_pidtv001*)(*begin timer2_pidtv001*)timer2_pidv1(in:=TRUE,pt:=t#30s);IF(timer2_pidv1.Q =TRUE) THENt_sumv1:=t_sumv1+(t-t_mesurev1)/120;IF(t_sumv1>t_conv1) THENt_sumv1:=0;t_mesurev1:=t;END_IFIF(t_sumv1<-t_conv1) THENt_sumv1:=0;t_mesurev1:=t;END_IFtimer2_pidv1(in:=FALSE);END_IFt_y:=mskv9_tjiejuv1-xielv*t_mesurev1;(*end timer2_pidtv001*)(*begin timer3_pidtv001*)timer3_pidv1(in:=TRUE,pt:=t#120s);IF(timer3_pidv1.Q =TRUE) THENdt1:=(t_feed+t_back)/2-t_y;ddt:=dt1-dt_oldv1;dt_oldv1:=dt1;IF(dt1>0.2 OR dt1<-0.2) THENv:=kp_vv1*ddt+ki_vv1*dt1;IF(v>10)THENv:=10;END_IFIF(v<-10)THENv:=-10;END_IFv_v1:=v_v1+v;IF(v_v1>99) THENv_v1:=99;END_IFIF(v_v1<1)THENv_v1:=1;END_IFEND_IFtimer3_pidv1(in:=FALSE);END_IF(*end timer3_pidtv001*)PROGRAM v1_start（）IF(mskv0_v1auto=TRUE) THENv1_auto();mskv9_vv1:=v_v1;qw_temp:=mskv9_vv1;heh_v1(en:=TRUE,in:=qw_temp,high:=100,low:=0,mode:=1);qw_vv1:=heh_v1.OUT;ELSEqw_temp:=mskv9_vv1;heh_v1(en:=TRUE,in:=qw_temp,high:=100,low:=0,mode:=1);qw_vv1:=heh_v1.OUT;END_IFPROGRAM winterpump_start（）heh_winterpump( EN:=TRUE ,IN:=mskv9_fwinterpump , hIGH:=100 , LOW:=0 , MODE:=0 ); qw_fwinterpump:=heh_winterpump.OUT;(**)timer_winterpump(in:=TRUE,pt:=t#2s);IF(timer_winterpump.Q =TRUE) THENIF(mskv0_winterpump=TRUE)THENqx_winterpump:=TRUE;ELSEqx_winterpump:=FALSE;END_IFtimer_winterpump(in:=FALSE);END_IF(**)timer_winterpumpstart(in:=ix_winterpump,pt:=t#60s); IF(timer_winterpumpstart.Q =TRUE) THENb_winterpumpstarted:=TRUE;ELSEb_winterpumpstarted:=FALSE;END_IFPROGRAM zv04_start（）timer_zv04(in:=TRUE,pt:=t#2s);IF(timer_zv04.Q =TRUE)THENIF(p_back>1.8)THENqx_zv04:=TRUE;END_IFIF(p_back<1.5)THENqx_zv04:=FALSE;END_IF;timer_zv04(in:=FALSE);END_IF。