Универсальные макросы для OWEN Logic

[EFrol]

Схема освещ.jpg


Вот схема подключения.

Попробуйте так и первое включение сделайте через кнопку ПР, а все остальные через "Выключатель".
TMRSet - сделайте энергонезависимой, ФБ должен запоминать время удержания кнопки BTN и повторить на выходе при сбросе питания на ПР.
Owen.jpg

function_block TMRPush

    var_input
       BTN : bool;
       RPT : bool;
       TMRSet : udint;
    end_var

    var_output
       TMRValue : udint;
       Q : bool;
    end_var

    var
        RT : SYS.RTRIG;
        FT : SYS.FTRIG;
        TS : time;
        TMRRPT : SYS.TP;
    end_var

    TMRValue := TMRSet;

    RT(I:=BTN); if RT.Q then TS := get_time(); end_if
    FT(I:=BTN); if FT.Q then TMRValue := time_to_udint(get_time() - TS); end_if
    TMRRPT(I:=RPT, T:= udint_to_time(TMRValue));
    Q := BTN or TMRRPT.Q;

end_function_block

[SeraX]

Попробуйте так и первое включение сделайте через кнопку ПР, а все остальные через "Выключатель".
TMRSet - сделайте энергонезависимой, ФБ должен запоминать время удержания кнопки BTN и повторить на выходе при сбросе питания на ПР.
Owen.jpg

function_block TMRPush

    var_input
       BTN : bool;
       RPT : bool;
       TMRSet : udint;
    end_var

    var_output
       TMRValue : udint;
       Q : bool;
    end_var

    var
        RT : SYS.RTRIG;
        FT : SYS.FTRIG;
        TS : time;
        TMRRPT : SYS.TP;
    end_var

    TMRValue := TMRSet;

    RT(I:=BTN); if RT.Q then TS := get_time(); end_if
    FT(I:=BTN); if FT.Q then TMRValue := time_to_udint(get_time() - TS); end_if
    TMRRPT(I:=RPT, T:= udint_to_time(TMRValue));
    Q := BTN or TMRRPT.Q;

end_function_block

СПАСИБО ОГРОМНЕЙШЕЕ!!! То, что надо!

[Сергей0308]

СПАСИБО ОГРОМНЕЙШЕЕ!!! То, что надо!

А как у вас яркость уменьшается, в смысле, насколько понял, при длительном нажатии яркость увеличивается до максимума затем уменьшается до минимума и так циклически, пока кнопка нажата или для изменения направления(с увеличения яркости на уменьшение и обратно) надо кнопку передёрнуть?

[SeraX]

А как у вас яркость уменьшается, в смысле, насколько понял, при длительном нажатии яркость увеличивается до максимума затем уменьшается до минимума и так циклически, пока кнопка нажата или для изменения направления(с увеличения яркости на уменьшение и обратно) надо кнопку передёрнуть?

Нет, при нажатии более ~1 сек., увеличивается/уменьшается, пока держишь. Увеличение/уменьшение происходит не до макс/мин, а на столько, сколько держишь. От макс до мин 2500 мс. Уменьш/увел НЕ циклическое, а от упора до упора.

[EFrol]

Нет, при нажатии более ~1 сек., увеличивается/уменьшается, пока держишь. Увеличение/уменьшение происходит не до макс/мин, а на столько, сколько держишь. От макс до мин 2500 мс. Уменьш/увел НЕ циклическое, а от упора до упора.

Т.е. вот так тоже было бы нормально?
Owen.jpg

[Сергей0308]

Т.е. вот так тоже было бы нормально?
Owen.jpg

Так ему же надо не на максимальную яркости включать, а на заданную, в смысле что была в момент выключения питания!
И, как я понимаю у кнопки(управляющего входа драйвера) несколько функций, в смысле, короткое нажатие, включает-выключает свет(работает как Т-триггер), а длинное нажатие увеличивает-уменьшает яркость, пока кнопка нажата, короче, я до конца ещё не разобрался как это всё работает, но и того что понял достаточно, чтобы понять, что будет очень проблематично сделать управление по времени нажатия на кнопку!
Я уже писал, как я бы сделал!

[SeraX]

...все-таки не получилось с функц блоком(((...А можно ссылку на делитель напряжения?