CONST

   Limitt:=20;                                                  //极限

END_CONST

VAR_INPUT

    Num_Lances                    :INT;                          //现有的泡沫发生器数量

    Pos_Quanti_Liquid_Lancex      :INT;                          //当前路混合液累计量寻址

    Pos_Flow_Liquid_Lancex        :INT;                          //当前路混合液流量检测值寻址

    Pos_Flow_Air_Lancex           :INT;                          //当前路空气流量检测值寻址

    Pos_FER_Lance                 :INT;                          //当前路FER寻址

    Mode_Hand                     :BOOL;                         //手动模式

    Earth_Sensor1                 :REAL;                         //传感器1，用于确定在挖掘室中的平均土压力        

    Earth_Sensor2                 :REAL;                         //传感器2，用于确定在挖掘室中的平均土压力        

    Output_Vol_Foam_Lx            :INT;                          //泡沫量计算值输出

    Output_Vol_Air_Lx             :INT;                          //空气量计算值输出

END_VAR    

VAR_OUTPUT

END_VAR  

VAR_TEMP

END_VAR

VAR

    i                                :INT;                           //循环计数器

    t                                :INT;                           //指针 

    r                                :INT;                           //Counters import Data words from PLC     

    Quantity_Liquid                  :ARRAY[1..Limitt] OF REAL;         //Current quantity counter Liquid per lance

    FER_Value                        :ARRAY[1..Limitt] OF REAL;         //FER上位机设定值

    EarthPre_Average                 :REAL;                          //平均绝对土压力考虑1024毫巴的气压

    Vol_Foam_L1_LX                   :ARRAY[1..Limitt] OF REAL;         //Foam volume value per lance (calculated)

    Vol_Air_L1_LX                    :ARRAY[1..Limitt] OF REAL;         //Air volume value per lance (calculated)

    FER_Mode_Hand_Calculated         :ARRAY[1..Limitt] OF REAL;         //Calculated FER value mode hand per lance

    Q_Foam_Mode_Hand                 :ARRAY[1..Limitt] OF REAL;         //Calculated foam flow mode hand per lance   

END_VAR

LABEL

END_LABEL

BEGIN

NETWORK

TITLE =SCL Netzwerk

//generiert vom SCL 躡ersetzer Version:  SCLCOMP K05.03.02.00_01.03.00.01 release

      SET   ; 

      SAVE  ; 

      =     L      0.1; 

      L     #Earth_Sensor1; 

      L     #Earth_Sensor2; 

      +R    ; 

      L     2.000000e+000; 

      /R    ; 

      L     1.013000e+000; 

      +R    ; 

      T     #EarthPre_Average; 

      L     #Pos_FER_Lance; 

      T     #t; 

      L     #Num_Lances; 

      L     1; 

      T     #i; 

      TAK   ; 

      T     LW     2; 

      TAK   ; 

A7d0: L     #i; 

      L     LW     2; 

      <=I   ; 

      JCN   A7d1; 

      L     #i; 

      ITD   ; 

      L     L#1; 

      -D    ; 

      L     L#32; 

      *D    ; 

      L     #t; 

      ITD   ; 

      TAK   ; 

      T     LD     4; 

      TAK   ; 

      L     L#8; 

      *D    ; 

      LAR1  ; 

      OPN   DB    24; 

      L     DBD [AR1,P#0.0]; 

      L     LD     4; 

      TAK   ; 

      T     LD     8; 

      TAK   ; 

      TAR2  ; 

      +D    ; 

      L     LD     8; 

      TAK   ; 

      LAR1  ; 

      TAK   ; 

      T     DID [AR1,P#110.0]; //***FER内存地址

      L     #t; 

      L     100; 

      +I    ; 

      T     #t; 

      L     #i; 

      L     1; 

      +I    ; 

      T     #i; 

      JU    A7d0;