Mensajes

casi me olvido ahora pregunto yo como saven logre hacer que que yo queria, ahora, es muy incomodo tener la aplicacion simpre en pantalla si es que uno controla por ejemplo las luces de la casa por lo que me intersa saber como hacer para que esta aplicacion quede en la barra tray pero actiba y que haciendole un click se abra seria como el nsn que siempre esta abierto pero solo lo muestro en pantalla cuando yo lo quiero. se puede esto con Vb? y como seria?
gracias.
salu2

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.html

y 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 saber 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.

perdon por lo de los 3 post es que cuando le ponia en publicar lugo queria entrar para confirmar que se aya publicado y no logre verlos fu ese el motivo, pido disculpas.
salu2

Gracias ya lo logre funcina perfecto y ya estuve jugando un rato con eso e hice y programita con el cual se pueden lograr 2 efectos de los mas comunes y un contador que muestra los numeros en vinario del o al 255 en los led que coloque en el puerto. si a alguien le interesa ese codigo diganmelo y lo posteo ( no es la gran cosa ) ya que se poco y nada de programacion en visual pero con mis pocos conosimientos hice lo que pude jeje

AHH!!! BADBYTE-K  perdona las molestias sabes que estaba descomprimiendo el zip que contenia la dll en el system32 y no me daba cuanta que lo ponia dentro de una carpeta llamada = que el zip original ese era el error cuando lo saque de esa carpeta y lo puse directamente en el system32 funciono perfectamente =mente muchas gracias por tu ayuda.
reitero quizas el programa que hice no sirva de nada pero para un novato como yo capaz le ayude a entender un poco mas del tema.
salu2

pongo esto en un tema nuevo porque ya puse 3 respuestas en tu tema pero no aparecen no se que estara pasando.
bueno mira hice todo lo que dice en tu post pero no encuentra la dll y esta porque la baje recien y la copie en c:/windows/system32

fijate lo que me ocurre

este es el proyecto con el formulario y el modulo


por si no se ve  http://www.scrngs.unlugar.com/lpt11.JPG

cuando ejecuto el programa me tira que no encuentra la dll



por si no se ve http://www.scrngs.unlugar.com/lpt12.JPG


y me lleva a depurar


por si no se ve http://www.scrngs.unlugar.com/lpt13.JPG

la dll esta pero no la encuentra se podra espesificar el directorio en donde se encuentra? o dime en donde tengo que ponerla para que la vea.
salu2 gracias.

hola mira hice todo como dices pero no encuentra la dll y esta porque recien la baje y la copie en c:/windows/system32




Por si no la ves  http://www.scrngs.unlugar.com/lpt11.JPG



Por si no la ves  http://www.scrngs.unlugar.com/lpt12.JPG



Por si no la ves  http://www.scrngs.unlugar.com/lpt13.JPG


salu2

Hola mira esto es lo que hice y no encuentra la dll como puedo resolverlo porque la dll esta en c:/windows/system32 de eso estoy seguro porque la baje recien.





por si no se ve   http://www.scrngs.unlugar.com/lpt11.JPG



por si no se ve http://www.scrngs.unlugar.com/lpt12.JPG



por si no se ve  http://www.scrngs.unlugar.com/lpt13.JPG

agradecería que supueras decirme como resolber esto gracias
salu2

Hola BADBYTE-K mira hice al pie de la letra todo lo que dice en tu post baje la dll y cree el modulo nuevo en el pryecto y cuando le doy al boton para que supuestamente me envie el dato al puerto me da un error. mira te detallo mi proyecto en estas imagenes:


Por si no se ve http://www.scrngs.unlugar.com/lpt11.JPG




Por si no se ve http://www.scrngs.unlugar.com/lpt12.JPG




Por si no se ve http://www.scrngs.unlugar.com/lpt13.JPG



Claramente no encuntra la dll, Ahora como espesifico en que directorio esta? porque la dll esta la acabo de bajar y la grabe en c:windows/system32.
si podes decirme en que estoy fallando te lo agradecería mucho salu2

Hola bueno no soy muy bueno programando en vb pero algo me defiendo. el tema es que quiero experimentar, con el puerto paralelo, lo que me gustaria es crear una apli con la que por ejemplo poniendo un numero en decimal ej 255 (si la salida maxima fuara de 8 bits) aclaro porque no se de que es capaz este puerto no se cuantos bits de salida y entrada tiene.
bueno poniendo por ejemplo 255 lo que equivale a los 8 bit encendidos en bienario. poder poner en on todos estos bits por supuesto que si pongo 128 que solo se encienda el 1° de la izquierda. espero se entienda lo que trato de querer hacer.
y tambien me gustaria saber como programar por ejemplo in timer que este chequeando cada x tiempo los bits de entrada de este mismo puerto y asi poder actuar en consecuencia. si alguien save como seria el codigo para enviar los datos al puerto y cual seria para leer y por ejemplo enviar a una variable estos datos que lea del puerto. agradeceria su respuesta.

ah una cosita mas se que deben de existir muchos programas que cunplan estas funciones. pero mi intencion seria tratar de resolverlo por mis propios medios haciendo todo desde cero. es cuestion de plaser al verlo funcionando si es que lo logro jeje.
un saludo.

hola me baje tu manual y no puedo verlo baje el que esta en el primer post de este tema en html y cuando lo abro solo veo un cuadro blanco con una crus roja que dice task...
salu2