Visual Basic - CONTROLAR PUERTO PARALELO

Life is soft - evento anual de software empresarial
 
Vista:

CONTROLAR PUERTO PARALELO

Publicado por Juan Carlos (3 intervenciones) el 30/10/2002 01:06:48
hola
necesito ayuda para controlar los pines del puerto paralelo, si alguien sabe ayudenme por favor

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CONTROLAR PUERTO PARALELO

Publicado por Guido (71 intervenciones) el 05/11/2002 16:53:30
Existe una libreria Inpout32.dll que permite "leer"y "escribir" datos en los periféricos de la PC desde windows.
el puerto paralelo normalmente es la direccion &h378

Tendrías que conseguir esa DLL y luego en un modulo declarar sus 2 procedimientos asi:

Declare Sub Out Lib "Inpout32.dll" Alias "Out32" (ByVal Addr%, ByVal Bite As Byte)
Declare Function Inp Lib "Inpout32.dll" Alias "Inp32" (ByVal Addr%) As Byte

un ejemplo de llamada para conocer el estado de los pines es este:

Private Sub LeerPuerto()
Dim lectura As Byte

lectura = Inp(PuertoEntrada)

End Sub

El byte "Lectura" reflejará en cada bit el estado de cada pin

bueno. Espero te sirva de algo
surte

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar