Leandro la idea del progrma es obtener la lectura del peso de una bascula electrónica
y luego procesar esa información. Para hacer las pruebas estoy utilizando un
simulador de RSLogix que es el que me genera los datos. Cuando hago las pruebas
usando la dll de rockwell RsiOPCAuto.dll el programa funciona bien, y captura
el peso generado por el simulador, pero esa dll necesita licencia, por lo que necesito
usar OPCAutomation.dll que es free.
el programa compila bien, pero al ejecutar ni si quiera deja crear el objeto servidor porque aparece este error:
Error al recuperar un generador de clases COM para el componente con
CLSID {28E68F9A-8D75-11D1-8DC3-3C302A000000}
debido al siguiente error:80040154
//la clase que hace la conexión importa las librerias
Imports System.Runtime.InteropServices
Imports OPCAutomation
//se declaran las variables del opc
Dim objServidor As OPCServerClass
Dim objGrupos As OPCGroupsClass
Dim WithEvents objGrupo As OPCGroupClass
Dim objItems As OPCItems
Dim objItem(99) As OPCItem
//y tiene una función LeerValor que devuelve el peso
Public Function LeerValor(ByVal Servidor As String, ByVal Nodo As String, ByVal Grupo As String, ByVal Item As String) As Object
Dim ValorActual As Double
'Creacion del objeto Servidor
objServidor = New OPCAutomation.OPCServerClass() ' //aqui es donde aparece el error
'Conexion al Servidor OPC
objServidor.Connect(Servidor, Nodo)
'Marshal para manejo de tipos de COM
objGrupos = CType(Marshal.CreateWrapperOfType(objServidor.OPCGroups, _
GetType(OPCGroupsClass)), OPCGroupsClass)
objGrupo = objGrupos.Add(Grupo)
objItems = objGrupo.OPCItems
objItem(0) = objItems.AddItem(Item, 0)
'Leer el valor actual de la variable
objItem(0).Read(1, ValorActual)
objServidor = Nothing
objGrupos = Nothing
objItems = Nothing
objItem(0) = Nothing
Return ValorActual
End Function
//en el formulario creo el objeto de la clase, llamo a la función leervalor
//y asigno el peso a una caja de texto
Dim objOPC As New OPCClass()
TextPeso.Text = objOPC.LeerValor(ServidorOPC, NodoOPC, GrupoOPC, ItemOPC)
