CODESYS V3.5. Вопросы и ответы

Цитата:

---

Сообщение от melky

Не проще ли переключать выходы, указанные в массиве?
И если выход в блоке, просто удалять его из массива.

---

А как это сделать? Поделитесь пожалуйста

Ну контролировать что у вас заблокировано и вносить в массив разрешенные. Количество разрешенных параметр счетчика, по импульсу перебирать массив, сбрасывая счетчик, когда массив заканчивается, чтобы возвращаться с первому элементу массива.

Цитата:

---

Сообщение от melky

Ну контролировать что у вас заблокировано и вносить в массив разрешенные. Количество разрешенных параметр счетчика, по импульсу перебирать массив, сбрасывая счетчик, когда массив заканчивается, чтобы возвращаться с первому элементу массива.

---

ST для меня пока дремучий лес. Только изучаю

Цитата:

---

Сообщение от shvitaliy

ST для меня пока дремучий лес. Только изучаю

---

Вариант кода

Скрытый текст:

Код:

---

FUNCTION_BLOCK Circle
VAR_INPUT
    IN: BOOL ;
    alar1,alar2,alar3,alar4 : BOOL ;
END_VAR
VAR_OUTPUT
    run      : WORD;      (*число запущенных котлов*)
    nonorm    : WORD;          (*число котлов в нерабочем состоянии*)
    boil1,boil2,boil3,boil4: BOOL ;
END_VAR
VAR
    i, j    : WORD;
    main    : WORD:=0;    (*номер основного котла*)
    amount :WORD:=1;  (*необходимое число котлов*)
    boiler    : ARRAY[0..4] OF BOOL; (*запуск котла*)
    alarm    : ARRAY[0..4] OF BOOL; (*авария котла исключает его из работы*)
    num      : WORD:=4;    (*общее число котлов*)
    R_Trig1:  R_TRIG;
END_VAR

//  PRG
run := 0;          (*Сбрасываем переменные для нового расчета*)
nonorm := 0;

alarm[1]:=alar1; alarm[2]:=alar2; alarm[3]:=alar3; alarm[4]:=alar4;    (* Формируем массив аварий *)

FOR i:=1 TO num DO        (*Определяем сколько котлов в нерабочем состоянии*)
    nonorm := nonorm + BOOL_TO_WORD(alarm[i]);
END_FOR

  R_Trig1(Clk:=IN);  (* Переключаем основной котел*)
IF R_Trig1.Q THEN
    main:=main+1;
    IF main>num THEN main:=1; END_IF
      FOR i:=0 TO num-1 DO
      boiler[i]:= FALSE;
      END_FOR
END_IF

WHILE alarm[main] AND nonorm < num DO main :=SEL(main=NUM, main+1,1); END_WHILE        (*Назначаем основной котел*)

FOR i := main TO main+num-1 DO  (*Запускаем необходимое число котлов, остальные останавливаем*)
    j := SEL(i>num, i, i-num);
    IF NOT alarm[j] AND run<amount
    THEN boiler[j] := TRUE; run := run+1;
    ELSE boiler[j] := FALSE;
    END_IF
END_FOR

boil1:=boiler[1]; boil2:=boiler[2]; boil3:=boiler[3]; boil4:=boiler[4];  (* Формируем  выходы *)
IF run>num THEN run:=0; END_IF

---

В одной из тем форума подобное рассматривали:

Вложение 81044

Вложение 81045

И, здесь подобный алгоритм рассматривали:
https://owen.ru/forum/showthread.php?t=36564

Цитата:

---

Сообщение от kondor3000

Вариант кода

Скрытый текст:

Код:

---

FUNCTION_BLOCK Circle
VAR_INPUT
    IN: BOOL ;
    alar1,alar2,alar3,alar4 : BOOL ;
END_VAR
VAR_OUTPUT
    run      : WORD;      (*число запущенных котлов*)
    nonorm    : WORD;          (*число котлов в нерабочем состоянии*)
    boil1,boil2,boil3,boil4: BOOL ;
END_VAR
VAR
    i, j :UDINT;
    main    : WORD:=0;    (*номер основного котла*)
    amount  : WORD:=1;  (*необходимое число котлов*)
    boiler  :ARRAY[0..4] OF BOOL; (*запуск котла*)
    alarm  :ARRAY[0..4] OF BOOL; (*авария котла исключает его из работы*)
    num    : WORD:=4;    (*общее число котлов*)
    R_Trig1:  R_TRIG;
END_VAR

//  PRG
run := 0;          (*Сбрасываем переменные для нового расчета*)
nonorm := 0;

alarm[1]:=alar1; alarm[2]:=alar2; alarm[3]:=alar3; alarm[4]:=alar4;    (* Формируем массив аварий *)

FOR i:=1 TO num DO        (*Определяем сколько котлов в нерабочем состоянии*)
    nonorm := nonorm + BOOL_TO_WORD(alarm[i]);
END_FOR

  R_Trig1(Clk:=IN);  (* Переключаем основной котел*)
IF R_Trig1.Q THEN
      main:=main+1;
    IF main>4 THEN main:=1; END_IF
      FOR i:=0 TO 3 DO
          boiler[i]:= FALSE;
      END_FOR
END_IF

WHILE alarm[main] AND nonorm < num DO main :=SEL(main=NUM, main+1,1); END_WHILE        (*Назначаем основной котел*)

FOR i := main TO main+num-1 DO  (*Запускаем необходимое число котлов, остальные останавливаем*)
    j := SEL(i>num, i, i-num);
    IF NOT alarm[j] AND run<amount
    THEN boiler[j] := TRUE; run := run+1;
    ELSE boiler[j] := FALSE;
    END_IF
END_FOR

boil1:=boiler[1]; boil2:=boiler[2]; boil3:=boiler[3]; boil4:=boiler[4];  (* Формируем  выходы *)
IF run>4 THEN run:=0; END_IF

---

---

Спасибо за помощь! Проверил код, отлично работает.
Подскажите пожалуйста, как прикрутить еще одно условие?
Если на входе пропадает сигнал, то активный выход отключается, все остальные условия сохраняются.

Цитата:

---

Сообщение от shvitaliy

Спасибо за помощь! Проверил код, отлично работает.
Подскажите пожалуйста, как прикрутить еще одно условие?
Если на входе пропадает сигнал, то активный выход отключается, все остальные условия сохраняются.

---

Какой сигнал и на каком входе? Куда пропадает?
In просто переключает, а аварии выставляете если они есть.

Цитата:

---

Сообщение от kondor3000

Какой сигнал и на каком входе? Куда пропадает?
In просто переключает, а аварии выставляете если они есть.

---

Если in пропадает, то активный выход отключается

Цитата:

---

Сообщение от shvitaliy

Если in пропадает, то активный выход отключается

---

Не понятно куда он может пропасть, вы можете только отследить его отсутствие в течении например 10 секунд, по таймеру.
Тогда отключить выходы, можно задав main:=0; в конце ФБ, а так же сбросить последний элемент массива (маску) выходов, можно так

Код:

---

TOF1(IN:=In , PT:=T#10s);
IF NOT TOF1.Q THEN main:=0; boiler[4]:= FALSE; END_IF

---

Спасибо большое