Programación Específica > Programación de Aplicaciones para Dispositivos

 Captar Datos De Un Puerto Paralelo

(1/2) > >>

laux:
Buenas, quiero saber si este cód. me devuelve lo q esta entrando al puerto paralelo, me dirian uds. q les parece ?

en un modulo:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

en el form:
Private Sub Form_Load()
'me da 255  :alien:
Text1.Text = Str(Inp(Val(&H378)))
End Sub

Gracias,
Lau  :kicking:

© Jonathan ©:
Pareceria que funciona, no tengo experiencia en VB, lo ideal seria que coloques el post en el foro de VB y te sabran responder la duda. Cuando luches con el Hard nos comentas en este subforo ;). Saludos :)

hecktor00:
en un modulo:
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

en el form:
Private Sub Form_Load()
'me da 255  
Text1.Text = Str(Inp(Val(&H378)))
End Sub

asi es t devuelve el valor q se encuentra en puerto paralelo.

solo tienes q chekar las direcciones del puerto &H378, saber cual es para leer y cual para escribir

© Jonathan ©:
laux, esto te sera muy util :), es un tutorial para el puerto paralelo y tiene algo de VB. Un abrazo! :)

http://www.modelo.edu.mx/univ/virtech/circuito/dllvb.htm

laux:
Gracias, me han ayudado mucho sus informaciones-
A las ordenes,


Laux :kicking:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente