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

[Volan1980]

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

[Тимур Назарбоев]

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

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

[Volan1980]

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

[Алексей Фомин]

Добрый день
1) Примеры в РЭ (ссылка (https://docs.owen.ru/product/owencloud/590/83266#topic-83272)) никак не связаны с конкретными отраслевыми приборами.
2)
можно то при выборе выходной переменной команда на управление "Старт" отсутствует.
Данный параметр отсутствует, потому что в шаблоне на ТРМ1033 параметр "Перейти режим Старт" не добавлен в отображение в Параметрах. Поставьте соответствующую галочку и он его можно будет добавить в выходные переменные.

[Volan1980]

Добрый день
1) Примеры в РЭ (ссылка (https://docs.owen.ru/product/owencloud/590/83266#topic-83272)) никак не связаны с конкретными отраслевыми приборами.
2)
Данный параметр отсутствует, потому что в шаблоне на ТРМ1033 параметр "Перейти режим Старт" не добавлен в отображение в Параметрах. Поставьте соответствующую галочку и он его можно будет добавить в выходные переменные.
74056

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

[Алексей Фомин]

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

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

[Volan1980]

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

74077

[Volan1980]

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

74082

[Volan1980]

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

[capzap]

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

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

[Volan1980]

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

[Volan1980]

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

[Volan1980]

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

[Volan1980]

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

74106

[Volan1980]

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

[capzap]

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

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

[Volan1980]

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

[Bad1mka]

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
В чем причина и где ошибка не понятно!

[Сергей Борисович Ш]

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

Результат компиляции я для того и привел чтобы обратить внимание на тот факт что создаются переменные которые я не объявлял! и не собирался использовать! Из всех моих переменных не используется только переменная 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;

[capzap]

у меня по прежнему сразу работает без остановок, даже с прибором который не подключен, может с типами данных что либо напутали 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 я нашел в чем причина, не зря в шаблоне комментарии написаны