Tarjeta FISCHER - Programación en Visual Basic

La programación de este caso se estructura en los siguientes pasos.

Se crea un nuevo proyecto EXE Estándar.

Agregar un Modulo Existente, éste será un modulo para la programación en Visual Basic que nos proporciona Fischer. El modulo se denomina “Fischer”. Este modulo añadido se puede modificar agregando variables.

Se agregará un modulo nuevo en el cual crearemos los procedimientos necesarios para que la grúa pueda efectuar las diferentes clases de movimientos que pueda realizar. Uno de estos procedimientos será para que la grúa gire a la izquierda, al procedimiento lo llamaremos “giraizquierda”, cuyo código mostramos a continuación:

Public Sub giraizquierda()
Call Motor(1, "I")
motores = True
End Sub

Dentro de este procedimiento se llama a la función “Motor” que ha sido declarada en el modulo “fischer.bas”.

Hay que agregar un objeto del tipo “Microsoft Comm Control 6.0”, dentro del formulario donde trabajaremos. Si en la barra de herramientas no existe un objeto del tipo MSComm, identificado por un icono de un teléfono, deberá añadirlo a la barra de herramientas del siguiente modo:

1.- Seleccionar el menú “Proyecto”.

2.- Elegir la opción “Componentes”.

3.- Buscar el componente del tipo “Microsoft Comm Control 6.0”.

4.- Aceptar.

Este objeto que se meterá en el formulario, se utilizará para que el PC pueda establecer comunicación con la controladora fischer. Al objeto lo denominaremos “FischerComm”, el cual se va a utilizar en el procedimiento “fischer_inicio”.

Public Sub fischer_inicio()
FormFischer.FischerComm.CommPort = 1
FormFischer.FischerComm.Settings = "9600,N,8,1"
FormFischer.FischerComm.InputLen = 0
FormFischer.FischerComm.PortOpen = True
Call apagar_motores
End Sub

Carga del formulario.
Private Sub Form_Load()
Call fischer_inicio
End Sub

Dentro del formulario se crearán varios botones para que realicen distintas acciones, como por ejemplo que la grúa gire a la izquierda. Para ello cada botón llamará a la función “giraizquierda” creada en el modulo nuevo. A continuación mostramos el código del botón girar izquierda.

Private Sub Command1_Click()
Call giraizquierda
End Sub

También en el formulario se creará un procedimiento de control, el cual interpreta el dato leído en las entradas digitales para a continuación realizar la acción que corresponda a ese dato, activando las salidas digitales adecuadas. Por ejemplo, si el dato leído en las entradas digitales indica que la grúa ha llegado al tope izquierdo, entonces se activarán las salidas digitales adecuadas para que la grúa gire en el sentido contrario.

El procedimiento de control incluye un Timer para que vaya leyendo el valor de las entradas digitales continuamente. A continuación mostramos parte del procedimiento.

Private Sub Timer1_Timer()
Dim E As Byte
E = Leer_Entrada_Digital()
Select Case Dato
Case 1
motor1 = “I”'La grúa gira a la izquierda
Call Motor(1, “I”)
.
.
End Sub

Una vez terminado el proyecto, éste se guarda y pulsa F5 o el botón Iniciar para ejecutar la aplicación.

Una vez comprobada que la aplicación funciona, se creará un archivo ejecutable del proyecto creado.

Puede descargarse desde este enlace que viene a continuación los diferentes archivos que forman todo el proyecto.