Вход на форум 
В начало e-Mail

Форум

Ресурсы Rockwell

Product Directory

Essential Components

Literature Library

Knowledge Base

Electronic News&Magazines

Блог

Encompass Program

Product Certification

  
Smart Solutions VDT :: Просмотр темы - VBA и FactoryTalk View SE
 FAQFAQ   ПоискПоиск   ГруппыГруппы   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

VBA и FactoryTalk View SE

 
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации
Предыдущая тема :: Следующая тема  
Автор Сообщение
Bezumniy
Новичок
Новичок


Зарегистрирован: Apr 11, 2008
Сообщения: 9
Рейтинг: +0/-0

СообщениеДобавлено: Сб 09 Окт, 2010 3:48:09    Заголовок сообщения: VBA и FactoryTalk View SE Ответить с цитатой

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

Подскажите пожалуйста как в VBA для FT View SE
прочитать значение тега и записать значение в тег.
Например, в RSView32 значение тега можно было прочитать так:
Set a = gTagDb.GetTag("имя_тега")
ну и запись в тег примерно аналогична. А как это сделать в SE ?
подобные классы и методы уже не работают...

в KB нашел такой закрытый топик:
22114 - How To Read and Write Tags in Display Client VBA Code
Если можно, раскройте его содержимое.

Спасибо
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
maxim
Эксперт
Эксперт


Зарегистрирован: Feb 16, 2007
Сообщения: 123
Рейтинг: +7/-0
Откуда: Енакиево

СообщениеДобавлено: Пн 11 Окт, 2010 7:05:25    Заголовок сообщения: Ответить с цитатой

Здравствуйте, можете пробовать так:
1. Записать значение в тег
Код:

ExecuteCommand "&Set test 5  "      // test - переменная куда пишем, 5 - значение которое пишем
ExecuteCommand "&Set test temp "  // test - переменная куда пишем, переменная с которой пишем

2.Можно и так:
Код:
Dim gGroup
Dim tTag As Tag

функция для записи

Код:

Sub tWrite(ByVal a As String, ByVal b)
gGroup.Add a
gGroup.Active = False
Set tTag = gGroup.Item(CStr(a))
    tTag.Value = b
End Sub

функция для чтения

Код:
Public Function tRead(ByVal a As String, b As Integer) As Integer
gGroup.Add a
gGroup.Active = False
Set tTag = gGroup.Item(CStr(a))
    b = tTag.Value
End Function



Код:
пишем

Set gGroup = Application.CreateTagGroup("/MyArea", 250)
    gGroup.Active = True
tWrite "test", temp

читаем

Set gGroup = Application.CreateTagGroup("/MyArea", 250)
    gGroup.Active = True
tWrite "temp", test


Удачи.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Smart Solutions VDT -> Программные средства систем автоматизации Часовой пояс: GMT + 1
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах

Powered by phpBB © 2001, 2005 phpBB Group
Яндекс цитирования

Smart Solutions VDT GmbH | Friedrich-List-Allee 38, D-41844 Wegberg-Wildenrath, Germany
Tel.: +49 2432 933 57 83 | e-Mail: office@vdt-solutions.de
Все товарные знаки и торговые марки являются собственностью их владельцев.
При использовании материалов сайта ссылка на данный сайт обязательна.
Открытие страницы: 0.126 секунды
/n