Hola people miren estuve leyendo el manual del puerto paralelo en la sección de electronica y lo intente, coloque 1 xtremo del led en el pin 2 del puerto y el otro xtremo a el pin 25 y en vb puse esto:
Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (byvalPortAddress As Integer) As Integer
Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal portaddress As Integer, ByVal value As Integer)
Private Sub form_load()
Out &H378, 2
End Sub
con ese code el vb se cierra y no se prende el led tambien use la dll IO con este code:
Private Declare Sub PortOut Lib "IO.DLL" (ByVal Port As Integer, ByVal Data As Byte)
Private Sub Form_load()
PortOut &H378, 2
End Sub
y asi tampoco anda, espero que alguien me tenga la solucion xq yame estoy volviendo loco XD. Gracias y salu2
Sancho.Mazorka :P
Mira este link.
http://www.todorobot.com.ar/proyectos/paralelo/paralelo.htm
Con el code de ese proyecto, a mi me funciona perfectamente.
Y es mas sencillo
Salu2
del pin 18-25 no funcionan man