Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
SetFlashInterval(fit500ms); // изменить частоту мигания на 500мс
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
if AsInt = 1 then // если значение переменной объекта равно 1, то
begin
obob_avar.value := true; // обобщенной аварии присвоить 1
FlashColor := clRed; // изменить цвет объекта и моргать красным
end else // иначе
begin
obob_avar.value := false;
FlashColor := clNone; // отменить моргание
end;
end.
Simple-Scada 2 работает с OPC-серверами версии DA 3.0 и ниже. Серверы OPC-HDA не поддерживаются.