SourceGin
Member
I've Started a VB2012 Project Looking at a OPC Topic in Rslinx Just wanting my tag value to show up in TextBox1.Text Any Idea's why it isn't or anyone have a better Code base to accomplish this /
'//Using RSiOPCAuto.dll
Imports RsiOPCAuto
Imports OPCAutomation
Imports Microsoft.Office
Public Class Form1
Dim MyOPC1 As RsiOPCAutPCServer
Dim WithEvents OPCServer1 As RsiOPCAutPCServer
Dim WithEvents OPCGroup1 As RsiOPCAutPCGroup
Dim MyOPCItems() As RsiOPCAutPCItems
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim OPCitems1 As ArrayList
MyOPC1 = New RsiOPCAutPCServer
'OPCServer1 = New RsiOPCAutPCServer
'OPCServer1.Connect("RSLinx OPC Server")
'OPCServer1.Connect("RSLinxEnterprise.OPCServer")
MyOPC1.Connect("RSLinx OPC Server")
OPCGroup1 = MyOPC1.OPCGroups.Add("REPORTING")
'ReDim OPCitems(1)
MyOPCItems(1) = OPCGroup1.OPCItems.GetOPCItem("[REPORTING]COUNTDATA2.ACC")
TextBox1.Text = MyOPCItems(1)
'//Using RSiOPCAuto.dll
Imports RsiOPCAuto
Imports OPCAutomation
Imports Microsoft.Office
Public Class Form1
Dim MyOPC1 As RsiOPCAutPCServer
Dim WithEvents OPCServer1 As RsiOPCAutPCServer
Dim WithEvents OPCGroup1 As RsiOPCAutPCGroup
Dim MyOPCItems() As RsiOPCAutPCItems
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim OPCitems1 As ArrayList
MyOPC1 = New RsiOPCAutPCServer
'OPCServer1 = New RsiOPCAutPCServer
'OPCServer1.Connect("RSLinx OPC Server")
'OPCServer1.Connect("RSLinxEnterprise.OPCServer")
MyOPC1.Connect("RSLinx OPC Server")
OPCGroup1 = MyOPC1.OPCGroups.Add("REPORTING")
'ReDim OPCitems(1)
MyOPCItems(1) = OPCGroup1.OPCItems.GetOPCItem("[REPORTING]COUNTDATA2.ACC")
TextBox1.Text = MyOPCItems(1)