Здравствуйте!
Среда разработки - FactoryTalk View Studio 6.10.00 (CPR9 SR4)
Задача:
1. Генерировать сообщение о текущем пользователе при старте проекта в FactoryTalk SE Client (например: текущий пользователь - оператор).
2. При смене пользователя в рабочем проекте тоже генерировать сообщения о текущем пользователе.
3. Пересылать текущее имя пользователя в ПЛК (1756-L61)
1-е решил, взводя memory-тег в 1 (сообщение по On) в events. Конечно, не очень красивый способ, может кто другой способ посоветует?
2-е - есть вопрос. На дисплее (где расположил кнопку с action Login) создал для теста 2 NumericInput с свойством visible соответственно при CurrentUserName( ) = "admin" и CurrentUserName( ) = "operator". Connections - 2 digital memory-tags с alarm о соотв. текущем пользователе. Vba-code следующий:
Код:
Private Sub NumericInput63_Change()
Dim bIsVisible As Boolean
bIsVisible = NumericInput63.Visible
NumericInput63.Value = 1
If bIsVisible = True Then
NumericInput63.Value = 1
NumericInput63.Download
Else
NumericInput63.Visible = True
NumericInput63.Value = 0
NumericInput63.Download
NumericInput63.Visible = False
End If
Exit Sub
End Sub
Private Sub NumericInput64_Change()
Dim bIsVisible1 As Boolean
bIsVisible1 = NumericInput64.Visible
NumericInput64.Value = 1
If bIsVisible1 = True Then
NumericInput64.Value = 1
NumericInput64.Download
Else
NumericInput64.Visible = True
NumericInput64.Value = 0
NumericInput64.Download
NumericInput64.Visible = False
End If
Exit Sub
End Sub
3-е (пересылка текущего имени пользователя в ПЛК) - тоже и на том же дисплее создал два StringInput с visible соответственно при CurrentUserName( ) = "admin" и CurrentUserName( ) = "operator" и скриптом:
Private Sub StringInput3_Change()
If StringInput3.Visible = True Then
If Not StringInput3.Value = "operator" Then
StringInput3.Value = "operator"
StringInput3.Download
End If
End If
End Sub
Private Sub StringInput4_Change()
If StringInput4.Visible = True Then
If Not StringInput4.Value = "admin" Then
StringInput4.Value = "admin"
StringInput4.Download
End If
End If
End Sub
Итог: все работает, но при runtime в логе пишется - VBA-scropt error. Type mismatch. Где причина? Есть ли другие способы генерирования сообщений о текущих пользователях и передачи имен пользователей в ПЛК при их смене?
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
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.121 секунды
FAQ
Поиск
Группы
Профиль
Войти и проверить личные сообщения
Вход
