Вид для печати
Всем доброго времени суток, разрабатываю блок для подсчета показаний
с импульсного счетчика на ST. Общие показания сохраняются спокойно и после отключения питания остаются,
но временные показания (сутки, час, месяц, год) слетают после отключения питания.
С чем может быть связан сброс? Программу прилагаю.
Прибор: ПР200-24.2.2.0
З.Ы.: смею высказать свою теорию, что из-за несовпадения даты с сохраненной в локальные переменные блока при повторной подаче питания.
Вы же сами всё обнуляете, например кусок кодаЦитата:
Сообщение от Григори
Сначала присваиваете l_FlowDay := i_FlowDay; а потом в коде обнуляете l_FlowDay := 0; // Зачем здесь обнуление? И так вездеКод:if i_nowDay <> l_day then
l_FlowDay := 0; // Зачем здесь обнуление?
l_day := i_nowDay;
end_if
kondor3000, Это сравнение числа дня входной переменной с локальной, если не совпадает(по логике происходит на след. день в 00:00), l_FlowDay - переменная с данными по самому потоку (Поток день, дословно) становится равна нулю и считается заново. Аналогичные операции проделываются с годом, часом и месяцем
Цитата:
Сообщение от kondor3000
Кусок кода с вычислениями расходов:
Кусок кода со сравнениями переменных дат и времени для сброса когда надо:Код:if i_Imp = TRUE then
l_flow := l_Flow + ((1 / 1000) * i_ImpMass);
l_FlowDay := l_FlowDay + ((1 / 1000) * i_ImpMass);
l_FlowHour := l_FlowHour + ((1 / 1000) * i_ImpMass);
l_FlowMonth := l_FlowMonth + ((1 / 1000) * i_ImpMass);
l_FlowYear := l_FlowYear + ((1 / 1000) * i_ImpMass);
end_if
И каждый цикл программы в сравнениях(и просто в коде) происходит перезапись локальных переменных (которые, как я слышал, энергонезависимые).Код:if i_nowDay <> l_day then
l_FlowDay := 0;
l_day := i_nowDay;
end_if
if i_nowHour <> l_hour then
l_FlowHour := 0;
l_hour := i_nowHour;
end_if
if i_nowMonth <> l_month then
l_FlowMonth := 0;
l_month := i_nowMonth;
end_if
if i_nowYear <> l_year then
l_FlowYear := 0;
l_year := i_nowYear;
end_if
В таблице переменных все с галочкой на энергонезависимость, но оно все равно сбрасываетсяКод:l_Flow := i_Flow;
l_FlowYear := i_FlowYear;
l_FlowMonth := i_FlowMonth;
l_FlowDay := i_FlowDay;
l_FlowHour := i_FlowHour;
l_impMass:= i_ImpMass;
P.S.: все переменные с i_ - входные, l_ - локальные, а выходные без префикса. Но да, комментариев в коде я оставил мало
Просто закомментируйте на время кусок кода с обнулением и проверьте, будут ли сохраняться расходы, при перезагрузке по питанию.
Возможно надо ввести таймер на несколько секунд, чтобы не обнулялось при подаче питания.
Да, вы правы, если исключить из условия обнуление, он не сбрасывается при перезапуске питания. Как понимаю, задержку на включение действий условия на ST тоже надо сделать.Цитата:
Сообщение от kondor3000
TON из оф. видео подойдет же?
https://www.youtube.com/watch?v=agJTfeRnfy4
Может проще выполнение всего блока отложить на один цикл после включения питанияЦитата:
Сообщение от Григори
Не совсем понимаю, как это реализовать. Поставить линии задержки на все выходные переменные?Цитата:
Сообщение от AlexCrane
Еще один вход сделать - разрешение работыЦитата:
Сообщение от Григори
Переписал ТОН из оф. ролика. Переменная теперь просто сбрасывается с задержкой таймера после включения.Цитата:
Сообщение от kondor3000
Делал условие для выключения таймера, тоже не помогает
Код:function_block Flowmeter //имя функционального блока.
var_input //объявление входных переменных
i_Imp: bool; //переменная считывания переднего фронта импульса
i_ImpMass: real; //переменна цены импульса
i_Flow: real; //Общий поток
i_FlowYear: real; //Годовой поток
i_FlowMonth: real; //Поток за месяц
i_FlowDay: real; //Поток за день
i_FlowHour: real; //Поток за час
i_nowYear: udint; //Текущий год
i_nowMonth: udint; //Текущий месяц
i_nowDay: udint; //Текущий день
i_nowHour: udint; //Текущий час
i_nowMinute: udint; //Текущая минута
i_nowSecond: udint; //Текущая секунда
end_var
var_output //объявление выходных переменных
Flow: real;
FlowDay: real;
FlowHour: real;
FlowMonth: real;
FlowYear: real;
ImpMass: real;
end_var
var //объявление локальных переменных
TON: TON_FB;
TON_Q: BOOL;
l_Flow: real;
l_FlowDay: real;
l_FlowHour: real;
l_FlowMonth: real;
l_FlowYear: real;
l_year: udint;
l_month: udint;
l_day: udint;
l_hour: udint;
l_minute: udint;
l_second: udint;
l_impMass: real;
end_var
l_Flow := i_Flow;
l_FlowYear := i_FlowYear;
l_FlowMonth := i_FlowMonth;
l_FlowDay := i_FlowDay;
l_FlowHour := i_FlowHour;
l_impMass:= i_ImpMass;
if i_Imp = TRUE then
l_flow := l_Flow + ((1 / 1000) * i_ImpMass);
l_FlowDay := l_FlowDay + ((1 / 1000) * i_ImpMass);
l_FlowHour := l_FlowHour + ((1 / 1000) * i_ImpMass);
l_FlowMonth := l_FlowMonth + ((1 / 1000) * i_ImpMass);
l_FlowYear := l_FlowYear + ((1 / 1000) * i_ImpMass);
end_if
//Тут на поток за день сделал попытку с таймером
if i_nowDay <> l_day then
TON(IN := true, PT:= 5,SEC := i_nowSecond, Q => TON_Q);
if TON_Q then
l_day := i_nowDay;
l_FlowDay := 0;
end_if
else
TON(IN := false);
end_if
if i_nowHour <> l_hour then
l_hour := i_nowHour;
//l_FlowHour := 0;
end_if
if i_nowMonth <> l_month then
l_month := i_nowMonth;
//l_FlowMonth := 0;
end_if
if i_nowYear <> l_year then
l_year := i_nowYear;
//l_FlowYear := 0;
end_if
ImpMass := l_impMass;
Flow := l_Flow;
FlowHour := l_FlowHour;
FlowDay := l_FlowDay;
FlowMonth := l_FlowMonth;
FlowYear := l_FlowYear;
end_function_block