0000001c.awl

本程序为化工厂输送系统控制程序 长达15000行

FUNCTION "10TIS_PIS" : VOID
TITLE =
VERSION : 0.1


VAR_INPUT
  AI_INPUT : INT ;	
  T_DE : S5TIME ;	//延时时间
  T_TIME : TIMER ;	//定时器
END_VAR
VAR_OUTPUT
  PT_HH : BOOL ;	//高高信号
  PT_H_H : BOOL ;	//报警输出
END_VAR
BEGIN
NETWORK
TITLE =(PTIS01)

      L     #AI_INPUT; 
      ITD   ; 
      DTR   ; 
      L     1.000000e+003; //HH值需要现场实测。
      >=R   ; 
      =     #PT_H_H; 


      A     #PT_H_H; //压力过高超过3秒，则停机
      L     #T_DE; 
      SD    #T_TIME; 

      A     #T_TIME; //压力过高超过3秒,且高暴信号仍存在则报警
      A     #PT_H_H; 
      =     #PT_HH; 

END_FUNCTION