hola xadap mira no conozco el qbacic qie mencionas pero te comento que yo se poco y nada de vb y logre hacer una aplicacion sensilla que controla perfectamente el puerto. calculo que si saves programar es ese programa que mencionas sabras lo que es un if, un select case, una constante y una varible. bueno con solo esos conosimientos y la gran ayuda del post de BADBYTE-K logre hace esto.
fijate es este post
http://foro.elhacker.net/index.php/topic,48748.0.htmly sige todos los pasos.
y seguramente aqui hay gente que save mucho mas pero aqui mi umilde colaboracion.
una ves que tengas el modulo puedes mandar ordenes al puerto coniendo por ejemplo Out &H378, 255
en el modulo pegas este codigo
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)
yo por ejemplo puse un text al cual en el evento change le agrege este codigo
Out &H378, text1.text
y todo lo que escriba en el text se envia el puerto paralelo podrias tambien definir que en ese text se escriban solo numeros y algo que yo hice para evitar un error de desvordamiento es esto mira
if text1.text > 255 then
Out &H378, text1.text
else
msgbox "la representacion maxima de o bits en decimal es de 255"
Out &H378, 255
end if
y con eso logre que si escribo 256 no le evie ese numero al puerto y me salga esa advertencia y le agrege que me dejara en 255 el estado del puerto suponiendo que si uno quiere poner por ejemplo 290 es porque quiere encender todos los leds
yo tambien soy novato en esto de Vb y por eso no estoy seguro ya que ahora estoy en el trabajo no tengo vb pero fijate si no te funca la instruccion de envio
Out &H378, text1.text
pon el dato a enviar entre comillas
Out &H378, "text1.text"
no recuerdo como lo hice y tampo si hacia falta el signo = en el medio jeje
Out &H378, text1.text
Out &H378, "text1.text"
Out &H378, = text1.text
Out &H378, = "text1.text"
prueva con estos estoy seguro que uno de esos 4 es el que hace lo que pretendemos. aclaro que en mi caso la salida del puerto no era 378 si no que es 379 pero en el post que te mencione antes el de BADBYTE-K te explica como saver cual es la direccion de tu puerto es muy facil de verlo.
bueno espero aver ayudado un poco ya que me siento en deuda con ustedes porque de no ser por estos post no podria averlo echo yo.
y a los que mas saven.. espero no les moleste que trate de explicar algo que ya explicaron ustes antes.
chau
salu2
y suerte.
Mostrar Mensajes
