пр 103 суммировать время между событиями

[kapithan]

Помогите пожалуйста реализовать два похожих сценария:

1. на вход AI1 приходит дискретный сигнал. Через некоторое время t1, выставляемое в программе, например 2 секунды происходит какое то событие, например активируется триггер1 для дальнейшей логики, или Q1. C этим все понятно, есть блок с задержкой. Через некоторое время t2, которое задается внешним реле времени, после AI1, приходит сигнал на AI2. Нужно активировать событие, например триггер2 или Q2 через время равное t1 + t2. Как посчитать разницу во времени между событиями и сделать такую задержку, фикс t1 + посчитанное t2?
2. похожая ситуация. на вход AI1 приходит дискретный сигнал. Одновременно с этим (ну почти одновременно, может быть не в этом цикле, т.к. сигнал от другого реле, время срабатывания контактов может быть разным) приходит сигнал на AI2 длительностью t2 и пропадает потом. Нужно после первого сигнала с фиксированной задержкой t1 активировать триггер, а c задержкой t3 = t1 + t2 активировать другое событие, триггер2 например.

разница в сценариях в том, что в первом случае длительность задержки определяется фикс + задержка от реле времени, а во втором фикс + длительность самого сигнала.
Все сигналы дискретные, AI только потому что DI и FDI уже заняты другой логикой, уточнил тип входа на всякий случай если это важно.

[Dimensy]

Вот здесь измеряли время между двумя событиями
https://owen.ru/forum/showthread.php?t=41573

[EFrol]

Так что-ли?

function_block Fun
    
    var_input
        ai1, ai2 : bool;
        t1 : udint;
    end_var
    
    var_output 
        Q1, Q2 : bool;
    end_var
    
    var 
        event1, event2 : bool;
        ts1, ts2 : udint;
        rt1, rt2 : SYS.RTRIG;
        tQ1, tQ2 : SYS.TON;
    end_var
    
    rt1(I:=ai1);   // Ловим фронт ai1
    if rt1.Q then
        event1 := true;                     // Фиксируем событие ..                        
        ts1 := time_to_udint(get_time());    // и время ai1
    end_if
    rt2(I:=ai2);    // Ловим фронт ai2
    if rt2.Q then
        event2 := true;                     // Фиксируем событие ..
        ts2 := time_to_udint(get_time());   // и время ai2
    end_if

    if tQ2.Q then   // После выдачи сигнала Q2 все сбрасываем и начинаем сначала
        event1 := false; event2 := false;
    end_if

    tQ1(I:=event1, T := udint_to_time(t1), Q=>Q1);
    tQ2(I:=event2, T := udint_to_time(t1 + ts2 - ts1), Q=>Q2);
    
end_function_block

function_block Fun2
    
    var_input
        ai1, ai2 : bool;
        t1 : udint;
    end_var
    
    var_output 
        Q1, Q2 : bool;
    end_var
    
    var 
        event1, event2 : bool;
        ts1, ts2 : udint;
        rt1, rt2 : SYS.RTRIG;
        ft2 : SYS.FTRIG;
        tQ1, tQ2 : SYS.TON;
    end_var
    
    rt1(I:=ai1);   // Ловим фронт ai1
    if rt1.Q then
        event1 := true;                     // Фиксируем событие ..                        
    end_if
    rt2(I:=ai2); ft2(I:=ai2);   // Ловим фронт и спад ai2
    if rt2.Q then
        ts1 := time_to_udint(get_time());   // Фиксируем время прихода фронта ai2
    end_if
    if ft2.Q then
        event2 := true;                     // Фиксируем событие ..
        ts2 := time_to_udint(get_time());   // и время прихода спада ai2
    end_if

    if tQ2.Q then   // После выдачи сигнала Q2 все сбрасываем и начинаем сначала
        event1 := false; event2 := false;
    end_if

    tQ1(I:=event1, T := udint_to_time(t1), Q=>Q1);
    tQ2(I:=event2, T := udint_to_time(t1 + ts2 - ts1), Q=>Q2);
    
end_function_block