FPControl, Automating the world

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:

ReadData

ReadIOWord

ReadTimerAndCount

ReadOneBit

ReadMixedBits

SetOneBit

WriteData

WriteWordRelay

WriteTimerAndCount

 

    Funciones de Conversión:   (Ver Ejemplos)

CDecToHex

CHexToDec

CDecToBin

CBinToDec

CDecToOct

COctToDec

CstrToArray

CArrayToString

     

    Estado del PLC y Validación de datos:  

                    Status y BCC (Block Check Code)

ClearStatusText

 

 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

 

Automatizacion industrial, desde San Justo Para el Mundo