Вопрос по скриптам

[vladka767]

Добрый день.
Можно ли вызывать скрипт не привязанный ни к какому объекту ни переменной? Т.е. постоянно работающий, в котором можно изменять свойства  не одного, а нескольких объектов.

И еще вопрос. Создал виртуалную переменную типа Single, привязал ее к элементу Поле, пытаюсь присвоить ей значение из скрипта (скрипт привязан к событию 1 сек.):

Код: (delphi)

var
  iVar1: integer;
begin
 iVar1 := iVar1 + 1;
 Variable1.AsInt := iVar1;
end.

Компилятор ругается на то что переменная только для чтения. Можно ли писать значения в виртуальные переменные, если да то как? Если нет, то как решить мою задачу - редактирование значения, отображаемое на элементе Поле из скрипта ?

[Simple_Scada]

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

Можно ли вызывать скрипт не привязанный ни к какому объекту ни переменной? Т.е. постоянно работающий, в котором можно изменять свойства  не одного, а нескольких объектов.

Можно использовать скрипт с типом события "Прошла секунда".

Компилятор ругается на то что переменная только для чтения.

Компилятор указывает на то, что свойство AsInt доступно только для чтения. Если необходимо записать значение в переменную, то нужно использовать свойство переменной Value:

Код: (delphi)

var
  iVar1: integer;
begin
 iVar1 := iVar1 + 1;
 Variable1.Value := iVar1;
end.

[vladka767]

Сделал как у вас в примере, привязал виртуальную переменную Variable1 к элементу Поле.
При запуске в Поле отображается значение 10ти значное число -21208..., которое постоянно декрементируется примерно на 1000.

[Simple-Scada]

В коде из предыдущего сообщения мы просто взяли Ваш код из первого сообщения и устранили ошибку с присвоением. Но этот код некорректен, в нём не инициализируется локальная переменная, что является ошибкой. Вот код с пояснениями:

Код: (delphi)

var
  iVar1: integer;  // переменная iVar1 является локальной, т.к. объявлена в пределах скрипта
begin
  { на этом этом этапе переменная iVar1 может иметь какое угодно 
     значение (в пределах типа данных integer), т.к. она не инициализирована.
    Например она может быть равна 24736 }
 
  iVar1 := iVar1 + 1;        // тогда iVar1 := 24736 + 1 = 24737
  Variable1.Value := iVar1;  // в Variable1 запишется 24737
end.

Поэтому локальные переменные нужно инициализировать перед использованием:

Код: (delphi)

var
  iVar1: integer;  // переменная iVar1 является локальной, т.к. объявлена в пределах скрипта
begin
  iVar1 := 0;
  iVar1 := iVar1 + 1;   // тогда iVar1 := 0 + 1 = 1
  Variable1.Value := iVar1;  // в Variable1 запишется 1
end.

Как видно из примера, сделать нарастающий счетчик используя локальную переменную не получится, т.к. при каждом выполнении её придётся инициализировать. ПОэтому для счетчика с нарастанием нужно использовать обычную глобальную переменную из меню "Переменные" или из глобального модуля.

[vladka767]

Да, все получилось .
Спасибо большое!