Как связать все показания в одну аварию?

[vyacheslav]

и еще один вопрос, допустим есть 10 показаний(переменных) нужно сделать так что если хоть одно из показаний становиться нулевым идет сигнал на общую одну лампочку аварии.

[Simple_Scada]

Здравствуйте!

Для этого нужно создать скрипт с типом события "Изменились переменные". Пример создания такого скрипта подробно рассмотрен здесь. Создайте скрипт, добавьте переменные как это описано в примере и напишите такой скрипт:

Код: (delphi)

begin
  if (Var1.AsInt = 0) or (Var2.AsInt = 0) or (Var3.AsInt = 0) then
     LampVar.Value := 1
  else
     LampVar.Value := 0;
end.

, где Var1..Var3 - переменные которые нужно проверять на нулевое значение, LampVar - переменная лампочки, которую нужно включать. Если под лампочкой подразумевается изображение лампочки в проекте, то скрипт будет таким:

Код: (delphi)

begin
   if (Var1.AsInt = 0) or (Var2.AsInt = 0) or (Var3.AsInt = 0) then
     Image1.Color := clRed
  else
     Image1.Color := clGreen;
end.

,где Image1 - изображение лампочки.

[vyacheslav]

Понял, спасибо большое