Зарегистрирован: Mar 12, 2012 Сообщения: 64 Рейтинг: +0/-0
Добавлено: Пн 23 Dec, 2013 11:38:43 Заголовок сообщения: Возможно ли в factorytalk через events запуск программы vba?
Подскажите как можно организовать глобальный скрипт (VBA программу) в FT, с циклом 1 минута????
Вообщем смысл такой. Есть программа vba предназначенная для записи определенных тегов в файл, это нужно делать с периодом 1 минута. Сейчас программа висит на нажатие кнопки. Дальше не знаю организовать переодический цикл...
Вообщем решил свою проблему!!! Создал дисплей, который будет всегда открыт, это можно сделать, например, прикрепив дисплей к верхней кромке экрана макросом загружаемым клиентом типа
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 GmbH | Friedrich-List-Allee 38, D-41844 Wegberg-Wildenrath, Germany Tel.: +49 2432 933 57 83 | e-Mail: office@vdt-solutions.de Все товарные знаки и торговые марки являются собственностью их владельцев.
При использовании материалов сайта ссылка на данный сайт обязательна. Открытие страницы: 0.127 секунды