Создать функцию на ST

[EFrol]

Здравствуйте, в функциональном блоке нужно изменять значение внешней переменной "Сброс", правильно ли так делать и может есть другие способы? Данный код работает, только при условии что переменная энергонезависимая, иначе ее не получается изменить с "экрана", почему?

Я использую ФБ exchange для обмена битом между переменными:
Owen.jpg

function_block exchange
    
    var_input
        I : bool;
        in : udint;
    end_var
    
    var_output 
        Q : bool;
        out : udint;
    end_var
    
    if I <> Q then
        Q := I; out.0 := I; in.0 := I;
    end_if
    if in <> out then
        out := in; Q := in.0; I := in.0;
    end_if
    
end_function_block

Значение бита видно со всех сторон!

[shev1975]

Галку надо поставить на "Запись в конце цикла"

Спасибо, понял, получается что если не сделать запись, переменная не сохраняется, а получает значение каждый раз заново.

[bayk]

Друзья, вы уж простите дурачка, но с поиском на этом форуме справиться не могу. не делал ли кто функцию на ST для вычисления натурального логарифма, ну может и других логарифмов?

[petera]

Друзья, вы уж простите дурачка, но с поиском на этом форуме справиться не могу. не делал ли кто функцию на ST для вычисления натурального логарифма, ну может и других логарифмов?

Ну как же так?
https://owen.ru/forum/showthread.php?t=37203
Захват-11.png

function fLb: Real; //Двоичный логарифм
    var_input 
        X:real;
    end_var
    var
        s:real:=0.0;
        a:real:=0.5;
        i:udint;
        b:real;


    end_var

//PRG

if X>0 then
    if X>=1 then
        b:=1;
        X:=X;
    else
        b:=-1;
        X:=1/X;
    end_if


    if x>2 then
        s:=udint_to_real( cd32(real_to_udint(x)));
        X:=X/ pow(2,s);
    end_if;

    for i:=0 to 16 do
        x:=x*x;
        if x>2 then
            x:=x/2;
            s:=s+a;
        end_if;
        a:=a*0.5;
    end_for
    fLb:=s*b;
end_if

end_function

ЗЫ
напомню:если lb(x) - Двоичный логарифм, то
ln(x)=lb(x)/lb(e)=ln(2)*lb(x) = 0,693147*lb(x)
lg(x)=lb(x)/lb(10)=lg(2)*lb(x) = 0,30103*lb(x)

Например

function fLn: Real; //Натуральный логарифм
    var_input 
        X:real;
    end_var

//PRG
fLn:=0.6931472*fLb(x); //вызов функции "fLb"
end_function

[bayk]

спасибо тебе большое! я не знаю как я так...

[AlexCrane]

Может кто делал разруливатель одновременного запуска на ST? Не хочется изобретать велосипед. Макросы видел, но не устроили (не корректно работали).

[WKD]

Может кто делал разруливатель одновременного запуска на ST? Не хочется изобретать велосипед. Макросы видел, но не устроили (не корректно работали).

Что понимается под "разруливатель одновременного запуска"?

[Сергей0308]

Может кто делал разруливатель одновременного запуска на ST? Не хочется изобретать велосипед. Макросы видел, но не устроили (не корректно работали).

Вот здесь разруливали, правда не на ST, в смысле, тогда и ST наверно ещё не было, короче, Вам шашечки или ехать:
https://owen.ru/forum/showthread.php...l=1#post432040

Разруливание одновременного запуска_5.jpg

Настройка минимального периода(как обычно) в свойствах макроса.

И, можно очень легко(практически без усложнения алгоритма) расширить до 32 входов-выходов, в смысле, устройств, которые надо разруливать!

[AlexCrane]

Вот здесь разруливали, правда не на ST, в смысле, тогда и ST наверно ещё не было, короче, Вам шашечки или ехать:
https://owen.ru/forum/showthread.php...l=1#post432040

Разруливание одновременного запуска_5.jpg

Настройка минимального периода(как обычно) в свойствах макроса.

И, можно очень легко(практически без усложнения алгоритма) расширить до 32 входов-выходов, в смысле, устройств, которые надо разруливать!

Спасибо, эту версию как-то пропустил

[Сергей0308]

Спасибо, эту версию как-то пропустил

При применении будьте внимательны к настройкам макросов, в смысле, многие(большинство) не обращают на это внимание, поэтому возникают проблемы!