vbs в фейсплейте winCC7

Сообщение **megavolt86** » 31 окт 2016, 16:17

Здравствуйте, товарищи!
Подскажите как можно реализовать переключения видимость/невидимость во фейсплейте winCC 7.0?
Для фейсплейта создал бинарный тэг, присвоил его к параметру visible кнопки.
К графическому примитиву, допустим круг во вкладке events по нажатию левой кнопки мышизапускается вбскрипт и тэг устанавливается в 1.
По отпусканию появившейся кнопки запускается скрипт который значению тэга присваивает 0. Тем самым кнопка должна стать невидимой....
Сохраняю фейсплейт, вызываю его на произвольном экране и запускаю рантайм, иконка (круг) видимая, а по клику по ней ничего не происходит (кнопка не появляется).
В винсиси вообще не силен, с нуля это мой первый проект, так что прошу помочь советом как сделать скрытие элементов фейсплейта, или может примеры есть?)

Сообщение **KIgor** » 31 окт 2016, 17:42

Доброго дня.
Попробовал повторить Ваши действия. В итоге имею:
1. Бинарный тэг "TestBinaryTag" привязан к свойству Miscellaneous-Display кнопки "Button1".
2. К евенту Mouse-ReleaseLeft привязан VBS скрипт:
Dim TestBinaryTag
Set TestBinaryTag = HMIRuntime.Tags("@NOTP::TestBinaryTag")
TestBinaryTag.Value = 0
TestBinaryTag.Write
3. К евенту Mouse-PressLeft круга "Cicrle1" привязан VBS скрипт:
Dim TestBinaryTag
Set TestBinaryTag = HMIRuntime.Tags("@NOTP::TestBinaryTag")
TestBinaryTag.Value = 1
TestBinaryTag.Write
Все работает. (т.е. кликаем по кругу - кнопка появляется, кликаем (отпускаем) кнопку - она исчезает)

Дополнительно создал еще один круг и привязал к евенту такой скрипт:
Dim objScreen, ObjButton1
Set objScreen = HMIRuntime.Screens(AccessPath)
Set ObjButton1 = objScreen.ScreenItems("Button1")
ObjButton1.Visible = Not ObjButton1.Visible
При такой реализации не требуется создавать тэг, как по мне может быть более удобно

Сообщение **megavolt86** » 31 окт 2016, 18:25

KIgor писал(а): Попробовал повторить Ваши действи

Я конечно предполагал что это просто делается, но я таких операторов :

KIgor писал(а): Set TestBinaryTag = HMIRuntime.Tags("@NOTP::TestBinaryTag") TestBinaryTag.Value = 0 TestBinaryTag.Write

И не знал, до бейсика еще не дорос)))
Не валяется какая никакая литературка по бейсик скриптам в винсиси?

Сообщение **megavolt86** » 01 ноя 2016, 08:17

KIgor писал(а): ("@NOTP::TestBinaryTag")

Может что то не так делаю? На данную строчку ругается с ошибкой "предполпгается наличие инструкции ("@NOTP::TestBinaryTag")"
Можете подсказать в чем я мог ошибиться?

Сообщение **KIgor** » 01 ноя 2016, 10:23

Доброго дня.

megavolt86 писал(а): Не валяется какая никакая литературка по бейсик скриптам в винсиси?

К сожалению у меня таковой нет. Help-ContentsAndIndex, по моему, содержит достаточно информации.

megavolt86 писал(а): На данную строчку ругается с ошибкой

Что то мне подсказывает, что Вы где то в строке поставили лишний перевод строки. Например, так:
Set TestBinaryTag = HMIRuntime.Tags
("@NOTP::TestBinaryTag")
Из-за чего разорвалась "последовательность" и это не нравиться VBS-у. Попробуйте еще раз точно переписать скрипт из моего ответа (там по 4 строки в каждом скрипте).

Сообщение **VADR** » 01 ноя 2016, 10:37

Специально для текстовых исходников есть тег Code, который рекомендуется использовать в подобных сообщениях. Выглядит так:

Код: Выделить всё

Dim TestBinaryTag
Set TestBinaryTag = HMIRuntime.Tags("@NOTP::TestBinaryTag")
TestBinaryTag.Value = 0
TestBinaryTag.Write

Сообщение **megavolt86** » 01 ноя 2016, 12:13

KIgor писал(а): Попробуйте еще раз точно переписать скрипт из моего ответа

переписали вот что полчилось:

ошибка.png

(newtag1 - мой тэг)скрипт не сохраняется, но только уже на другую строчку ругается...

в хелпе VBS не охвачен толком...только поверхностно и примеров не нашел(

Сообщение **KIgor** » 01 ноя 2016, 15:05

Доброго дня.
У Вас первые 2 строки совсем не такие как в приведенном примере (и тег Code не помог)
Для простого выбора тэга в редакторе VBS есть спец кнопка (смотрите рисунок).

VBS tag.jpg

Сообщение **KIgor** » 01 ноя 2016, 16:12

Доброго дня.
Ошибся. Привел скрипт для экрана (мнемосхемы), а требовалось для фейсплейта. Прошу меня простить.

На рисунке пример для фейсплейта.

VBS Tag1.jpg

Сообщение **megavolt86** » 01 ноя 2016, 16:15

KIgor писал(а): У Вас первые 2 строки совсем не такие как в приведенном примере (и тег Code не помог)Для простого выбора тэга в редакторе VBS есть спец кнопка

Тьфу блин)))) у меня в браузере отобразился код по другому:

wp_ss_20161101_0004.png

Кнопками пользуюсь, винсиси то вроде не сильно мудреный, единственное скрипты для меня тёмный лес)))

Сообщение **megavolt86** » 02 ноя 2016, 10:04

KIgor писал(а): пример для фейсплейта.

Получилось!
Большое спасибо за помощь!