Редактор скриптов (pascal)
Var i, q: Integer;
Begin
i:=ReadValue('Дискретный вход 1');
if i = 1 then
Begin
q:=2;
end;
if i = 0 then
Begin
q:=1;
end;
WriteValue('Virtual channel 1',q);
end.
Скрипт возвращает НОЛЬ
Begin
i:=ReadValue('Дискретный вход 1');
if i = 1 then
Begin
q:=2;
end;
if i = 0 then
Begin
q:=1;
end;
WriteValue('Virtual channel 1',q);
end.
Скрипт возвращает НОЛЬ
Скрипт был вложен в виртуальный канал, который был 10 по счету, в спске активных каналов, в окне редактора каналов.