VBS косвенная передача (wincc)

[VladislavA]

Здрасти. Вопрос такой возможна ли косвенная передача константы в тэг (текстовый) на VBS? Сделано так, в текстовый внутренний тэг при нажатии на иконку клапана прямо передается константа/тэг (в данном случае булевый) управляющий клапаном. Одновременно с этим появляется окно с двумя кнопками вкл и выкл, которые передают в тот же текстовый внутренний тэг константу 1 или 0, но только уже косвенно. В итоге прямо привязанный тэг включается/выключается. Все это в wincc получается сделать с помощью прямой передачи на событиях мышки (нажал лкм, отпустил лкм, там просто тыкаеш галки и пишешь константу). Работает. На VBS могу сделать открытие окна, прямую передачу управляющего тэга в текстовый внутренний. Но не могу передать косвенное значение для управления тэгом клапана. Использовал для записи HMIRuntime.Tags ("имя внутреннего текстового тэга").write имя управляющего клапаном тэга. А вот косвенную передачу для управления организовать не знаю как. Не подскажите как? Не программист, киповец, появилась нужда, решил попробовать. В принципе работает, но интересно сделать это на VBS. Вроде как на VBS можно n-е кол-во функций/ процедур записать на одно действие мышки. В прямой передаче только одно действие. Отсюда и вопрос.

[AlexandrGr]

Ничего не понял.

[megavolt86]

Но не могу передать косвенное значение для управления тэгом клапана.

что такое косвенное значение? Много слов мало сути...

[VladislavA]

По английски называется indirect tag. Видео на английском 17 минут. Создаёт тэги
1:44 - 3:45 . Привязывает тэги 9:44 - 11:34 заканчивает. Итог действий с 15:45 https://youtu.be/BchRddouaXM?si=VesxVQU3UpsTtyFE

Дома компа нет, пишу с телефона.

[keysansa]

По английски называется indirect tag. Видео на английском 17 минут. Создаёт тэги

Касаемо VBS (да и в целом всех языков программирования) это передача значения по ссылке (var by reference).

[VladislavA]

Спасибо, почитаем

[Fess]

Здравствуйте Владислав,

если взять видео как пример, то это может выглядеть приблизительно так:
left click by M1-Object:
'*****************************************
HMIRuntime.Tags("Inderekt_Tag"). Write Item.ObjectName ' либо "M1" вместо Item.ObjectName
'*****************************************

Left click by Button Start:
'*****************************************
Dim InderTag
InderTag = HMIRuntime.Tags("Inderekt_Tag").Read
HMIRuntime.Tags(inderTag).Write 1
'*****************************************
Всех благ
Fess.