Buenas Tardes, tengo el siguiente problema, la idea es bastante descabellada pero no imposible, necesito saber si se existe algun codigo fuente en Visual Basic que pueda controlar el encendido de un LED por medio de puerto serial, es decir pasarle un mandato o un comando que pueda encender el LED y luego espera un tiempo para apagarlo.

Si alguien me puede ayudar se lo agradeceria

Gracias, Saludos desde PANAMA, :smt006

Pones un control MSComm y en la propiedad RTSenable le pones TRUE
Cuando abres el puerto (MSComm1.PortOpen = True) el pin RTS (7) se encendera y cundo hagas MSComm1.PortOpen = False se apagara.

Gracias realizare las pruebas necesarias, solo algo adicional ese pin maneja 5 voltio o mas de 5 voltios.

Gracias nuevamente Saludos desde Panama :smt006

El puerto serie funciona con +- 12V y no con 5V como el puerto paralelo.

Bueno ese codigo tambien funciona para el puerto paralelo??? porque tengo que hacer un proyecto en el cual mediante el puerto paralelo se mueva un brazo mecanico ingresados los datos con el visual basic pero lo primeroque debo hacer es probar que se prenda y se apague el led,... ese comando tambien funciona con el VB.NET o solo con el VB 6 y una cosa mas cuando dices: "Pones un control MSComm y en la propiedad RTSenable le pones TRUE" donde pongo un control MSComm.... solo esta en visual 6?? o esta en modo visual en components...???? gracias x su ayuda...

__________________
"De que me sirve haber llegado tan lejos lejos si al final pierdo, x eso no kiero perder... NO VOY A PERDER...VOY A GANAR"

No , para hacerlo con el paralelo tienes que usar un dll como IO.ll o Inpot32.dll que puedes encontrar aqui http://www.lvr.com/parport.htm

Yo, amigo Aoshimaru, intervengo sólo para recordarte que no estamos usando un móvil que te aconseje usar abreviaturas para conseguir un ahorro económico... Aquí vamos a cobrarte lo mismo si dices "xk" que si escribes "porque", y usando el idioma español "como Dios manda" nos sentiremos todos más a gusto, y el propio idioma te lo agradecerá... Que bastantes agresiones estamos sufriendo por todos los costados como para que nosotros mismos nos dañemos en el alma, que es lo que a todos nos une... Gracias por aceptar mi mensaje.

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

OK.. disculpa no quise incomodar a nadie ya edite mi post y lo tendre en cuenta para proximos mensajes....

__________________
"De que me sirve haber llegado tan lejos lejos si al final pierdo, x eso no kiero perder... NO VOY A PERDER...VOY A GANAR"