Функциональные блоки на языке ST

[EFrol]

Как-то так, вероятно:
Owen.jpg
задержка на 10 сек.

function_block Delay
    
    var_input
        in : bool;                          // Входной сигнал
        t : udint;                          // Сдвиг сигнала
    end_var
    
    var_output 
        Q : bool;                           // Выходной сигнал
    end_var
    
    var 
        dTS : array [0..100] of udint;      // Время фиксации состояния сигнала
        dS : array [0..100] of bool;        // Состояние сигнала
        nState, i : udint;                  // Номер последнего зафисированного состояния и итератор
        rtStart : SYS.RTRIG;                // Триггер начала записи
    end_var
    
    rtStart(I:=true);                       // Фиксируем начальное состояние
    if rtStart.Q then
        nState := 0; dTS[0] := time_to_udint(get_time()); dS[0] := in;
    end_if
    
    if in <> dS[nState] then                // При каждом изменении входного сигнала
        nState := nState + 1;               // Фиксируем новое состояние
        // Ограничим число фиксируемых состояний на всякий случай
        // если частота смены будет больше запланированной
        if nState > 100 then nState := 100; end_if
        dTS[nState] := time_to_udint(get_time());   // Метка времени
        dS[nState] := in;                           // Состояние
    end_if
    
    // Через время t выдаем следующее состояние на выход и смещаем массив
    if time_to_udint(get_time()) - dTS[0] >= t then
        Q := dS[0];
        if nState > 0 then  // Подготовим следующий переход, если есть
            nState := nState - 1;
            for i := 0 to nState do
                dTS[i] := dTS[i+1]; dS[i] := dS[i+1];
            end_for
        end_if
    end_if

end_function_block

[Dimensy]

Мой вариант

[Андрей Владимиров сын]

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

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

[Андрей Владимиров сын]

Мой вариант

на вход I2 сигнал подаётся от датчика, верно?
Датчик через 300мс отключается и БЛИНК с ним тоже и далее ничего не происходит.

[Андрей Владимиров сын]

Вот что у меня получилось из "стандартных кубиков".
совсем не универсальное и не изящное решение.

[kondor3000]

Вот что у меня получилось из "стандартных кубиков".
совсем не универсальное и не изящное решение.

Это вообще полная лажа, выше EFrol выложил рабочий блок запоминает 50 импульсов любой длительности и задержка работает.

[Валенок]

Массив булей не нужен. Только время

[EFrol]

Немного скорректировал код. Он просто запоминает время смены состояния и само состояние. А через заданное время его подает на выход.
Если частота смены не превышает 100 за 10 сек. конечно.
Массив булей - на случай если число смен превысит 100 и будет нечётным.

[Dimensy]

на вход I2 сигнал подаётся от датчика, верно?
Датчик через 300мс отключается и БЛИНК с ним тоже и далее ничего не происходит.

Блинк просто имитирует серию импульсов от датчика

[Валенок]

Он просто запоминает время смены.

Да

и само состояние.

Нет

Если частота смены не превышает 100

Я бы сказал - если период за выполнение 100 п.фронтов больше чем та самая задержка
Но это проблемы автора. Как и меж-импульс входа меньший чем время для выхода.

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

То что полный повтор не нужен - и слава богу. Может сохранить 2x п.фронтов

Массив булей...

Говорю же не нужен))

.. если число смен превысит 100 и будет нечётным.

Про смены - выше, нечетность - все равно если циклически. 1й индекс по кругу. 2й за ним с задержкой.