Функциональные блоки на языке ST

[melky]

на 0 не ругается?

[kondor3000]

Добрый день.
Цикл FOR ругается на отрицательное значение в итераторе в строке (конкретно на "BY -1"):
FOR udiI := 10 TO 1 BY -1 DO
Как сделать цикл от большего к меньшему?

Например так, при N=10 и i=0, цикл будет начинаться с N-i =10

        for i := 0 to N-1 do
         if i< N-1 then
            x[N-i]:=SelI(rtr1.Q, x_[N-i], x[N-1-i]); 
           else
            x[N-i]:=SelI(rtr1.Q, x_[N-i], Sum );    
         end_if                         
        end_for

[EFrol]

Добрый день.
Цикл FOR ругается на отрицательное значение в итераторе в строке (конкретно на "BY -1"):
FOR udiI := 10 TO 1 BY -1 DO
Как сделать цикл от большего к меньшему?

Вариант:

    var 
        vFor, v : udint;
    end_var

    for vFor := 1  to 10 do
        v := 11 - vFor;      
    end_for

[Мамонов Михаил]

Неа, на ноль не ругается правда что при этом делает - не проверял

for vFor := 1 to 10 do
v := 11 - vFor;
end_for

Это то понятно, но как-то костыльно... тем более что по стандарту языка ST BY может быть отрицательным. Просто как всегда не доделано

[melky]

у Лоджика нет понятия отрицательного числа для целочесленных, может по этому?

[Мамонов Михаил]

А, логично, да. Ведь в BY можно и переменную подставить, не только константу. Ну значит считаем, что такая особенность в лоджике

[Cs-Cs]

Можно ещё дуркануть через WHILE, но он опасен: его можно легко загнать в бесконечный цикл.

udiI := 10;

WHILE (udiI > 0) DO
    ***
    ***   
    udiI := udiI -1;
END_WHILE

[Dimensy]

Эээ, нет, угадаю не с 5 а с 4 нот)))]

По строкам не считал, но количество операций, вроде, меньше

function_block TOnP // Таймер TON с паузой
    
    var_input 
       In,P : bool;      
       PT : udint; // Задача времени таймера  udint, мс
    end_var
    var_output 
       Q : bool; //
       ET: udint;  // Выход  времени таймера  udint, мс
    end_var
    var 
       clk : bool; 
       tmStart, tmNow :udint;
    end_var  
            
      tmNow := time_to_udint(get_time());      
      if P then tmStart := tmNow - ET; end_if 
      if In and not clk then tmStart := tmNow; end_if 
      clk := In;
      ET := (tmNow - tmStart) * bool_to_udint(In);
      if ET >= PT then ET := PT; end_if          
      Q := In and (ET = PT);
      
end_function_block

[kondor3000]

По строкам не считал, но количество операций, вроде, меньше

Скрытый текст:

function_block TOnP // Таймер TON с паузой
    
    var_input 
       In,P : bool;      
       PT : udint; // Задача времени таймера  udint, мс
    end_var
    var_output 
       Q : bool; //
       ET: udint;  // Выход  времени таймера  udint, мс
    end_var
    var 
       clk : bool; 
       tmStart, tmNow :udint;
    end_var  
            
      tmNow := time_to_udint(get_time());      
      if P then tmStart := tmNow - ET; end_if 
      if In and not clk then tmStart := tmNow; end_if 
      clk := In;
      ET := (tmNow - tmStart) * bool_to_udint(In);
      if ET >= PT then ET := PT; end_if          
      Q := In and (ET = PT);
      
end_function_block

Будем солить, вариантов как огурцов уже))))

[kondor3000]

Пытаясь сделать ввод в массив на 40 начальных значений, столкнулся с проблемой, вывод на экран 40 дисплеев для ввода, 1 Скрин записи массива.jpg
происходит переполнение визуализации на 136 %.
Соответственно, надо придумать автоматизацию для ввода.
Пробовал на циклах и обычную запись. Оказалось лучше и проще, обычная последовательная запись.
Получилось так.
После первого ввода, сохранения и пока идёт запись, горит синий индикатор. После ввода РТ, выбрать Запись и нажать Ок,
после записи, автоматически поменяется номер строки массива, для последующего ввода и сохранения.
Двумя ФБ, можно записать параллельно и 2 массива, используя всего 6 дисплеев и 1 экран. 1 Скрин записи массива_2.jpg
Проверил, всё работает, но пример загромождать не стал. Версия Owen Logic3.0.372,
онлайн отладка массивов в версии Owen Logic3.0.373