puerto paralelo!

[Sancho.Mazorka]

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:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir

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   

[Krnl64]

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

[Kpax]

del pin 18-25 no funcionan man