ActiveNTocol
El ActiveNTocol.ocx es un control ActiveX que le permite al programador interactuar con Controladores Lógicos Programables (PLC) que sean compatibles con el protocolo NEWTOCOL de Panasonic®, permitiendo el monitoreo y modificación (On Line) de los datos en memoria mediante una simple conexión con su PC por medio del puerto serie RS-232. Permitiendo así crear una muy grande variedad de aplicaciones para la industria de la automatización.
Compatibilidad con los PLC:
Toda la serie FP (FP-e, FP0, FPå, FPx, FP1, FP2, FP3, FPM, FP-C, FP10SH)
Lista de Métodos y Funciones disponibles:
Manejo del puerto COM: (Ver Ejemplos)
OpenPort
ClosePort
IsValidPort
Comandos de lectura/Escritura con el PLC:
Funciones de Conversión: (Ver Ejemplos)
CDecToHex
CHexToDec
CDecToBin
CBinToDec
CDecToOct
COctToDec
CstrToArray
CArrayToString
Estado del PLC y Validación de datos:
Newtocol y Panasonic son marcas registradas miembro del grupo Matsushita
Ejemplo de un Indicador Analógico de Nivel
De manera muy sencilla podrá utilizar la lectura de un valor de memoria del PLC para brindar información al usuario de forma analógica.
Cargue, explore y ejecute este proyecto conectándolo a su PLC de la línea FP. En este ejemplo se cambia de color cuando el nivel está por debajo del mínimo a fin alertar visualmente al usuario.
Disfrute de la potencia del componente ActiveNTocol.Ocx.
Código del Ejemplo Nivel de Tanques:
‘Autor: F.P
‘Este ejemplo muestra cómo utilizar la lectura de un valor de DT
‘para mostrarlo de manera analógica en un control de nivel en tanques
‘
Option Explicit
Dim Nivel As Integer
Const MaxLevel As Long = 400 ‘Indica el valor máximo a leer
Const MinLevel As Long = 0 ‘Indica el Valor mínimo a leer
Const MaxHeight As Long = 3495 ‘Valor de Shape1.Height o altura máxima de Shape1
Const MaxTop As Long = 720 ‘Valor de Shape1.Top en el formulario
Const AlertLevel As Long = 100 ‘Indica Nivel Mínimo de Alerta al usuario
Private Sub Command1_Click()
If Val(Text1.Text) < MinLevel Or Val(Text1.Text) > MaxLevel Then
MsgBox «Debe ingresar un valor entre 0 y 400»
Exit Sub
End If
‘Grabo el Valor en el PLC a efectos de poder visualizar las variaciones del nivel
‘del tanque de este ejemplo.
‘En la Práctica normalmente esto lo hará un sensor Analógico
Call ActiveNTocol1.WriteData(1, 100, 100, Val(Text1.Text))
‘Leo el valor desde el PLC y lo
Nivel = ActiveNTocol1.ReadData(1, «D», 100, 100)
Label5.Caption = Nivel & » Lts.»
Calculo la altura de Shape1 para ajustar el nivel
Shape1.Height = Nivel * MaxHeight / MaxLevel
Shape1.Top = MaxTop + MaxHeight – Shape1.Height
‘Cambio de color si está en el Nivel Mínimo
If Nivel <= AlertLevel Then
Shape1.FillColor = &HFF&
Else
Shape1.FillColor = &HC000&
End If
End Sub
Private Sub Form_Load()
ActiveNTocol1.SerialPort = 1 ‘Especifico el puerto que voy a abrir
ActiveNTocol1.BaudRate = 9600
ActiveNTocol1.BitDataLength = 8
ActiveNTocol1.OpenPort ‘Abro el Puerto Com1
Shape1.Height = MinLevel ‘Fuerza al nivel mínimo para iniciar
End Sub
Private Sub Form_Terminate()
ActiveNTocol1.ClosePort
End Sub