![]() |
Доступ к ОРС - серверу через VBA и Genesi |
Ответить ![]() |
Автор | |
![]() Новичок ![]() Присоединился: 30 Январь 2006 Категория: Russian Federation Online Status: Offline Публикации: 14 |
![]() ![]() ![]() ![]() Опубликовано: 30 Январь 2006 07:47 |
Как получить доступ к OPС серверу используя VBA и Genesis 32 |
|
![]() |
|
![]() Новичок ![]() Присоединился: 07 Сентябрь 2005 Категория: Russian Federation Online Status: Offline Публикации: 35 |
![]() ![]() ![]() ![]() |
А для записи: Sub SetPointValue(PointName As String, NewValue As Variant) On Error GoTo ErrorLabel Dim Point As GwxPoint Set Point = ThisDisplay.GetPointObjectFromName(PointName) Point.Value = NewValue Set Point = Nothing Exit Sub ErrorLabel: End Sub В качестве PointName передается полный адрес тега, например: Fastwel.Plcnetopc.1\UltraNet.M.M1DatConfig Если возникнут проблемы, можно дополнительно использовать промежуточную привязку тега к псевдониму на мнемосхеме: '======================================================= Sub SetDefPointValue(AliasName As String, PointName As String, NewValue As Variant) If ThisDisplay.SetAliasDefinition(AliasName, PointName) Then Call SetPointValue(PointName, NewValue) Else ShowMsgBox ("Ошибка: псевдонима " + AliasName + " не существует") End If End Sub |
|
![]() |
|
![]() Новичок ![]() ![]() Присоединился: 15 Октябрь 2007 Категория: Russian Federation Online Status: Offline Публикации: 12 |
![]() ![]() ![]() ![]() |
А если тег типа bool, и равен 0, а ему необходимо присвоить 1, как это реализуется?
|
|
Татьяна
|
|
![]() |
Ответить ![]() |
Переход на форум | Права доступа на форуме ![]() Вы не можете публиковать новые темы в этом форуме Вы не можете отвечать на сообщения в этом форуме Вы не можете удалять Ваши сообщения на этом форуме Вы не можете редактировать Ваши сообщения на этом форуме Вы не можете создавать голосования на этом форуме Вы не можете выражать своё мнение в голосованиях на этом форуме |