Управление лампой "Авария" сериями импульсов в зависимости от статусов

[МихаилГл]

Доброго дня! Не могу сообразить, как реализовать управление лампой "Авария" импульсами в зависимости от статусов на ПР200. В зависимости от того какая аварийная ситуация, индикатор выдает серию миганий. Мигание индикатора при определении аварии происходит интервально, при этом количество включенных состояний индикатора в серии импульсов показывает номер определенной аварии. Серия из одного импульса, далее пауза 1,5-2 секунды и переход к индикации следующей аварии своим количеством импульсов (два, три и т.д.). Индикация аварий осуществляется циклично.

Добавляю более читаемый код (разработан в codesys 3.5), который, думаю, можно переделать и для ПР. Остается только коды аварий самому разработать...

PROGRAM PLC_PRG
VAR
	ALARMok:			ARRAY [1..VOLUMEofALARM] OF BOOL;	//наличие аварии для данного кода
	TIMEforEACHcode:		ton;					//таймер на каждую активную аварию
	NEXTalarm:			INT:= 1;				//номер шага для поиска следующей активной аварии
	NEXTok:				BOOL;					//следующая активная авария найдена
	OUTforLAMP:			BOOL;					//выход на сигнализацию
	i:				INT;					//для цикла
END_VAR
VAR CONSTANT
	VOLUMEofALARM:		INT:= 4;					//количество аварий
END_VAR
-----------------------------------------------------------
//каждые 10 секунд показывать новую аварию
TIMEforEACHcode(in:= NOT TIMEforEACHcode.q, pt:= T#10S);
//ограничение по максимуму аварий
IF NEXTalarm> VOLUMEofALARM THEN
	NEXTalarm:= 1;
END_IF
//поиск следующей активной аварии
IF NOT ALARMok[NEXTalarm] AND NOT NEXTok THEN
	NEXTalarm:= NEXTalarm + 1;
	IF ALARMok[NEXTalarm] THEN
		NEXTok:= TRUE;
	END_IF
END_IF
//старт поиска следующей активной аварии
IF TIMEforEACHcode.q THEN
	NEXTok:= FALSE;
	NEXTalarm:= NEXTalarm + 1;
END_IF

//выход на сигнализацию
//так:
//OUTforLAMP:= (POU_SIG.OutX[1] AND (NEXTalarm= 1)) OR (POU_SIG.OutX[2] AND (NEXTalarm= 2)) OR (POU_SIG.OutX[3] AND (NEXTalarm= 3)) OR (POU_SIG.OutX[4] AND (NEXTalarm= 4));
//или так:
OUTforLAMP:= FALSE;
FOR i:= 1 TO VOLUMEofALARM DO
	OUTforLAMP:= OUTforLAMP OR (POU_SIG.OutX[i] AND (NEXTalarm= i));
END_FOR

Эх, без аварий - косячит... Надо разбираться. Но все равно, мне на ST больше код удобен, чем на FBD

[Dimensy]

Ну, у меня как-то так получилось. На нулевой бит повесил постоянное свечение

function_block AlarmFlash
    
    var_input
        bmAlarm : udint; //битовая маска аварий
    end_var
    
    var_output 
        Q : bool;
    end_var
    
    var 
        bitAl :bool;
        numAl : udint := 1;
        blink : SYS.BLINK;
        ctu : SYS.CTU;
        pause : SYS.TON;
        fl : SYS.FTRIG;
    end_var
    
    bitAl := shr(bmAlarm, numAl) mod 2 > 0;
    
    if bmAlarm > 1 then
        if not bitAl or pause.Q then
            ctu(R := true);
            numAl := numAl + 1;
            if numAl > 7 then numAl := 1; end_if
        end_if
    
        blink(I := bitAl and not ctu.Q, Th := t#500ms, Tl := t#500ms);
        fl(I := blink.Q);
        ctu(C := fl.Q, N := numAl, R := false);
        pause(I := ctu.Q, T := t#2s);
    else
        numAl := 1;
        ctu(R := true);
    end_if
    
    Q := blink.Q or bmAlarm.0;

end_function_block

[Валенок]

to Dimensy
массив не нужен. i-тый бит маски в этом лайт-ST
shr(маска,i) mod 2 > 0;

[Dimensy]

В продолжении мармезонского балета, еще один макрос на 32 аварии. Аварии разбиты на 4 группы по 8 бит

function_block AlarmFlash_2
    
    var_input
        bmAlarm : udint; //битовая маска аварий
    end_var
    
    var_output 
        Q : bool;
        Code : udint;
    end_var
    
    var 
        bitAlarm : bool;
        numGr : udint; 
        numAl : udint := 0;              
        codeAl : SYS.BLINK;
        cGroup, cAlarm : SYS.CTU;
        pGroup  : SYS.TON;
        pAlarm : SYS.TP;
        faseGr, faseAl : bool;
        flashAl :udint;
        next : SYS.RTRIG;
        res : bool;
    end_var
    
    codeAl(Th := t#300ms, Tl := t#300ms); //период моргания
    pGroup(T := t#500ms); //пауза между группа - код
    pAlarm(T := t#2700ms); // пауза между авариями
    
    //Поиск аварий
    bitAlarm := shr(bmAlarm, numAl) mod 2 > 0;
    if not bitAlarm or next.Q then
        res := true;
        numAl := numAl + 1;
        if numAl > 31 then
            numAl := 0;
        end_if
    else
        res := false;
    end_if
       
    if not pAlarm.Q then
        flashAl := 1 + (numAl mod 8);
        if numAl > 23 then numGr := 5;
            elsif numAl > 15 then numGr := 4;
            elsif numAl > 7 then numGr := 3;
            else numGr := 2;
        end_if;
    end_if
    
    cGroup(C := not Q and faseGr, N := numGr, R := res); 
    cAlarm(C := not Q and faseAl, N := flashAl, R := res);
    next(I := cAlarm.Q);
    pGroup(I := cGroup.Q);
    pAlarm(I := cAlarm.Q);
    
    faseGr := bitAlarm and not (cGroup.Q or pAlarm.Q);
    faseAl := pGroup.Q and not cAlarm.Q;
    
    codeAl(I := (faseGr or faseAl), Q => Q);
    
    if faseGr or faseAl then
        Code := numAl + 1;
    elsif bmAlarm = 0 then
        Code := 0;
    end_if
    
end_function_block