Проблема с написанием программы

[wkdx00]

Здравствуйте. ПР200, датчик температуры и ПЧ. Частоту двигателя задаю по modbus, пуск/авария на дискретные входа. Необходимо по команде запускать ПЧ на 10Гц на 60 сек, после включать трехпозиционное регулирование (опрос датчика температуры раз в 30 сек). На ФБ не смог реализовать логику, на ST не могу грамотно реализовать задержки в цикле. Может кто-то подобное уже делал?

[CleanS]

А в чём проблема с ФБ?
Там есть блок SEL. Как мне кажется с его помощью достаточно не сложно реализовать. Как вариант.
Да, и для оценки уже выполненной работы и поиска затыка, проект бы посмотреть ...

[wkdx00]

Не пойму как мне поможет SEL. Застопорился, пока выглядит так.

[kondor3000]

Здравствуйте. ПР200, датчик температуры и ПЧ. Частоту двигателя задаю по modbus, пуск/авария на дискретные входа. Необходимо по команде запускать ПЧ на 10Гц на 60 сек, после включать трехпозиционное регулирование (опрос датчика температуры раз в 30 сек). На ФБ не смог реализовать логику, на ST не могу грамотно реализовать задержки в цикле. Может кто-то подобное уже делал?

Разбейте задачу на части, переключить частоту после отработки времени, можно через SEL.
Время можно отсчитать таймером и на ST. После включить 3-х поз. регулирование. Отдельный блок есть вроде в Менеджере в макросах.
Задержки также реализовать можно таймером на время, линией задержки или триггером на 1 цикл.

[EFrol]

Не пойму как мне поможет SEL. Застопорился, пока выглядит так.

    var 
        hz : udint := 10;
        tStart, tRegul : SYS.TON;
    end_var
    
IF inputWork = TRUE THEN //Если прошла команда Пуск, если нет - ждем
    outHZ := hz;  //Задача начальной частоты
    //Тут должна стоять задержка inputTimeStart
    tStart(I:=true, T := udint_to_time(inputTimeStart)); // Держим таймер включеным
    If tStart.Q THEN // Есть задержка, иначе - ждем
        IF inputRealT > 0 THEN //Проверка температуры, если замерзли - стоим, грустим, даем аварию
            //Тут должна стоять задержка опроса inputTimeRegulation
            tRegul(I := true, T := udint_to_time(inputTimeRegulation)); // Держим включеным
            IF tRegul.Q THEN // Есть задержка, иначе - ждем
                tRegul(I := false); // Выключаем таймер
                IF inputRealT > (inputAimT + inputDeadBand) THEN
                    hz := hz + 1;
                ELSIF inputRealT < (inputAimT - inputDeadBand) THEN
                    hz := hz - 1;
                ELSE //Мы молодццы, держим частоту
                END_IF
            END_IF                                                 
        ELSE outAlarm := TRUE;
             hz :=0; tRegul(I := false);
        END_IF               
    END_IF    
ELSE outHZ := 0;
    tStart(I := false); tRegul(I := false); // Пуск не активен - стоп все таймеры
END_IF

[WKD]

...
                IF inputRealT > (inputAimT + inputDeadBand) AND hz<50 THEN
                    hz := hz + 1;
                ELSIF inputRealT < (inputAimT - inputDeadBand) AND hz>0 THEN
                    hz := hz - 1;
...

Огромное спасибо за помощь с таймерами в OL, сам я их еще не переварил. Пробовал на FB с SEL реализовать - еще раз убедился, что ST выигрывает. Добавил ограничения по диапазону частоты ПЧ, буду смотреть работу на железе. В эмуляторе задержки как будь-то спешат...