Onvertir 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 enVisual 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 tomacomo referencia de LPT: ElectroEstimulador.doc

5) Se muestra como convertir:

Programa Electroestimulador.vbp en ElectroestimuladorUSB.vbp

Firmware ComVirtual 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 LPTD1: 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”: Ondapositiva 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 enSerie.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

EnElectroestimulador.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 enElectroestimulador.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...