Procedimiento Para Convertir Programa Visual Basic 6.0 LPT A USB

Procedimiento para convertir programa Visual Basic 6.0 LPT a USB

www.arossini.com.ar

Introducción

1) Este documento está redactado para quienes tengan experiencia en trabajar con programas en Visual Basic 6.0 que manejen el Puerto Paralelo.

2) El programa en Visual Basic 6.0 que maneja el puerto USB es del tipo MSComm1.

3) Se toma como referencia de MSComm1: Serie.doc

4) Se toma como referencia de LPT: ElectroEstimulador.doc

5) Se muestra como convertir:

Programa Electroestimulador.vbp en ElectroestimuladorUSB.vbp

Firmware Com Virtual CDC.mcp en EEUSB.mcp

6) Por ahora, solo se muestran salidas. El procedimiento para entradas es similar, pero lo veré por falta de tiempo en una próxima revisión.

7) Todo el procedimiento, incluyendo el diseño, me llevó sólo unas dos horas. Por lo tanto, juzgo que es rápido.

8) Usado Visual Basic 6.0 para el programa.

9) Usado MPLab IDE y C18 para el Firmware.

Salidas del LPT

D1: Onda positiva

D2: Onda negativa

Para controlar la salida usamos el comando Out Puerto, 4 'Dato 2 Pin 4 Cable azul

Salidas del USB

Las del LPT ahora las convertiremos a:

“0”: Onda positiva valor 0 y Onda negativa valor 0.

“1”: Onda positiva valor 1

“2”: Onda positiva valor 0

“3”: Onda negativa valor 1

“4”: Onda negativa valor 0

Seguimos la filosofía usada en Serie.vbp para encender y apagar LEDs. Todo el resto se debe eliminar.

Para controlar la salida usamos MSComm1.Output = “0” a “4”. Esto reemplazará a Out Puerto, 4.

Procedimiento

En Electroestimulador.vbp

Cambiar el nombre a Electroestimulador.vbp

Cargar el componente Microsoft Comm Control 6.0. Mantener su nombre MSComm1.

Modificar Private Sub Generar() a como está presentado en Electroestimulador.vbp

Eliminar porque ya no se usan

'Const Puerto = 48128 'Puerto de salida de señal LPT2

'Const Puerto = 888 'Puerto de salida de señal LPT1

Definir Dim Puerto 'Puerto Virtual

Copiar de Serie todo el Form Load y crear Private Sub EncontrarPuertoVirtual()

Borrar las líneas relativas a variables no usadas

Reemplazar todos los MSCommVirtual por MSComm1 (Para mantener el nombre original)

No hace falta modificar el frm.

Eliminar el INPOUT32Long.BAS porque no se usa más.

En Com Virtual CDC.mcp

Cambiar el nombre a EEUSB.mcp

En tareas.c, borrar todas las subrutinas y líneas que no se usan. Para ello primero marcarlas con //, y cuando todo ya funcione bien, borrarlas.

Acomodar las líneas relativas a LEDs, con la nueva nomenclatura y borrar las que sobran (Primero marcarlas y probar).

...