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

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

Внес изменения! Результат есть но это не финал!
Безымянный.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;

[capzap]

у меня по прежнему сразу работает без остановок, даже с прибором который не подключен, может с типами данных что либо напутали Screenshot 2024-05-22 123925.png

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