Как прочитать тег factorytalk se на vba

[anforcer]

Помогите пожалуйста , приведите код программы vba factorytalk se для чтения и записи тегов. Тени все находятся в корне, отдельной группы для них не создавал

[anforcer]

Поясните мне пожалуйста назначение функции application.createtaggroup(me.areaname) . Никак не могу его понять. Изначально мои теги в проекте не сгруппированы, мне сито сейчас надо их в группу объединить? Вот код программы чтения которую поглядел у других

Dim tgroup as taggroup
Dim ttag as tag
Dim tvalue as integer
Set tgroup=application.createtaggroup(me.areaname)
Set ttag=tgroup.item("primer") ' primer название тега
Tvalue=ttag.value

Все

У других видел такие строки

Tgroup.active=true

Они то для чего???

И что делать с этим taggroup?

[anforcer]

Вообщем ошибка получается tag was not found in the collection
Что не так сделал?

[Olga_Z]

dim WithEvents oGroup as TagGroup

Private Sub Button4_Press() 'при нажатии на кнопку
dim oTag_f as Tag
dim oValue as Variant

On Error Resume Next
Err.Clear
If oGroup Is Nothing Then
Set oGroup = Application.CreateTagGroup(Me.AreaName, 500)
If Err.Number Then
LogDiagnosticsMessage "Error creating TagGroup. Error: " & Err.Description, ftDiagSeverityError
Exit Sub
End If

oGroup.Add "tag1"
oGroup.Active = True
End If
Set oTag_f = oGroup.Item("tag1")
Err.Clear

oTag_f.Value = 1 'запись в тег
oValue=oTag_f.Value 'чтение
End Sub

в справке все подробно описано...

[anforcer]

Похоже загвоздка была в этом:

oGroup.Add "tag1"
oGroup.Active = True


В справке все написано не "по-русский", всю информацию сгромоздили в кучу, а достаточно лишь одного толкового примера! Спасибо.

Подскажите еще, как можно организовать глобальный скрипт (VBA) программу в FT, с циклом 1 минута???? У меня есть постоянно активный дисплей, в его теле пишу программу как Display_Activate... только вот цикл обработки не указан

[Olga_Z]

1. Создайте на своем экране (который всегда активен) тег типа boolean и сделайте его невидимым.
2. В контроллере заведите таймер и раз в минуту записывайте в созданный тег 1.
3. вызывайте свою процедуру по изменению тега (в программе добавить проверку если тег=1).

Может быть можно и проще, но я пока не придумала как...

[anforcer]

[dv_]