Cómo recibir la señal de salida en VB6 El uso de un puerto paralelo

Visual Basic no accede directamente a través de hardware de código de programación. Por lo tanto, no es compatible con la programación relacionada con los puertos paralelos. Sin embargo, una biblioteca de vínculos dinámicos, o DLL, llamada WIN95IO.DLL está disponible para este propósito. El puerto paralelo se compone de tres secciones diferentes, incluyendo líneas de datos, líneas de control y líneas de estado. Las líneas de datos son los principales métodos de obtención de información fuera del puerto.

Instrucciones

1 Descargar el archivo DLL. Descomprimir el archivo y copiarlo al directorio del sistema de Windows.

2 Haga clic en "Inicio", "Todos los programas" y "Visual Basic 6" para entrar en la interfaz de desarrollo integrado. Haga clic en "Archivo" y "Nuevo" para crear un nuevo proyecto. Especificar un nombre para el proyecto. Seleccione una ubicación para los archivos de proyecto, haga clic en "Examinar".

3 Haga clic en "Form1.vb" en el Explorador de soluciones. Haga clic en "Herramientas" y seleccione "Campo de texto" para crear un nuevo campo de texto. El sistema nombrará el campo de texto "Text1" automáticamente.

4 Haga doble clic en el formulario y entrar en la interfaz de código. Declarar lo siguiente para poder utilizar la DLL:
Declarar Sub "WIN95IO.DLL" vbOut Lib (ByVal nport como número entero, ByVal NDATA como número entero)
Declarar Sub "WIN95IO.DLL" vbOutw Lib (ByVal nport como número entero, ByVal NDATA como número entero)
Declare Function vbInp Lib "WIN95IO.DLL" (ByVal nport As Integer) As Integer
Declare Function vbInpw Lib "WIN95IO.DLL" (ByVal nport As Integer) As Integer

5 Recibir la señal desde el puerto paralelo a través del método vbInp. Introducir el código entre Sub y End Sub:
Dim como secuencia strin

strin = "&H" & Text1.Text
vbInp &H378, strin

H378 es la dirección del puerto para líneas de datos.