й *)
ao12=out_port_a_12: PORT;
(* адреса комірки пам'яті, що відповідає за зберігання сезонної константи *)
END_VAR
(*==================================================================================*)
(* реалізація програми роботи САУ водооборота *)
resetport (); (* Здійснює видалення інформації з буферів всіх портів введення / виводу *): IF ((statusport (di12)=TRUE)) AND (K=0) AND (statusport (di17)=TRUE)) (* якщо щит автоматики включений: « ; якщо порт - активний »і є сигнал з насосної станції про початок роботи *) (* звернення до буферу обміну порту - за допомогою символу« & »*)
THEN
setport (24, ao12); (* Запалити світлодіод «мережа», рівень Uвх=24 В, *)
(* функція setport: пар.1 - значення змінної, пар.2 - вказівка ??порту,
пар.3 - час впливу [мс], якщо параметр 3 - не зазначений, то
Стандарт. час=1 с, якщо вказано слово" infinite - сигнал посилається
весь час роботи контролера, режим утримання порту *)
i:=1; (* Для запобігання миготіння світлодіодним панелі *)
END_IF;
(* ======================== перевірка обраного режиму управління ============ ============== *)
hand_time =: 0;
IF (statusport (di13)=TRUE) (* якщо натиснута кнопка «ручний режим роботи» *)
THEN
hand_time=1;
JMP (MET_R1);
END_IF;
(* ============================= установка роботи системи ======== ======================= *)
IF (statusport (di14)=TRUE) (* якщо натиснута кнопка пуску електроприводу ЗРК *)
THEN
OPEN_SHTORKA (di_0=di15; do_0=do5, ao_0=ao12); (* відкриття жалюзі воздуховходного вікна *) setport (24, do1, infinite); (* Включити електропривод ЗРК *)
setport (12, a01) (* відкрити заслінку ЗРК на половину *)
JMP (MET1);
END_IF;
ELSE
JMP (MET2);
END_ELSE;
END_IF;
(* ================= режим стабілізації температури води в градирні ================= ========= *): WHILE ((& ai10)> t_regulirovki +2) OR (& ao1 <> 24) DO (* регулювання по зниженню температури-подача більшої напруги, необхідна для збільшення кута відкриття заслінки клапана *)
& ao1:=(& ao1) +1;
setport (& ao1, ao1);
DELAY (5000);
END_WHILE;
WHILE ((& ai10) <(t_regulirovki)) OR (& ao1 <> 1) DO (* регулювання по зниженню температури-на відміну від першої умови, кут відкриття заслінки буде зменшений , тому що його буде вистачати для забезпечення заданих параметрів охолодження оборотної води *)
& ao1:=(& ao1) - 1;
setport (& a01, ao1);
DELAY (5000);
END_WHILE;