Вид для печати
Да, там ошибка в справке.Цитата:
Сообщение от capzap
попробуйте такую функцию на холст кинуть. Будет ошибка "программа зашла в бесконечный цикл"
Я Вас использовать exit таким образом не агитирую. Обходитесь без него - прекрасно. Зачем и в каких случаях я им пользуюсь написал, так как были заданы такие вопросыКод:function function1: bool;
var_input
inputVariable : bool;
end_var
repeat
until false
end_repeat
function1 := true;
end_function
У Вас case 2: никогда не выполняется.Цитата:
Сообщение от capzap
Это так же видно по тому что блок на выходе всегда дает 1. Если бы цикл выполнился дважды, было бы 2
В остальном я сейчас так же делаю, поскольку exit не работает.Код:repeat
count := count + 1;
case count of
2:
exit;
1:
foo := true; // в первый проход цикла попадаем сюда
else
end_case;
until foo // условие выполнилось, выходим из цикла
exit не работает, по крайней мере после выполнения кода ниже count = 2. Правда с поддержки написали что вроде бы починили в последней версии.
Код:repeat
count := count + 1;
case count of
2:
count := 100;
foo := true;
exit;
1:
foo := false;
else
end_case;
until foo
end_repeat
попробуйте перед exit присвоение сделать, как нижеЦитата:
Сообщение от capzap
Блок будет выдавать на выходе 2 вместо 100
Код:repeat
count := count + 1;
case count of
2:
count := 100;
exit;
3:
foo := true;
else
end_case;
until foo
end_repeat
Это пусть разработчики разбираются, с exit, repeat или case у них проблема. Или со всем сразу )Цитата:
Сообщение от capzap
Мне кажется что exit неправильно работает если вызывается внутри case, если его не использовать то отлично все работает
В функции вызывается exit, и она возвращает 2 вместо 105
та же функция, но вызов exit закомментирован. Работает правильно. Возвращает 105Код:repeat
count := count + 1;
case count of
1:
foo := false;
2:
count := 105;
foo := true;
exit;
else
end_case;
until foo
end_repeat
function1 := count;
Код:repeat
count := count + 1;
case count of
1:
foo := false;
2:
count := 105;
foo := true;
//exit;
else
end_case;
until foo
end_repeat
function1 := count;
Если убрать repeat то функция будет выдавать 1, а не 105Цитата:
Сообщение от capzap
Ну так exit не относится к case, чего вы от него хотите? мозги ожидают либо следующего case, если вдруг не совпало предыдущее, а ему НА на выход иди :)
пытаюсь переварить код со своей колокольни, а чего там еще else делает? он от кого там? :)
else в данном примере не нужен, просто у capzap был, я не стал убирать.Цитата:
Сообщение от melky
ограничений на использование exit не накладывается. Главное чтобы внутри цикла был. По крайней мере в в реализации CodeSys работает.
Может есть реализации где во вложенных операторах ветвления нельзя exit вызывать. Но в этом случае компилятор должен ошибку выдать, хотя бы.
Верно. А в кейс 2, где есть присваивание он никогда не попадает, потому что нет repeat.Цитата:
Сообщение от capzap
То есть repeat там не был лишним, если мы по прежнему ожидаем 105 на выходе
Не знаю для чего. Пример то Вы написалиЦитата:
Сообщение от capzap
Добрый день. подскажите как в Функции на ST в Owen Logic работать с датами и временем
В Лоджике нет переменных времени и даты, кроме Unix. Соответственно работать со временем в ST пока невозможно.Цитата:
Сообщение от SiriusMan
Есть макросы для работы со временем, только в целочисленном виде, смотри скрин.
Вы бы лучше написали, что вам надо конкретно. Вложение 63939
Например здесь (6-7 стр.) есть пример автомата состояний на ST, с внешними таймерами https://owen.ru/forum/showthread.php?t=35489&page=6#60
Есть макросы подсчёта времени наработки, недельный таймер включения, выключения по времени и т. д.
Куда же они делись, вроде как давным-давно добавили:Цитата:
Сообщение от kondor3000
Вложение 63942
Имеется ввиду, что в ST Лоджика нет переменных типа Data, Time и DataTimeЦитата:
Сообщение от Сергей0308
Как всё сложно! Так и в макросах их нет, в смысле нельзя добавить, но это ещё никому не помешало использовать макросы для работы со временем, проблема в чём, ввести переменную через вход?Цитата:
Сообщение от Dimensy
Как работать с битами, и другими системами счисления???
Есть какие примеры?
ST для ПРxxx.
А что конкретно интересует?Цитата:
Сообщение от ПавелП
Выделять биты из маски упаковывать в маску, так же через точку как в обычном ST.
b0:=Mask.0;
b1:=Mask.1; и т. д.
AND, OR, NOT работают как обычно тоже.
В этой теме на разных страницах порядка 10 примеров есть.
Тут выкладывал пример автомата состояний на ST https://owen.ru/forum/showthread.php...91&page=64#635
Пример сдвигового регистра https://owen.ru/forum/showthread.php...&page=260#2598
В хелпе про биты ничего нет.Цитата:
Сообщение от kondor3000
Спасибо большое! :)
Примеры толковые.
>> "и другими системами счисления???"
не поддерживаются?
>> В этой теме на разных страницах порядка 10 примеров есть.
В примерах не написано же, что есть сегменты кода на ST. :(
Тема в которой вы пишите, называется "Создать функцию на ST", об этой теме и пишу, что около 10 примеров есть,Цитата:
Сообщение от ПавелП
тут все примеры на разных страницах на языке ST и текстом и некоторые файлами.
Например на 4 и 5 стр., petera выложил первые 2 свои функции, они текстовые, достаточно скопировать текст к себе в проект.
https://owen.ru/forum/showthread.php?t=35489&page=4#38
https://owen.ru/forum/showthread.php?t=35489&page=5#41
Всё верно, я не эту тему имел в виду, а вообще! :)Цитата:
Сообщение от kondor3000
Вот из вашего примера: MM: ARRAY [1..12] OF udint := [5,1,1,4,6,2,4,0,3,5,1,3];
Я могу только облизнуться, у меня ПР200, и там ТАКОГО нет...
Не полная реализация версии ST, только как функция... :(
Мне уже удалось высунуть через узкое место руки - единственную переменную udint 4 байта для обратной связи и управления. :cool:
И разобраться с особенностями такого взаимодействия методом тыка...
Так что уже пишу "полноценную" программу управления на ST
с учётом специфики железяки. ;)
P.S. Вспоминаются времена, когда ПК были громадными, и с однокристалками очень дохленькими!
Все там есть!Цитата:
Сообщение от ПавелП
Это пример мой, у меня ПР200 и там такое есть
Скрытый текст:
https://owen.ru/forum/image/png;base...AAAElFTkSuQmCC
Проверил - посыпаю голову пеплом.
Очень благодарен, что делаете работу за ОВЕН...
Я пробовал один из примеров из кодесус перенести в ОЛ - там сразу проверка подавилась.
Это хелп такой...
Не понимаю, зачем они скрывают возможности?
Никто не скрывает, в Лоджике действительно пока урезанный ST, но кое что тут есть. Самое плохое, то что сделали только функции, был бы ФБ с несколькими выходами, уже бы намного лучше стало. Всё это писали ещё на первых страницах темы, а воз и ныне там.Цитата:
Сообщение от ПавелП
Обещали сделать не только ФБ, но и TIME(); переменные TIME, DWORD, INT, BYTE. Год прошёл!!!
Одни баги и недоделки. На новой ПР103 урезали Мастера до 64 переменных!!! Не зря я только на ПЛК работаю, нахрен эти ПР.
А нельзя добавить вход "Количество точек", "Слева от первой точки – прямая параллельная оси Х" и "Справа от последней точки – прямая параллельная оси Х", такие как в блоке Graf_4pnt_v1.04 из онлайн библиотеки?Цитата:
Сообщение от petera
ВариантЦитата:
Сообщение от Эдуард_Н
Код:function PLA_STmod: real; // (c) PeterA
var_input //объявление входных переменных
x1: real;
x2: real;
x3: real;
x4: real;
x5: real;
x6: real;
x7: real;
x8: real;
x9: real;
x10: real;
y1: real;
y2: real;
y3: real;
y4: real;
y5: real;
y6: real;
y7: real;
y8: real;
y9: real;
y10: real;
N: udint; (*Число точек в графике*)
Is_L_Line:bool; (*Слева от первой точки. Если 1 прямая параллельная оси Х, если 0 продолжение кривой*)
Is_R_Line:bool; (*Справа от последней точки. Если 1 прямая параллельная оси Х, если 0 продолжение кривой*)
In: real;
end_var
var //объявление локальных переменных
i: udint;
a:udint; (*Начало интервала поиска*)
b: udint; (*Конец интервала поиска*)
x: array [0..9] of real;
y: array [0..9] of real;
end_var
IF N > 10 THEN N:= 10;
ELSIF N < 2 THEN N:= 2;
END_IF
x[0]:= x1;
x[1]:= x2;
x[2]:= x3;
x[3]:= x4;
x[4]:= x5;
x[5]:= x6;
x[6]:= x7;
x[7]:= x8;
x[8]:= x9;
x[9]:= x10;
y[0]:= y1;
y[1]:= y2;
y[2]:= y3;
y[3]:= y4;
y[4]:= y5;
y[5]:= y6;
y[6]:= y7;
y[7]:= y8;
y[8]:= y9;
y[9]:= y10;
(*Начальные значения интервала поиска*)
a:= 0;
b:= N-1;
(*Обрезание графика для крайних точек*)
IF IN <= x[0] THEN
b:= 1;
IF Is_L_Line THEN
In:= x[0];
END_IF
ELSIF IN >= x[N-1] THEN
a:= N-2;
IF Is_R_Line THEN
In:= x[N-1];
END_IF
(*Теперь можно начать поиск*)
ELSE
WHILE (b-a) <> 1 DO (*В конце концов, входной сигнал ТОЧНО попадет между двумя соседними точками X(a) и Х(а+1)*)
i:= (a+b)/2; (*Делим интервал поиска пополам*)
IF IN = x[i+1] THEN (*Может нам повезло, и мы сразу нашли точку? *)
a:= i; b:= i+1; (*Бинго! прекращаем итераций, нечего в пустую молотить :) *)
(*мимо :( ,тогда посмотрим в какую половину интервала попали*)
ELSIF IN > x[i] THEN (*Если входной сигнал больше середины интервала поиска,*)
a:= i; (*то следующий поиск будем делать начиная от середины и до конца массива*)
ELSE (*А если входной сигнал меньше середины интервала поиска,*)
b:= i; (*то следующий поиск будем делать начиная от начала и до середины массива*)
END_IF
(*Таким образом на каждой итерации отбрасываем из поиска заведомо ненужную половину значений
две соседние координаты X(a) и Х(а+1), меду которыми попадает входной сигнал найдем очень быстро
для 8 точек графика нужно не более 3 итераций
при 9..16 точек в графике нужно не более 4 итераций
при 17..32 точек в графике нужно не более 5 итераций
при 33..64 точек в графике нужно не более 6 итераций
при 65..128 точек в графике нужно не более 7 итераций
инфа точная - 100% ;) *)
END_WHILE;
END_IF
(*Теперь самое простое - сделать линейную аппроксимацию по двум точкам ;) *)
PLA_STmod:= y[b] - (x[b] - IN) * (y[b] - y[a]) / (x[b] - x[a]);
end_function
Спасибо petera.
Вот интересно, в функцию ST вход и выход внешние.
Фильтры входа не включаем. ПР200
Какую частоту ST через себя пропустит, не искажая входной сигнал?
Какой мах цикл можно создать внутри, типа:
Цитата:
for i :=0 to 1 by X do i:=i+1; i:=i-1; end_for
X - мах число
ST, по идее должен работать на частоте ядра.
это не компьютерный язык программирования, здесь сперва придет значение текущее аналогово входа, потом выполнится весь код, включая функцию ST, затем что то уйдет на выхода и далее повториться следующая итерация цикла контроллера, поэтому ни о какой фильтрации внутри макроса речи быть не можетЦитата:
Сообщение от ПавелП
Это понятно.Цитата:
Сообщение от capzap
Я про булевый вход и выход (например байт -> байт), и только ST, без других кодов - только одна функция на чистом листе.
Выполнении цикла и вычислений в цикле произойдёт на частоте ядра?
Вроде как ничто не должно "мешать" выполнится ST функции???
Получится какой программный быстрый обработчик реализовать?PHP код:for i :=0 to 1 by X do Input1:= Input1+1; end_for
X - мах число и выдать Input 8 бит на выход
Интересует именно пик быстродействия.
И ещё - прирвёт ли что-нить обработку функции?
догонит и еще раз прирвётЦитата:
Сообщение от ПавелП
Для начала Вы разберитесь как цикл FOR работает, если Х больше чем единица, то произойдет одна итерация
О каких 8 битах идет речь, если в ОЛ есть только були, целочисленные и вещественные числа, желательно бы сформулировать задачу, так чтоб она была понятна
Хотите какое то быстродействие проверить, собирайте схему сами, запускайте и вычисляйтевозможности ПР, если что то не понятно выкладывайте код с объяснением что хотели получить и что в итоге получается
А я про что?Цитата:
Сообщение от capzap
>> Я про булевый вход и выход (например байт -> байт),
Входы I1..I8 сформируют входной байт.
Выходы Q1..Q8 выходной байт.
Спрашивалось у народа про:Цитата:
Сообщение от capzap
>> "Какую частоту ST через себя пропустит, не искажая входной сигнал?"
Если вы не знаете, то так и скажите.
Подразумевается, что тут гуру за годы уже "собаку съели"! :)
В понедельник на работе и проверим.
P.S. Кстати.
- Это компьютерный язык программирования!!!Цитата:
Сообщение от capzap
То что его зажали в функцию, совершенно не мешает
управлять сложным устройством.
По крайней мере я справился, отчего и задался максимумом.
Никакой частоты пропускать он(ST) не будет!Цитата:
Сообщение от ПавелП
ПРка, как и положено ПЛК, работает так
1. в начале каждого цикла опрашиваются все физические входы и полученные значения запоминаются в специальном буфере
2. выполняется код, в том числе и ST. При этом используются сохраненные на ш.1 значения входов. Физические входы и выходы НЕ ОПРАШИВАЮТЯ!!!
3. данные, получаемые на ш.2, в том числе и для физических выходов ПР запоминаются во втором специальном буфере
4. данные из буфера п.3 записываются на физические выходы.
далее циклы повторяются.
таким образом ни о какой "пропускаемой частоте" ST речи быть не может!
Быстрее чем время выполнения одного цикла все равно работать не будет!
В ПР если установить единственный макрос на ST частота будет равно циклу программы ПР. То есть сразу все 8 входов подать на макрос, на выходе сформировать байт выходов и скинуть на выходы. Вот сколько времени займет ваш код ST столько времени и будет цикл ПР.
Почему, расписал petera как работает ПР и большинство ПЛК.
Будет!. :)Цитата:
Сообщение от petera
Примет байт, обработает, и направит на выход!
А вот какие временные рамки - уже по факту завтра гляну на работе.
А что вы имели под пропустить через ST не понятно.
Вот за эту инфу спасибо, видно что вы в теме. :)Цитата:
Сообщение от petera
Не цикл надо обогнать, а внутри цикла выяснить скорость выполнения своего цикла.Цитата:
Сообщение от petera
Другими словами - сколько тактов успеет прога на ST пересчитать.
Отсюда и вопрос был: Если внутренний цикл "затянется" - что будет.
Но это уже к внутренней архитектуре оболочки вопросы выясняем.
Всё верно.Цитата:
Сообщение от melky
Задан цикл внутри функции на 200 шагов.
Впишется в цикл ПР?
500 шагов?
2000 шагов?
Вот этот предел и интересует.
На что рассчитывать???
блин, да вы хоть 1000 шагов сделайте внутри своего ST, он обрабатывать будет ОДНО и тоже входное значение и запишется на выход ОДНО единственно значение после работы ваших 100500 циклов. Вы не догоняете принципы работы ПР и ПЛК.
"Это опять вы" :) еще раз вам говорю, если вам нужна обработка определенных входов и управление определенных выходов в процессе выполнения основной программы, ва нужен другой ПЛК, который это умеет делать, и это не ОВЕН.
| начало цикла программы - чтение всех входов (см. комментарии petera) | Начало программы, программа стартует и что-то делает | Прерывание каждые 2 мс, проверка определенного входа | основная программа продолжается | Прерывание, проверка входа, условие выполнено, запись выхода | программа продолжается | Прерывание ... | Программа закончилась | Запись всех остальных выходов | => все сначала
(общее время выполнения программы ну скажем 15 мс)
То, что выделенно жирным, недоступно ПР и ПЛК от Овен... ПР, которые бы так умели вообще не видел.
Не в этом вопрос.Цитата:
Сообщение от melky
>> Я про булевый вход и выход (например байт -> байт),
Вопрос, сколько тактов в цикле можно обрабатывать этот байт за один вход/выход в функцию.
Давайте вылезем из танка и посчитаем число Пи. (например Пи)
Высчитать 20 знаков, 50 знаков, или 200 знаков.
Выдать число полученных знаков.
Результат функции 4 байта, берём нижний байт, двигаем в порт [0-255].
Выставили как результат.
Так понятно? Никаких коллизий с архитектурой ПР!Цитата:
Сообщение от melky
Каков предел внутри функции?
Вот этот ответ, который и нужен.Цитата:
Сообщение от melky
Сложную обработку не делать, а примитивный шаговый автомат...
Скорее всего цикл будет увеличен. Можете также попробовать сделать бесконечный цикл, расскажете потом, как на него ПР отреагирует.Цитата:
Сообщение от ПавелП
А что ,в в ST на ПР появились циклы? хотя собственно не важно, любой цикл в ПР или ПЛК просто увеличит время выполнения программы. Соответственно увеличится время между опросом входов и записью выходов. Так какая разница, сколько вы там собрались вычислять знаков ?