opcautomation.dll

[osman1231]

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

 

[macix]

Arkadaşım VB Bilgim az fakat incelemek için daha önce indirdiğim bir projeyi paylaşıyorum

http://www.prosesturk.com/Download/OPC Dot NET.rar


Projede VBSample örneği OPCdotNETLib projesinde oluşturulan dll i referans alıyor.

 

[ergincetin]

Merhaba macix OPCDotNET.rar projeni tekra yukleyebilirmisin bende buna benze bir hata var bir türlü çözemedim teşekürederim