FPControl, Automating the world

 

Ver ejemplos para Excel 2007

Ejemplos de Programación en Microsoft Excel 2000/2003 

        Abra un nuevo proyecto  "EXCEL" para probar el componente. Haga Click en menú "Ver" + "Barra de Herramientas" + "Visual Basic" como se muestra en la siguiente figura, una vez que haya instalado el componente AutomationToolKit.ocx.

    Luego pulse el botón "Editor de Visual Basic"

Inserte un Nuevo Formulario.

Haciendo Click Derecho sobre el cuadro de herramientas, elija "Controles adicionales..." para agregar los controles ActiveNewTocol y AutomationToolKit al cuadro de herramientas, tal como se muestra en la siguiente figura.

Cambie la propiedad ShowModal a False en el formulario "UserForm1", luego pegue el/los controles que desea utilizar sobre el formulario como se muestra en el siguiente ejemplo.

Cambie la propiedad ShowNumbers a False en los instrumentos para que se muestre con una barra analógica.

 

El siguiente código muestra como utilizar los controles. En este caso se genera una valor variable "i" utilizando uno de los cinco Timers internos del componente ActiveNTocol (en éste caso renombrado a PLC) para el demo.

Dim i As Integer
Dim x As Integer

Private Sub cmdStart_Click()
        PLC.Timer1_Interval = 100
        PLC.Timer1_Enabled = True
End Sub


Private Sub cmdStop_Click()
        PLC.Timer1_Enabled = False
End Sub


Private Sub PLC_Timer1()
        '// Este ejemplo usa uno de los cinco Timers interno de ActiveNTocol
        '// para establecer una frecuencia de actualización de los instrumentos
        If i >= 100 Then
            x = -1
            i = 99
            End If
        If i = 0 Then
            x = 1
            i = 1
        End If

        i = i + x
        '//

        'Cambia el estado del led
        LedX1.SetState (Not LedX1.StateOn)

        'Asigno valores a los instrumentos.
        Instrument1.Value = CStr(i)
        Instrument2.Value = CStr(i)
        Instrument3.Value = CStr(i)
        Instrument4.Value = CStr(i)

        LCDPanel1.Value = i
        LCDPanel2.Value = i
        LCDPanel3.Value = i
        LCDPanel4.Value = i

        GaugeX1.Value = CStr(i)

        'Muestra valores en la hoja
        Hoja1.Activate
        Range("B6").Select
        ActiveCell.Value = i

        Range("B7").Select
        ActiveCell.Value = i + 1

        Range("B8").Select
        ActiveCell.Value = i + 2

        Range("B9").Select
        ActiveCell.Value = i + 3

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
        i = 0: x = 1
End Sub

 

Como agregar el componente "AutomationToolKit.ocx" a un proyecto Excel 2007:


    Para Agregar el componente en una Planilla Excel 2007 haga Click sobre el ícono botón de Office
en el ángulo superior izquierdo de la ventana Excel, luego pulse el botón "Opciones de Excel" ubicado
en la parte inferior derecha para acceder a la ventana de Opciones.

Habilite la Opción "Mostrar Ficha Programador en la cinta de Opciones" y luego pulse el botón Aceptar, esto hará visible la lengüeta
Programador. Entre a la lengüeta Programador.

Pulse el botón "Insertar Controles".

Luego pulse el botón "Mas Controles ..." y seleccione "ActiveNewTocol.ActiveNTocol" y el kit de componentes "AutomationToolKit", pulse Aceptar. Se han incluido los
controles .OCX de comunicación con el PLC.

Luego pulse el botón "Visual Basic”.

Haga Click Derecho sobre el proyecto, seleccione "Insertar" + "User Form". Luego pegue el Control ActiveNTocol.ocx y AutomationToolKit sobre el nuevo Formulario y comience a
desarrollar sus aplicaciones de administración de datos mediante Excel 2007.

 Luego pegue el Control ActiveNTocol.ocx y AutomationToolKit sobre el nuevo Formulario y comience a
desarrollar sus aplicaciones de administración de datos mediante Excel 2007.

Agregue el siguiente código en el formulario:

Dim idx As Integer
Dim ReadBuffer As String
Dim DT(9) As String


Private Sub btn1_Click()
     idx = 0
     Call RefrescarTablero
End Sub


Private Sub PLC_Timer1()

     'Se ha habilitado el Timer1 del Objeto ActiveNTocol (aquí llamado PLC) mediante la propiedad Timer1 Enabled = True
     idx = idx + 1  'Usamos idx para simular la lectura de datos aunque la planilla no esté conectada con un PLC
     If idx > 100 Then idx = 0

     '//Aquí realizo las lecturas de DT100 a DT109 del PLC de la estación 1
     ReadBuffer = PLC.ReadData(1, "D", 100, 109)
     '//Paso los datos leidos en el Buffer a un array para individualizarlos
     PLC.CstrToArray ReadBuffer, DT

     LCDPanel1.Value = Val(DT(0)) ' Mostramos el contenido de DT100 en el display

     '//

     Call RefrescarTablero
End Sub


Private Sub RefrescarTablero()
     Instrument1.Value = idx
     GaugeX1.Value = idx
     'LCDPanel1.Value = idx
     'LCDPanel2.Value = idx
End Sub

 

 

 

Automatizacion industrial, desde San Justo Para el Mundo