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

Цитата:

---

Сообщение от shev1975

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

---

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

Код:

---

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

---

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

Цитата:

---

Сообщение от Dimensy

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

---

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

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

Цитата:

---

Сообщение от bayk

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

---

Ну как же так?
https://owen.ru/forum/showthread.php?t=37203
Вложение 84488

Код:

---

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

---

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

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

Цитата:

---

Сообщение от AlexCrane

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

---

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

Цитата:

---

Сообщение от AlexCrane

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

---

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

Вложение 84503

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

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

Цитата:

---

Сообщение от Сергей0308

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

Вложение 84503

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

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

---

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

Цитата:

---

Сообщение от AlexCrane

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

---

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