Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if Sender is TM_Image then // сначала убедимся, что скрипт вызван объектом "Изображение"
with Sender as TM_Image do // далее будем работать с объектом Sender, как с изображением
if GetBit(AsInt, Tag) = TRUE then // если номер бита переменной, указанной в свойстве Tag, "TRUE", то
begin
FlashColor := clNone; // отключить мигание
Color := clGreen; // изменить цвет на зеленый
end else
begin
Color := RGB (182,182,182); // изменить цвет на серый
FlashColor := clRed; // мигать красным
end;
end.
Вместо подключения к реальным OPC-серверам, будут созданы их виртуальные версии и внешние переменные будут постоянно изменяться, принимая случайные значения в пределах шкалы переменной.и это действительно так, но иногда генерируются значения вне пределов шкалы переменной!
begin
AddActionMessage(Variable.Description + '! ' + ' Изменилась переменная: ' + Variable.Name + ' Стало: ' + Variable.AsStr
+ ' '+ Variable.Units, Variable.Address);
end.
: