Advertisement
Guest User

Untitled

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