Tengo un pequeña duda a la cual no le he podido encontrar respuesta ;lo que necsito hacer es super sencillo para ustedes pèro para mi no esta muy claro todavia es sacar 1 y 0 por el puerto LPT y un software en visualbasic 6.0.
lo que necesito es que cada pin de dato (2 - 9 ) prenda un led osea serian 8 leds he intentado de todas la manera posibles miren como tengo el modulo de mi programa en visual es el siguiente :
si me pueden ayudar y decirme como hacer esto para que solo prenda los leds que necesito en mi protoboard les agradeseria el software es muy sencillo tiene 8 botones cada uno para cada led
muchas por la atencias les agradesco el poderme ayudar
el codigo que tengo para el bonton es el siguiente
lo que necesito es que cada pin de dato (2 - 9 ) prenda un led osea serian 8 leds he intentado de todas la manera posibles miren como tengo el modulo de mi programa en visual es el siguiente :
y cuando lo ejecuto me sale el siguiente error Visual Basic ha detectado un problema y debe cerrarse. he bajado ya como 10 archivos dll inpout32.dll pero nada la ruta donde los estoy metiendo es la siguiente C:\WINDOWS\system32 creo que es ahi y sin embargo sigue pasando lo mismo .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)
si me pueden ayudar y decirme como hacer esto para que solo prenda los leds que necesito en mi protoboard les agradeseria el software es muy sencillo tiene 8 botones cada uno para cada led
muchas por la atencias les agradesco el poderme ayudar
el codigo que tengo para el bonton es el siguiente
alguien me lo dio pero me dijo que era para generar una secuencia en los leds yo solo necesito es que prenda solo uno en cada botonPrivate Sub Command1_Click()
For x = 0 To 7
valor = 2 ^ x
Out &H378, valor
For y = 1 To 1000000 '''este seria el retardo para que prendan
v = v + 1
Next y
Next x
Out &H378, 0
End Sub