Вопрос по разделу "Программы (Beta)

Добрый день, есть идея летом сделать включение вентустанвки по температуре наружного воздуха (летом ночное охлаждение помещений). Когда допустим температура воздуха опускается ниже 20С давать команду на Старт и так же когда становиться выше 20С команда СТОП.
Поскольку прошивка контроллера ТРМ1033 это сделать не позволяет то была мысль это сделать через раздел "Программы". При выборе входной переменной выбрать Тнар. можно то при выборе выходной переменной команда на управление "Старт" отсутствует.
Такое вообще возможно здесь реализовать ?

Цитата:

---

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

Добрый день, есть идея летом сделать включение вентустанвки по температуре наружного воздуха (летом ночное охлаждение помещений). Когда допустим температура воздуха опускается ниже 20С давать команду на Старт и так же когда становиться выше 20С команда СТОП.
Поскольку прошивка контроллера ТРМ1033 это сделать не позволяет то была мысль это сделать через раздел "Программы". При выборе входной переменной выбрать Тнар. можно то при выборе выходной переменной команда на управление "Старт" отсутствует.
Такое вообще возможно здесь реализовать ?

---

Добрый день, вы можете посмотреть "пример 1" (РЭ - стр.81)https://owen.ru/owencloud#docs

В прошивке 21.00 нет параметра включение вентилятора.
Вложение 74049

Добрый день
1) Примеры в РЭ (ссылка) никак не связаны с конкретными отраслевыми приборами.
2)

Цитата:

---

можно то при выборе выходной переменной команда на управление "Старт" отсутствует.

---

Данный параметр отсутствует, потому что в шаблоне на ТРМ1033 параметр "Перейти режим Старт" не добавлен в отображение в Параметрах. Поставьте соответствующую галочку и он его можно будет добавить в выходные переменные.

Цитата:

---

Сообщение от Алексей Фомин

Добрый день
1) Примеры в РЭ (ссылка) никак не связаны с конкретными отраслевыми приборами.
2)
Данный параметр отсутствует, потому что в шаблоне на ТРМ1033 параметр "Перейти режим Старт" не добавлен в отображение в Параметрах. Поставьте соответствующую галочку и он его можно будет добавить в выходные переменные.
Вложение 74056

---

Галочки установлены, в выходных переменных "перейти в режим Старт" его нет.
Вложение 74061

Да, оказывается у этих параметров также отсутствует и функция чтения, потому что в приборе они только для записи, а для выходной переменной нужно, чтобы была и функция чтения и функция записи. Сейчас вы конечно можете эту функцию добавить, потом добавить переменную в программу (она появится), а потом снова функцию чтения у параметра убрать. Переменная останется в программе, однако данный вариант не тестировался.

Возможно в будущем в связи с вашим кейсом мы изменим валидацию на добавление выходных переменных в программу, чтобы не было подобных случаев. Функционал программ находится на beta стадии и подобные кейсы очень важны.

1. У параметров Старт, Стоп формат данных bool компилятор не пропускает значения 0 и 1, только значения True, False.
2. Если изменить формат данных Старт, Стоп на uint16 компилятор пропускает значения 0 и 1 и программа запускается но команды не исполняются.
3. Чтобы добавить эти параметры в них был включен режим чтения 03 но появилась ошибка.

Вложение 74077

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

Вложение 74082

Пробовал параметры Старт, Стоп формат данных bool значения True, False. Программа запущена, вентустановка не реагирует при значениях температуры при которых должно идти команда.
Вложение 74089
Вложение 74090

Цитата:

---

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

Пробовал параметры Старт, Стоп формат данных bool значения True, False. Программа запущена, вентустановка не реагирует при значениях температуры при которых должно идти команда.
Вложение 74089
Вложение 74090

---

покажите что они BOOL. Я пересмотрел все свои приборы, везде в настройках UINT. Здесь https://owen.ru/forum/attachment.php...2&d=1709624945 у Вас в окне объявлений UINT переменные

Т притока 25С по условиям программы вентустановка должна остановиться. Ничего не меняется.
Вложение 74095
Вложение 74096

При запущенной программе, вручную ставлю вентустановку в Стоп она сразу останавливается.

Я не понимаю, согласно руководства по эксплуатации я создал программу, чтобы внести параметр Старт, Стоп как вы подсказали сделал параметр читаемым, дальше Старт, Стоп формат данных предполагает true запустил - не работает. Изменил формат данных Старт, Стоп на unit прописал 1. запустил - не работает. Программа запущена по температуре вентустановка не останавливается и не запускается. Все вернул на место.

Вручную я имел в виду "Перейти в режим Стоп"

Вложение 74106

Если у меня к примеру 40 объектов то создавать 80 программ ? В одну все не впихнешь ?

Цитата:

---

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

Если у меня к примеру 40 объектов то создавать 80 программ ? В одну все не впихнешь ?

---

ну если с одним объектом не получится то и дальше продолжать не стоит. Мы же сейчас о поиске проблем говорили, а не о работе. Короче, у меня передаются все три типа переменных в контроллер, если это не проблемы шаблона, то дело в Вас

Не понятен сарказм на счет того что дело во мне, я выслал все скриншоты как и что я делаю. Запустил программу с одним параметром Стоп по температуре, вентустановка продолжает работать.

Volan1980, получилось победить проблему? Тоже сделал прогамму, а она не выполняется (не производит запись). Подозреваю что проблемма в переменной без функции чтения (задание частотника - только на запись, при "искуственном" выставлении функции чтения в 03 выдает ошибку2)Вложение 74902

Добрый вечер! Решил тоже разобрать задачку программирования из примеров в руководстве! Для эксперимента выбрал домашнюю теплицу! в ней есть электрокалорифер и насос полива с электромагнитным клапаном! Управляет этими устройствами китайское реле в связке с ПЕ210! Первая задачка с включением печки решилась быстро но вот попытка запускать насос полива открывая при этом клапан в определенное время суток пока не получается! Вроде как программа компилируется но при запуске сваливается в ошибку!
Вложение 75917
Результат компиляции такой!
Compiling /opt/lib648/rttiwrapper.pas
rttiwrapper.pas(28,5) Note: Local variable "nasos" is assigned but never used
rttiwrapper.pas(32,5) Note: Local variable "temp_lastTime" is assigned but never used
rttiwrapper.pas(33,5) Note: Local variable "temp_fault" is assigned but never used
rttiwrapper.pas(34,5) Note: Local variable "nasos_lastTime" is assigned but never used
rttiwrapper.pas(35,5) Note: Local variable "nasos_fault" is assigned but never used
rttiwrapper.pas(36,5) Note: Local variable "pechka_lastTime" is assigned but never used
rttiwrapper.pas(37,5) Note: Local variable "pechka_fault" is assigned but never used
rttiwrapper.pas(38,5) Note: Local variable "on_nasos_lastTime" is assigned but never used
rttiwrapper.pas(39,5) Note: Local variable "on_nasos_fault" is assigned but never used
rttiwrapper.pas(40,5) Note: Local variable "off_nasos_lastTime" is assigned but never used
rttiwrapper.pas(41,5) Note: Local variable "off_nasos_fault" is assigned but never used
Linking /opt/lib648/librttiwrapper.so
265 lines compiled, 0.2 sec
11 note(s) issued
После запуска происходит остановка системой!
Вложение 75918
В чем причина и где ошибка не понятно!

Цитата:

---

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

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

---

Результат компиляции я для того и привел чтобы обратить внимание на тот факт что создаются переменные которые я не объявлял! и не собирался использовать! Из всех моих переменных не используется только переменная nasos!

Внес изменения! Результат есть но это не финал!
Вложение 75933

var hh_sys, mim_sys, ss_sys, ms_sys: word;

procedure init; cdecl; export;
begin

end;

procedure UserFunction; cdecl; export;
begin
If (temp <= 14) then
pechka := word(1)
else
pechka := word(0);
begin
DecodeTime(Time, hh_sys, mim_sys, ss_sys, ms_sys);
If (hh_sys >= 12) and (mim_sys >= 6) and (hh_sys <= 20) and (mim_sys <= 10) then
on_nasos := word(1)
else
off_nasos := word(1);
end;
end;

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

Код:

---

var hh_sys, min_sys, ss_sys, ms_sys : word;

procedure Init; cdecl; export;
begin
end;

procedure UserFunction; cdecl; export;
begin
If (temp <= 14) then
                pechka := 1
else pechka := 0;
begin
        DecodeTime(Time, hh_sys, min_sys, ss_sys, ms_sys);
        if (hh_sys >= 9) and (hh_sys <= 17) then
        on_nasos := 1
        else
        off_nasos := 1;
end;
end;

---

PS вставил Ваш код, получил ошибку, сравнивайте

PSS я нашел в чем причина, не зря в шаблоне комментарии написаны

Может кто столкнулся: после обновления ПО owen Cloud в чт, перестали работать программы - после запуска вручную, программа через минуту останавливается системой. До этого программа отработала месяц (т.е. полностью работоспособна), по сути простая - пересылка с одного прибора 4 регистра в другой и обратно. Без преобразований и математики. в ТП написал сразу в пятницу, решения/ответа/комментария все нет. Пока обхожусь ручным перезапуском, но это не выход.

Журнал:

Вложение 77679

Программа:

Вложение 77680

Цитата:

---

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

Может кто столкнулся: после обновления ПО owen Cloud в чт, перестали работать программы ...

---

Проблема решена специалистами Owen: подробностей не знаю, но спасибо!

Обнаружилась интересная особенность: если входная переменная программы привязана к параметру, множитель которого отличается от единицы, то эта переменная в программе будет равна нулю. При этом в работе на вкладке "Программа" будет отображаться реальное значение переменной.
UPD: с выходными переменными еще веселее: если в привязанных к ним параметрам множитель не равен единице - получаем шикарный генератор случайных чисел!
Для примера: переменная со значением 2700 при множителе 0.001 самопроизвольно меняла свое значение с 2.7 на 13.0...