Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if IsFirstChange then // Выход, если это первое изменение
Exit;
if power1.Value < 100 then // Выход, если мощность меньше 100
Exit;
// Основная логика (выполняется только если IsFirstChange=False и power1 >= 100)
if (Pressure.GetValueZone = 2) or
(temperatura.GetValueZone = 2) or
(Pressure.GetValueZone = -2) or
(temperatura.GetValueZone = -2) then
Shape5.Visible := True
else if (Pressure.GetValueZone >= 0) or (temperatura.GetValueZone >= 0) then
Shape5.Visible := False;
end.
begin
if not IsFirstChange then
begin
if temperatura.GetValueZone = 2 then
Shape5.Visible := True
else if temperatura.GetValueZone = 0 or
temperatura.GetValueZone = 1 or
temperatura.GetValueZone = -1 then
Shape5.Visible := False;
end;
end.
begin
if not IsFirstChange then
Shape5.Visible := True
else if temperatura.GetValueZone = 0 then
begin
Shape5.Visible := False;
AddMessage(Now, mkMessage, 'Температура в норме ', True, False);
end;
end.
begin
if not IsFirstChange then
begin
if temperatura.GetValueZone = 2 then
Shape5.Visible := True
else if temperatura.GetValueZone = 0 then
Shape5.Visible := False;
end;
end.
Я делал так - создал внутреннюю переменную(ые) 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.