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

[Bad1mka]

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

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

Добрый вечер! Решил тоже разобрать задачку программирования из примеров в руководстве! Для эксперимента выбрал домашнюю теплицу! в ней есть электрокалорифер и насос полива с электромагнитным клапаном! Управляет этими устройствами китайское реле в связке с ПЕ210! Первая задачка с включением печки решилась быстро но вот попытка запускать насос полива открывая при этом клапан в определенное время суток пока не получается! Вроде как программа компилируется но при запуске сваливается в ошибку!
Безымянный.png
Результат компиляции такой!
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
После запуска происходит остановка системой!
Безымянный1.png
В чем причина и где ошибка не понятно!

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

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

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

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

Внес изменения! Результат есть но это не финал!
Безымянный.png

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

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;