Запись переменной

[Dimensy]

Жалко только, что при отключении питания ничего не сохраняется.

Да, мой косяк.
Исправил

FUNCTION_BLOCK RunTime_Counter      //имя функционального блока
    VAR_INPUT                       //объявление входных переменных
        Run : BOOL;                 //разрешение работы
        Set : BOOL;                 //запись уставок времени
        Res : BOOL;                 //сброс счетчиов
        SetHour, SetMin, SetSec, SetOn: UDINT;     //входы уставок
        Work_ : udint;      //Вход для энергонезависимоцй переменной наработки
        cOn_ : udint; //Вход для энергонезависимой перееменной количество включений
    END_VAR   
    VAR_OUTPUT                      //объявление выходных переменных
        Work, cOn : UDINT;  //выходы для энергонезависимых переменных
        sHour, sMin, sSec, sOn: UDINT;     //выходы времени и количества включений
    END_VAR   
    VAR                             //объявление локальных переменных
        T, T1: UDINT;
        RunTrig : SYS.RTRIG;
        init : BOOL:=true; 
    END_VAR
    
    T:= TIME_TO_UDINT(GET_TIME());
    
    if Init then //Инициализация при первом включении
        Work := Work_;
        cOn := cOn_;
        SetHour := Work / 3600;
        SetMin := (Work / 60) mod 60;
        SetSec := Work mod 60;
        SetOn:=cOn;
        T1 := T;
        Init := false;
    end_if
    
    RunTrig(I := Run);    
    if Run then
        if T-T1 >= 1000 then 
            Work := Work_ + 1;
            T1 := T;
        end_if
        cOn := cOn_ + bool_to_udint(RunTrig.Q);
        sHour := Work / 3600;
        sMin := (Work / 60) mod 60;
        sSec := Work mod 60;
        sOn:=cOn; 
    else
        T1 := T;
        sHour := SetHour;
        sMin := SetMin;
        sSec := SetSec;
        sOn := SetOn;
        if Set then
            Work := sHour * 3600 + sMin * 60 + sSec;
            cOn := sOn;
        end_if
        if Res then
            sHour := 0;
            sMin := 0;
            sSec := 0;
            sOn := 0;
            Work := 0;
            cOn := 0;
        end_if
    end_if
     
END_FUNCTION_BLOCK

[Dimensy]

А можно и в квадратиках

[pahotnyh]

Ну вот. Не успел. А так сам хотел. За меня все сделали)

[pahotnyh]

А можно и в квадратиках

А генератор на блинк на сколько точен?
И что как лучше: ФБ на ST или макрос на ФБ с точки зрения оптимизации работы и памяти?

[Dimensy]

А генератор на блинк на сколько точен?

В среднем, время цикла

И что как лучше: ФБ на ST или макрос на ФБ с точки зрения оптимизации работы и памяти?

Никогда не задумывался об этом - памяти хватает, быстродействия для моих задач тоже. Для меня главное, какой язык удобнее для решения конкретной задачи

[kondor3000]

А генератор на блинк на сколько точен?
И что как лучше: ФБ на ST или макрос на ФБ с точки зрения оптимизации работы и памяти?

На блинк, будет время уходить, на ПР вообще не точные часы, а с блинком ещё хуже.

Как по мне, то работать со временем, с расчётами на ST намного лучше. Большой минус пока один, нельзя использовать энергонезависимые прямо в ФБ.
Надеюсь допилят.
По памяти, даже сравнивая последние 2 проекта, разница в 1% ПЗУ, на ST больше, как раз из-за вывода переменных за пределы ФБ.

[Dimensy]

На блинк, будет время уходить, на ПР вообще не точные часы, а с блинком ещё хуже..

Если блинк правильно приготовить, то с чего это времени уплывать?
Если кому не лень, можно устроить батл
Безымянный.png

[pahotnyh]

Если блинк правильно приготовить, то с чего это времени уплывать?
Если кому не лень, можно устроить батл
Безымянный.png

Ну это на железе надо проверять. У меня его нет..

[pahotnyh]

И еще раз к вопросу целесообразности ротации оборудования по м/ч (заехал на вахту и могу поделиться живыми данными).
ДГУ работают периодически для заряда АКБ на установленных вдоль трубопровода блоках местной и дистанционной автоматики. В 9 из 10 блок-боксах на ДГУ я реализовал алгоритм ротации по м/ч. На 10-й, производства Элеси, простая поочередная ротация от Zelio. Количество активных ДГУ разное. Дельта - 24 м/ч.

1	2	3	4	5	6	7	8	9	ЭЛЕСИ
1797	1310	2240	2809	1313	1601	1927	1489	2871	1773
1785	1304	2236	2814	1302	1608	1924	1489	2861	2618
						1921			1528

Именно возможность менять наработку и количество пусков (а так же выработку ЭЭ и т.д.) позволило перенести данные при замене контроллеров. Картина маслом..
P.S. В ситуации как у 8 агрегаты имеют приоритеты пуска.

[pahotnyh]

Да, мой косяк.
Исправил

FUNCTION_BLOCK RunTime_Counter      //имя функционального блока
    VAR_INPUT                       //объявление входных переменных
        Run : BOOL;                 //разрешение работы
        Set : BOOL;                 //запись уставок времени
        Res : BOOL;                 //сброс счетчиов
        SetHour, SetMin, SetSec, SetOn: UDINT;     //входы уставок
        Work_ : udint;      //Вход для энергонезависимоцй переменной наработки
        cOn_ : udint; //Вход для энергонезависимой перееменной количество включений
    END_VAR   
    VAR_OUTPUT                      //объявление выходных переменных
        Work, cOn : UDINT;  //выходы для энергонезависимых переменных
        sHour, sMin, sSec, sOn: UDINT;     //выходы времени и количества включений
    END_VAR   
    VAR                             //объявление локальных переменных
        T, T1: UDINT;
        RunTrig : SYS.RTRIG;
        init : BOOL:=true; 
    END_VAR
    
    T:= TIME_TO_UDINT(GET_TIME());
    
    if Init then //Инициализация при первом включении
        Work := Work_;
        cOn := cOn_;
        SetHour := Work / 3600;
        SetMin := (Work / 60) mod 60;
        SetSec := Work mod 60;
        SetOn:=cOn;
        T1 := T;
        Init := false;
    end_if
    
    RunTrig(I := Run);    
    if Run then
        if T-T1 >= 1000 then 
            Work := Work_ + 1;
            T1 := T;
        end_if
        cOn := cOn_ + bool_to_udint(RunTrig.Q);
        sHour := Work / 3600;
        sMin := (Work / 60) mod 60;
        sSec := Work mod 60;
        sOn:=cOn; 
    else
        T1 := T;
        sHour := SetHour;
        sMin := SetMin;
        sSec := SetSec;
        sOn := SetOn;
        if Set then
            Work := sHour * 3600 + sMin * 60 + sSec;
            cOn := sOn;
        end_if
        if Res then
            sHour := 0;
            sMin := 0;
            sSec := 0;
            sOn := 0;
            Work := 0;
            cOn := 0;
        end_if
    end_if
     
END_FUNCTION_BLOCK

1. Не подтягивает переменную Час, выставленную по умолчанию, соответственно, тоже самое произойдет с записанной в память наработкой.
2. SetOn, cOn дублируют друг друга. Достаточно как и со временем одной петли переменных.