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

[shvitaliy]

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

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

[melky]

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

[shvitaliy]

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

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

[kondor3000]

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

[Сергей0308]

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

Сигнализация включённых входов_14.PNG

Сигнализация включённых входов_14.owle

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

[shvitaliy]

Вариант кода

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

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

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

[kondor3000]

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

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

[shvitaliy]

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

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

[kondor3000]

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

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

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

[shvitaliy]

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