Advertisement
Guest User

Untitled

a guest
Apr 16th, 2013
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 3.37 KB | None | 0 0
  1. (*ФОРМИРОВАНИЕ ШКАЛЫ НАГРУЗКИ 0..4000 мм.вд.ст..*)
  2.              Shcala_Gaz(
  3.                                      IN:=rGazVxod,  (*Сигнал от датчика 4..20 мА.*)
  4.                                            IN_MIN:= 3.8,
  5.                                                  IN_MAX:=20.2 ,
  6.                                                         OUT_MIN:=-50,
  7.                                                         OUT_MAX:= 4050,
  8.                                     OUT=>rGaz,   (*Давление газа перед горелкой 0..4000 мм.вд.ст..*)
  9.                      ERROR=> xOshibkaDatGaz);  (*Ошибка датчика давления газа перед горелкой.*)
  10.  
  11.               rGazAwey := rGazVxod;   (*Значение давления нагрузки на выходе ПЛК
  12.                                                                   для подключения к регистратору.*)
  13.  
  14.              iNagruzka := REAL_TO_INT (rGaz);  (*Значение нагрузки для пересчёта режимных карт.*)
  15.  
  16.              wDS1 :=REAL_TO_WORD (rGaz); (*Значение нагрузки для панели.*)
  17.  
  18.    Reguljtor_Nagruzki(); (* Объявление программы регулятора нагрузки. *)
  19.  
  20.  
  21.            (*ФОРМИРОВАНИЕ ШКАЛЫ ДАВЛЕНИЯ ВОЗДУХА ПЕРЕД ГОРЕЛКОЙ 0..2500 Ра.*)
  22.                 Shcala_Vozdux(
  23.                                IN:=rVozduxVxod ,  (*Сигнал от датчика 4..20 мА.*)
  24.                                         IN_MIN:=3.8 ,
  25.                                               IN_MAX:=20.2 ,
  26.                                                     OUT_MIN:=-30 ,
  27.                                                         OUT_MAX:=2530 ,
  28.                                       OUT=>rVozdux,  (*Давление воздуха перед горелкой 0..2500 Ра.*)
  29.                        ERROR=>xOshibkaDatVozdux );
  30.  
  31.                rVozduxAwey := rVozduxVxod;  (*Значение давления воздуха перед горелкой на выходе ПЛК
  32.                                                                                           для подключения к регистратору.*)
  33.  
  34.                        wDS4 := REAL_TO_WORD (rVozdux); (*Значение воздуха для панели.*)
  35.  
  36.                iVozduxDatchik := REAL_TO_INT (rVozdux);
  37.  
  38.                 (*ФОРМИРОВАНИЕ ШКАЛЫ СОДЕРЖАНИЯ СО В УХОДЯЩИХ ГАЗАХ.*)
  39.                        Shcala_CO(
  40.                                        IN:= rCOVxod,   (*Сигнал от датчика 4..20 мА.*)
  41.                                                 IN_MIN:=3.8 ,
  42.                                                         IN_MAX:= 20.2,
  43.                                                          OUT_MIN:=-12.48 ,
  44.                                                             OUT_MAX:= 1012.34,
  45.                                         OUT=>rCo ,                  (*Содержание СО в уходящих газах  0..1000 ppm.*)
  46.                                ERROR=>xOshibkaDatCo );
  47.  
  48.              wDS3 := REAL_TO_WORD (rCo);  (*Значение СО для панели.*)
  49.  
  50.              Reguljtor_Vozduxa();  (*Объявление программы регулятора воздуха*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement