Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Тут другая логика... На сервере может бегать несколько проектов одновременно, а клиент может быть подключен к любому из проектов на любом из серверов, только чтобы был доступ по сети.
begin
if Sender is TM_Valve then // проверяем, что Sender это заслонка:
with Sender as TM_Valve do // приводим объект к типу TM_Valve:
case TM_Valve(Sender).AsInt of // если значение переменной равно:
-5..5 : // = -5 до 5 то считаем что заслонка закрыта
begin
Sender.Color := RGB(255, 128, 0); // меняем цвет на оранжевый
end;
6..95 : // = 6 до 94 то считаем что заслонка в промежуточном
begin
Sender.Color := RGB(255, 255, 0); // меняем цвет на желтый
end;
95..105 : // = 95 до 105 то считаем что заслонка открыта
begin
Sender.Color := RGB(0, 255, 0); // меняем цвет на зеленый
end;
end;
end.
