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

Форум

Ресурсы Rockwell

Product Directory

Essential Components

Literature Library

Knowledge Base

Electronic News&Magazines

Блог

Encompass Program

Product Certification

  
Smart Solutions VDT :: Просмотр темы - Возможно ли в factorytalk через events запуск программы vba?
 FAQFAQ   ПоискПоиск   ГруппыГруппы   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Возможно ли в factorytalk через events запуск программы vba?

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


Зарегистрирован: Mar 12, 2012
Сообщения: 64
Рейтинг: +0/-0

СообщениеДобавлено: Пн 23 Dec, 2013 11:38:43    Заголовок сообщения: Возможно ли в factorytalk через events запуск программы vba? Ответить с цитатой

Подскажите как можно организовать глобальный скрипт (VBA программу) в FT, с циклом 1 минута????
Вообщем смысл такой. Есть программа vba предназначенная для записи определенных тегов в файл, это нужно делать с периодом 1 минута. Сейчас программа висит на нажатие кнопки. Дальше не знаю организовать переодический цикл...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
anforcer
Постоянный участник
Постоянный участник


Зарегистрирован: Mar 12, 2012
Сообщения: 64
Рейтинг: +0/-0

СообщениеДобавлено: Пн 23 Dec, 2013 15:23:14    Заголовок сообщения: Ответить с цитатой

Вообщем решил свою проблему!!! Создал дисплей, который будет всегда открыт, это можно сделать, например, прикрепив дисплей к верхней кромке экрана макросом загружаемым клиентом типа

Display труляля /DT (труляля - имя дисплея)

Сам дисплей можно сделать нулевой толщины и пусть он висит там наверху сколько угодно. Дальше поставил в нем цифровой экран, к которому прикрепил тег system\Minute и в нем же написал код VBA на изменение его значение, заодно прописав для проверки так чтобы он записывал в тег "test" значение текущей минуты:


Public tgroup As TagGroup
Public ttag As Tag
-------------------------------------------------------
Private Sub NumericDisplay1_Change()


Set tgroup = Application.CreateTagGroup("/MyArea", 500)
tgroup.Active = True
tgroup.Add "test"
tgroup.Active = False
Set ttag = tgroup.Item("test")
ttag.Value = CInt(NumericDisplay1.Value)


End Sub

Таким образом можно быть уверенным что код будет срабатывать раз в минуту

ну или если хотите раз в 12 минут можно добавить вначале условие:

If NumericDisplay1.Value = 0 Or NumericDisplay1.Value = 12 Or NumericDisplay1.Value = 24 Or NumericDisplay1.Value = 36 Or NumericDisplay1.Value = 48
*
*
*
*
end if

Удачи всем!)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов 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.124 секунды
/n