Таймеры, переменные и условия

**savir** · Сегодня, 11:51

Здравствуйте уважаемые форумчане, прошу подтолкнуть в сторону решения следующей задачи:
есть три булевые переменные vent1,vent2,vent3. Все они включаюся по тамеру, который определяет время работы(true) и время паузы(false) у каждой переменной отдельно, как организоавать цикл для проверки следующего условия:
Если таймер переменной подошел к запуску то проверить, что другие(другая) перменные уже работают более 3 секунд или до их остановки более 3 секунд, то запуститься сразу иначе отложить запуск переменой на 5 секунд.
Под запуском понимается переход в true.

Код:

vent1(ENABLE:=stop_vent1, TIMELOW:=Pause_Time1 , TIMEHIGH:=Run_Time1 , OUT=> );
Timer_Run1(IN:=vent1.OUT, PT:=Run_Time1 , Q=> , ET=> );
Timer_Pause1(IN:=NOT vent1.OUT, PT:=Pause_Time1 , Q=> , ET=> );

Pause_Time1 и Run_Time1 переменные для задачи времени
Stop_Vent1 булевая переменная аварийной остановки
Timer_Run1 и Timer_Pause1 таймеры для вывод информации о текущем времени работы и паузы
out1, out2, out3 непосредственно дискретные выходы плк

Код:

IF vent2.OUT THEN
		IF    (Vent1.out AND  Timer_Run1.ET < T#3s) OR (Stop_Vent1 AND (NOT out1 AND (Pause_Time1-Timer_Pause1.ET < T#3s))) THEN
			out2_ton(in:=TRUE, pt:=T#5s);
			out2:=out2_ton.Q;
			ostalos2:=(Run_Time2-Timer_Run2.ET);
		ELSE
			out2:=TRUE;
			ostalos2:=(Run_Time2-Timer_Run2.ET);
		END_IF

ELSE
		out2:=FALSE;
		out2_ton(in:=FALSE, pt:=T#0s);
		ostalos2:=(Pause_Time2-Timer_Pause2.ET);

END_IF

вот творчество пока на этом зависло...

**FPavel** · Сегодня, 12:52

Обновление переменных, связанных с таймером (например, TON) происходит не само по себе, а только при вызове ФБ - т.е. нужно вызовы ФБ выполнять не в ветках IF, а в основной части, а in:=true/false формировать при помощи переменной. Иначе в ELSE вложенного IF обновление out2_ton.out прекратится.

А по алгоритму. Сейчас пытаюсь решить подобную задачу.
Т.к. программа (на любом из языков IEC) выполняется не одновременно, а последовательно слева направо и сверху вниз, то значит для агрегата (вентилятора) №1 будут актуальны блокировки пуска от других вентиляторов из прошлого машинного цикла.

Т.е. нужны комплекты переменных для каждого агрегата:
- bRequestStart1...3 - запрос включения (из алгоритма)
- bStart1...3 - состояние включения (то, что на пускатель пойдёт)
- bStartPrevious1...3 - состояние включения (то, что на пускатель пойдёт) на предыдущем машинном цикле
- bSwitchingNow1...3 - выполняется отсчёт паузы по переключению от 1 (...3) к остальным агрегатам
- bSwitchingEn1...3 - разрешение 1 (...3) агрегату менять состояние
- таймеры импульсов TP1...3 - для отсчёта паузы запрещающей переключение другим.

Для каждого агрегата определять:
1. разрешение менять состояние bSwitchingEn1 := not(bSwitchingNow2 or bSwitchingNow3)
2. если есть разрешение и необходимость изменения, то изменить состояние

Код:

if bSwitchingEn1 and (bRequestStart1 <> bStart1) then
    bStart1 := bRequestStart1;
end_if

3. запустить отсчёт таймера TP по условию изменения состояния (bStart1 xor bStartPrevious1) сам таймер за пределами IF
4. изменить состояние bSwitchingNow1 := TP1.out, по которому заблокируется потом переключение других агрегатов
5. обновить bStartPrevious1 := bStart1

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

У меня код на FBD и не отлажен, для другой среды разработки - показывать нечего.

Мне кажется так нужно

**Валенок** · Сегодня, 13:01

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

.. для проверки следующего условия:
Если таймер переменной подошел к запуску то проверить, что другие(другая) перменные уже работают более 3 секунд или до их остановки более 3 секунд, то запуститься сразу иначе отложить запуск переменой на 5 секунд..

Это через анус сказано что пауза между переключениями вентов должна быть не менее чем что-то?

**EFrol** · Сегодня, 15:07

Можно и подтолнуть:

Код:

Pause : BOOL;
TMR1, TMR2, TMR3 : TON;
TMR_Pause : TOF;

// Отсчёт времени работы или простоя
TMR1(IN := TRUE, PT := SEL(vent1, Pause_Time1, Run_Time1));
TMR2(IN := TRUE, PT := SEL(vent2, Pause_Time1, Run_Time1));
TMR3(IN := TRUE, PT := SEL(vent3, Pause_Time1, Run_Time1));

TMR_Pause(IN := Pause, PT := T#5s);		// Таймер паузы - перезапустится, если нужна пауза
Pause := FALSE;

IF NOT TMR_Pause.Q THEN 	// Пауза выдержана
	IF TMR1.Q AND NOT vent1 THEN		// Пришло время включить vent1
		IF vent2 THEN		// vent2 - работает
			Pause := Pause OR (TMR2.ET < T#3s OR TMR2.PT - TMR2.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		IF vent3 THEN		// vent3 - работает
			Pause := Pause OR (TMR3.ET < T#3s OR TMR3.PT - TMR3.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		vent1 := NOT Pause; IF vent1 THEN TMR1(IN := FALSE); END_IF// Запуск vent1 и сброс таймера
	END_IF

	IF TMR2.Q AND NOT vent2 THEN		// Пришло время включить vent2
		IF vent1 THEN		// vent2 - работает
			Pause := Pause OR (TMR1.ET < T#3s OR TMR1.PT - TMR1.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		IF vent3 THEN		// vent3 - работает
			Pause := Pause OR (TMR3.ET < T#3s OR TMR3.PT - TMR3.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		vent2 := NOT Pause; IF vent2 THEN TMR2(IN := FALSE); END_IF	// Запуск vent2 и сброс таймера
	END_IF

	IF TMR3.Q AND NOT vent3 THEN		// Пришло время включить vent3
		IF vent1 THEN		// vent1 - работает
			Pause := Pause OR (TMR1.ET < T#3s OR TMR1.PT - TMR1.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		IF vent2 THEN		// vent2 - работает
			Pause := Pause OR (TMR2.ET < T#3s OR TMR2.PT - TMR2.ET < T#3s);	// если работает меньше 3s или должен скоро остановиться - нужна пауза
		END_IF
		vent3 := NOT Pause; IF vent3 THEN TMR3(IN := FALSE); END_IF	// Запуск vent3 и сброс таймера
	END_IF

END_IF

IF TMR1.Q AND vent1 THEN	// Пришло время выключить vent1
	vent1 := FALSE; TMR1(IN := FALSE);	// Стоп vent1 и сброс таймера
END_IF
IF TMR2.Q AND vent2 THEN	// Пришло время выключить vent2
	vent2 := FALSE; TMR2(IN := FALSE);	// Стоп vent2 и сброс таймера
END_IF
IF TMR3.Q AND vent3 THEN	// Пришло время выключить vent3
	vent3 := FALSE; TMR3(IN := FALSE);	// Стоп vent3 и сброс таймера
END_IF

**FPavel** · Сегодня, 16:28

У меня для 5 агрегатов в Owen Logic так получилось
В OwenLogic нет возможности передать время, поэтому в ФБ передаётся целое число с последующим преобразованием в тип time, из-за выбора единиц измерения входной переменной в секундах, домножаю на 1000.
bEnable - это для назначения всех выходов в выключенное состояние - например, при аварийном останове или на период инициализации после подачи питания.

Код:

FUNCTION_BLOCK NotAllAtOnce5_

    VAR_INPUT
        bEnable: BOOL;
        bRequest1: BOOL;
        bRequest2: BOOL;
        bRequest3: BOOL;
        bRequest4: BOOL;
        bRequest5: BOOL;
        nDelay_s: UDINT;
    END_VAR

    VAR_OUTPUT
        bStart1: BOOL;
        bStart2: BOOL;
        bStart3: BOOL;
        bStart4: BOOL;
        bStart5: BOOL;
    END_VAR

    VAR
        tDelay: TIME;

        bStartPrevious1: BOOL;
        bStartPrevious2: BOOL;
        bStartPrevious3: BOOL;
        bStartPrevious4: BOOL;
        bStartPrevious5: BOOL;

        tpPause: SYS.TP;

        bSwitchEn: BOOL; // разрешение изменить состояние

    END_VAR

    // преобразование типа и пересчёт значения в [с]
    tDelay := UDINT_TO_TIME(nDelay_s * 1000);
    // ограничение минимального значения
    IF tDelay < T#1s THEN
        tDelay := T#1s;
    END_IF
    // присвоение таймеру для уменьшения параметров в следующих вызовах
    tpPause(T := tDelay);

    IF bEnable THEN
        // обработка для агрегата 1
        bSwitchEn := NOT(tpPause.Q) AND (bRequest1 <> bStart1);
        IF bSwitchEn THEN
            bStart1 := bRequest1;
        END_IF
        tpPause(I := bSwitchEn); // обновление значения выхода таймера для следующего обработчика

        // обработка для агрегата 2
        bSwitchEn := NOT(tpPause.Q) AND (bRequest2 <> bStart2);
        IF bSwitchEn THEN
            bStart2 := bRequest2;
        END_IF
        tpPause(I := bSwitchEn); // обновление значения выхода таймера для следующего обработчика

        // обработка для агрегата 3
        bSwitchEn := NOT(tpPause.Q) AND (bRequest3 <> bStart3);
        IF bSwitchEn THEN
            bStart3 := bRequest3;
        END_IF
        tpPause(I := bSwitchEn); // обновление значения выхода таймера для следующего обработчика

        // обработка для агрегата 4
        bSwitchEn := NOT(tpPause.Q) AND (bRequest4 <> bStart4);
        IF bSwitchEn THEN
            bStart4 := bRequest4;
        END_IF
        tpPause(I := bSwitchEn); // обновление значения выхода таймера для следующего обработчика

        // обработка для агрегата 5
        bSwitchEn := NOT(tpPause.Q) AND (bRequest5 <> bStart5);
        IF bSwitchEn THEN
            bStart5 := bRequest5;
        END_IF
        tpPause(I := bSwitchEn); // обновление значения выхода таймера для следующего обработчика
    ELSE
        // отсчёт от момента выключения, для паузы при быстром переключении bEnable
        tpPause(I := bStart1 OR bStart2 OR bStart3 OR bStart4 OR bStart5);
        // выключить все агрегаты
        bStart1 := FALSE;
        bStart2 := FALSE;
        bStart3 := FALSE;
        bStart4 := FALSE;
        bStart5 := FALSE;
    END_IF
    bStartPrevious1 := bStart1;
    bStartPrevious2 := bStart2;
    bStartPrevious3 := bStart3;
    bStartPrevious4 := bStart4;
    bStartPrevious5 := bStart5;
END_FUNCTION_BLOCK

Тема: Таймеры, переменные и условия

Опции темы

Отображение

Таймеры, переменные и условия

Похожие темы

Таймеры TON TOF в ST

Таймеры

Таймеры

Таймеры

Условия в цикле

Ваши права