osman1231
Üye
- Katılım
- 17 Nis 2009
- Mesajlar
- 19
- Puanları
- 1
- Yaş
- 34
merhaba arkadaşlar visual basic.net ile bir program yazıyorum.referans olarak opcdaautomation.dll kullandım.bu dll ilk defa kullanıyorum.ve bir hata aldım.opcadditem kısmını yapmayı beceremedim sanırım.ıtemlerin valuelerini nasıl gösterebilirim.
kodları aşağıya ekliyrum.yardımlarınız için şimdiden teşekkürler
Dim WithEvents AnOPCServer As OPCAutomation.OPCServer
Dim WithEvents ConnectedOPCServer As OPCAutomation.OPCServer
Dim ConnectedServerGroup As OPCAutomation.OPCGroups
Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroup
Dim OPCItemCollection As OPCAutomation.OPCItems
Dim ItemCount As Long
Dim OPCItemIDs() As String
Dim ItemServerHandles() As Long
Dim ItemServerErrors() As Long
Dim ClientHandles(0) As Long
Dim a(1) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnectedServerName As String
ConnectedOPCServer = New OPCAutomation.OPCServer
ConnectedServerName = "PhoenixContact.AX-Server.21"
ConnectedOPCServer.Connect("PhoenixContact.AX-Server.21")
ConnectedServerGroup = ConnectedOPCServer.OPCGroups
ConnectedServerGroup.DefaultGroupIsActive = True
ConnectedServerGroup.DefaultGroupDeadband = 0
ConnectedGroup = ConnectedServerGroup.Add("DataGroup1")
ConnectedGroup.UpdateRate = 500
ConnectedGroup.IsSubscribed = True
ItemCount = 4
Dim i As Integer
For i = 0 To 1
OPCItemIDs(i) = "neue ressorce.onboard_input_bit0"
ClientHandles(i + 1) = i
Next i
OPCItemCollection = ConnectedGroup.OPCItems
OPCItemCollection.DefaultIsActive = True
OPCItemCollection.AddItems(ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors)
End Sub
kodları aşağıya ekliyrum.yardımlarınız için şimdiden teşekkürler
Dim WithEvents AnOPCServer As OPCAutomation.OPCServer
Dim WithEvents ConnectedOPCServer As OPCAutomation.OPCServer
Dim ConnectedServerGroup As OPCAutomation.OPCGroups
Dim WithEvents ConnectedGroup As OPCAutomation.OPCGroup
Dim OPCItemCollection As OPCAutomation.OPCItems
Dim ItemCount As Long
Dim OPCItemIDs() As String
Dim ItemServerHandles() As Long
Dim ItemServerErrors() As Long
Dim ClientHandles(0) As Long
Dim a(1) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ConnectedServerName As String
ConnectedOPCServer = New OPCAutomation.OPCServer
ConnectedServerName = "PhoenixContact.AX-Server.21"
ConnectedOPCServer.Connect("PhoenixContact.AX-Server.21")
ConnectedServerGroup = ConnectedOPCServer.OPCGroups
ConnectedServerGroup.DefaultGroupIsActive = True
ConnectedServerGroup.DefaultGroupDeadband = 0
ConnectedGroup = ConnectedServerGroup.Add("DataGroup1")
ConnectedGroup.UpdateRate = 500
ConnectedGroup.IsSubscribed = True
ItemCount = 4
Dim i As Integer
For i = 0 To 1
OPCItemIDs(i) = "neue ressorce.onboard_input_bit0"
ClientHandles(i + 1) = i
Next i
OPCItemCollection = ConnectedGroup.OPCItems
OPCItemCollection.DefaultIsActive = True
OPCItemCollection.AddItems(ItemCount, OPCItemIDs, ClientHandles, ItemServerHandles, ItemServerErrors)
End Sub