1
Ваши вопросы / Re: Счетчик наработки, моточасы
« : 06 Февраля 2025, 16:14:30 »
Благодарю за оперативный ответ! Все работает
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Я делал так - создал внутреннюю переменную(ые) Int64 с восстановлением, которая будет хранить количество секунд. Далее в скрипте "Прошла секунда" проверяется состояние переменных работы устройства. Если устройство работает, увеличиваем переменную с количеством секунд на 1. Для вывода времени на мнемосхему используем внутреннюю переменную типа String, используя функцию SecondsToString(КолвоСекунд) - получаем из числа секунд строку вида ЧЧ:ММ:СС.Здравствуйте,
var
EAST_udiSeconds : Int64;
vr_EAST_Harbor_WorkHoursAsString: string;
begin
vr_EAST_Harbor_WorkHoursAsString := SecondsToStr(EAST_udiSeconds);
end.
const
TIMEHOUR = 3600;
begin
if (conv1.Value = 20) and (worksec_conv1.Value < TIMEHOUR) then
worksec_conv1.Value := worksec_conv1.AsInt + 1;
if (conv1.Value = 20) and (worksec_conv1.Value >= TIMEHOUR) then
begin
workhours_conv1.Value := workhours_conv1.AsInt + 1;
worksec_conv1.Value := 0;
end;
end.
begin
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
begin
if Variable.Value < 100 then
Variable.Value := Variable.Value +1;
end
end.