让大家看看十年前的PPCL程序:(可不是我写的,注解是我加的,有的可能不对。)
空调机组: X1,X2,X4,X5
------------------------------------------------------------------------------
*** Begin Listing For File 001.PGM *** Lines: 1 - 32767 ***
10 C ******* X1 ********
E 15 Y2TIME=CRTIME C 得到当前时间[得到当前时间函数CRTIME]
E 40 IF(X1FDS.EQ.ON) THEN GOTO 50 ELSE GOTO 100
C *************过滤网压差开关出现报警 X1FDS.EQ.ON ************
E 50 OFF(X1OFS) C停止风机运行
E 60 SET(0.0,X1XFV) C 关闭新风阀
E 70 SET(90.0,X1LDV) C 关闭冷冻水阀
E 80 SET(0.0,X1JSV) C 关闭加湿阀
E 90 GOTO 1000 C 跳转到新风机2#
E 98 IF(NOTH1.EQ.OFF) THEN OFF(NOTH2)
E 99 IF(NOTH1.EQ.ON) THEN ON(NOTH2)
C *************过滤网压差开关没有报警 X1FDS.EQ.OFF *************
E 100 IF(X1FYS.EQ.ON) THEN GOTO 110 ELSE GOTO 280
C ************* X1FYS.EQ.ON *************
E 110 IF(GD.EQ.OFF) THEN GOTO 160 ELSE GOTO 120
E 120 SET(0.0,X1LDV)
E 130 SET(0.0,X1JSV)
E 140 SET(90.0,X1XFV)
E 150 GOTO 1000 C 跳转到新风机2#
E 160 SET(90.0,X1XFV) C 将新风阀开到90%
C *************冬夏工况*************
E 170 IF(GK.EQ.OFF) THEN GOTO 180 ELSE GOTO 230
C *************夏季 GK.EQ.OFF *************
E 180 IF(X1XFT.GT.28) THEN GOTO 185 ELSE GOTO 221
C *************新风温度>28*************
E 185 X1LOP1=((X1XFT-X1SDT)/(LDVMAX-LDVMIN))*1000
E 190 X1LOP2=X1LOP1*0.02
C *************送风温度控制*************
C X1SFT 送风温度
C X1LDV冷冻水阀
C X1SFT 送风温度
C X1SDT 送风温度设定
C LOOP(Type(0--正向,128--反向),Process Var,Control Var,Set Point,
C Proportional,Integral,Derivative,
C Sample Time,Bias,Low Limit,High Limit,Not Used)
E 200 LOOP( 0,X1SFT,X1LDV,X1SDT,X1LOP1,X1LOP2,0,5,LDVSD,LDVMIN,LDVMAX,0)
E 210 LOOP(128,X1SFH,X1JSV,X1SDH,3000,60,0,5,50.0,0.0,100.0,0)
E 220 GOTO 1000 C 跳转到新风机2#
C *************新风温度<28*************
E 221 LOOP( 0,X1SFT,X1LDV,X1SDT,3000,60,0,5,LDVSD,LDVMIN,LDVMAX,0)
E 222 LOOP(128,X1SFH,X1JSV,X1SDH,3000,60,0,5,50.0,0.0,100.0,0)
E 223 GOTO 1000 C 跳转到新风机2#
C ************* 冬季 GK.EQ.ON *************
E 230 X1LOP1=((X1SDT-X1XFT)/(LDVMAX-LDVMIN))*1000
E 240 X1LOP2=X1LOP1*0.02
E 250 LOOP(128,X1SFT,X1LDV,X1SDT,X1LOP1,X1LOP2,0,5,LDVSD,LDVMIN,LDVMAX,0)
E 260 LOOP(128,X1SFH,X1JSV,X1SDH,3000,60,0,5,50.0,0.0,100.0,0)
E 270 GOTO 1000 C 跳转到新风机2#
C ************* X1FYS.EQ.OFF *************
E 280 SET(0.0,X1XFV)
E 282 IF(GK.EQ.ON) THEN GOTO 284 ELSE GOTO 290
C *************冬季GK.EQ.ON *************
E 284 SET(20.0,X1LDV) C 冷冻水阀[防冻作用]
E 286 GOTO 300
C ************* 夏季GK.EQ.OFF *************
E 290 SET(0.0,X1LDV)
E 300 SET(0.0,X1JSV) C 加湿器
310 C