Asesoria para elevar una barrera o pluma puerto rs232 visual basic 6.0

[marcosnake21]

Estimados necesito su asesoría estoy realizando un proyecto en visual basic 6.0 de levantar una barrera de acceso a los estacionamiento, Pero tengo el siguiente problema no logro dar con el código para dar la instrucción a la barrera, esta se conecta por el puerto rs232, le voy adjuntar unas imágenes para que vena el pin donde esta conectado.Favor si alguien a hecho algo similar me puede dar una manito.Saludos Marcos

 

[papirrin]

puedes tomar una foto clara de adonde van esos dos cables...

Al parecer se activa el pin de Request To Send (RTS)

 

[marcosnake21]

Envio de fotos para mejor interpretación, bueno si alguien puede ayudarme seria ideal lo único que necesito es el código de visual basic 6.0

 

[papirrin]

bueno bajo tu responsabilidad de adonde puede ir esos cables.

abres tu Vb6.0

colocas en un formulario un control de comm (uno que es un telefonito) y le das un un nombre por ejemplo SerialPort1

pones un boton (command button) de abrir y en su codigo pones:

private sub command1_click()
SerialPort1.RtsEnable = True
end sub

para cerrar pones otro boton cerrar y en su codigo pones

private sub command2_click()
SerialPort1.RtsEnable = false
end sub


mayor informacion:
http://social.msdn.microsoft.com/Fo...s-and-dtr-serial-port-control?forum=vbgeneral

 

[marcosnake21]

Gracias amigo voy hacer las pruebas y te comento como me va.

Saludos Marcos



aqui va la foto completa

 

[papirrin]

Uff no se ve nada de componentes esperemos que solo sea una etapa de potencia, si puedes pon una foto del otro lado solo para estar seguros