Современные технологии автоматизации» («СТА») —  журнал для квалифицированных специалистов по промышленной автоматизации Форум СТА — современные технологии автоматизации Домашняя страница
Домашняя страница форума CTA Домашняя страница форума CTA > II. АСУТП и SCADA > Программное обеспечение
  Активные темы Активные темы
  FAQ FAQ  Искать в форуме   Зарегистрироваться Зарегистрироваться  Вход в систему Вход в систему

Мнемосхема в GraphWorX-Вопрос о кнопках

 Ответить Ответить
Автор
Сообщение
sevgeniy Смотреть выпадающим
Новичок
Новичок


Присоединился: 04 Декабрь 2006
Категория: Russian Federation
Online Status: Offline
Публикации: 4
Свойства публикации Свойства публикации   Ответить, цитируя автора - sevgeniy Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Тема сообщения: Мнемосхема в GraphWorX-Вопрос о кнопках
    Опубликовано: 17 Май 2007 12:44
Здравствуйте, уважаемые коллеги.
Помогите, пожалуйста, новичку.

Ситуация следующая:На мнемосхеме GraphWorX есть 3 кнопки "Button1","Button2" и "Button3"."Button1" и "Button2" настроены ("Пока нажато"+"С Фиксацией"+"Нач. сост. Нажато"), а кнопка "Button3" настроена ("Если нажато"+"Без фиксации")

Задача:Необходимо, чтобы по нажатию на кнопку "Button3", кнопки "Button1" и "Button2" переключились в состояние "Отпущено"

Вопрос:Как реализовать это средствами VBA? Средствами GraphWorX?

P.S Еще раз оговорюсь, в Genesis я новичек, поэтому просьба над поставленным вопросом просьба не сильно смеяться.
Наверх
flexlogix5434 Смотреть выпадающим
Действительный член
Действительный член
Аватар

Присоединился: 27 Ноябрь 2006
Категория: Albania
Online Status: Offline
Публикации: 134
Свойства публикации Свойства публикации   Ответить, цитируя автора - flexlogix5434 Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Опубликовано: 21 Май 2007 11:43
эээ... ну, принципиально:
у кнопки в Pick выбираешь Action => Run VBA Script
задаешь ScriptName...
ну, а сам скрипт, собссно - элементарная техника программирования
Смейся, и весь мир будет смеяться вместе с тобой.
Плачь, и ты будешь плакать в одиночестве.
Наверх
MuadDib Смотреть выпадающим
Действительный член
Действительный член
Аватар

Присоединился: 27 Июль 2006
Online Status: Offline
Публикации: 304
Свойства публикации Свойства публикации   Ответить, цитируя автора - MuadDib Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Опубликовано: 22 Май 2007 07:54
Очень просто:

Sub PickButton(o As GwxPick)

Dim Button1 As GwxPick
Dim Button2 As GwxPick

Set Button1 = ThisDisplay.GetDynamicObjectFromName("Button1")
Set Button2 = ThisDisplay.GetDynamicObjectFromName("Button2")
Call Button1.SimulateClick(MouseButtonLeft)
Call Button2.SimulateClick(MouseButtonLeft)

End Sub

Этот скрипт должен быть привязан к клику на Button3. Имена Button1 и Button2 должны быть заданы в поле Object name на вкладках Pick кнопок 1 и 2
Теория - это когда все знаешь, но ничего не работает.
Практика - это когда все работает, но никто не знает как.
Наверх
sevgeniy Смотреть выпадающим
Новичок
Новичок


Присоединился: 04 Декабрь 2006
Категория: Russian Federation
Online Status: Offline
Публикации: 4
Свойства публикации Свойства публикации   Ответить, цитируя автора - sevgeniy Ответить, цитируя автора -  ОтветитьОтвет Прямая ссылка на эту публикацию Опубликовано: 23 Май 2007 08:17

Огромное спасибо.Все оказалось проще чем я думал.Всем откликнувшимся спасибо.

Наверх
 Ответить Ответить

Переход на форум Права доступа на форуме Смотреть выпадающим

Bulletin Board Software by Web Wiz Forums® version 9.64
Powered by Web Wiz Forums Free Express Edition
Copyright ©2001-2009 Web Wiz