TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: ENO45 en 16 de Enero de 2006, 17:49:00

Título: comunicacion con pic
Publicado por: ENO45 en 16 de Enero de 2006, 17:49:00
Hola tengo que comunicar la pc a traves del puerto serie con un pic (max232).
necesitaria si me pueden ayudar como hacerlo, lo que tiene que hacer la pc es enviar un byte y recibir la contestacion del pic (la parte del pic ya anda) pero eso lo tiene que hacer automaticamente sin que yo tenga que oprimir ningun boton. e visto en este foro un ejemplo pero tengo que apretar un boton para recibir y otro para enviar yo quiero que lo haga solo constantemente, envie espere que reciba para enviar de nuevo.
desde ya muchas gracias cualquier ayuda sera muy util
Título: RE: comunicacion con pic
Publicado por: LordLafebre en 16 de Enero de 2006, 21:43:00
Hola:

Pues adiciona un timer con intervalo de 1ms y en el evento timer programa lo que necesites... Sonrisa Gigante
Título: RE: comunicacion con pic
Publicado por: ENO45 en 17 de Enero de 2006, 08:56:00
me podes ayudar un poco con la programacion porque lo que pruevo no funciona
desde ya muchas gracias
Título: RE: comunicacion con pic
Publicado por: BrunoF en 17 de Enero de 2006, 10:01:00
Postea el codigo y por ahi podamos ayudarte...
Título: RE: comunicacion con pic
Publicado por: LordLafebre en 17 de Enero de 2006, 10:12:00
Hola:

Primero tienes que abrir el puerto, esto lo puedes hacer en el evento load del formulario, y dentro de un timer con un intervalo de n milisegundos (el que tu creas conveniente) puedes recibir el dato que quieras, asi mismo tu sabras que momento enviar el dato, en este caso probe a enviar cuando pulso un command button y al cerrar la aplicacion cierra el puero, en el evento unload del formulario.

Algo como esto:

Codigo:
Private Sub Command1_Click()
    MSComm1.Output = "a"
End Sub

Private Sub Form_Load()
    MSComm1.PortOpen = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
End Sub

Private Sub Timer1_Timer()
    Text1.Text = MSComm1.Input
End Sub
Título: RE: comunicacion con pic
Publicado por: ENO45 en 17 de Enero de 2006, 21:59:00
no entiendo para que usas esta parte

Private Sub Form_Unload(Cancel As Integer)
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
End Sub

y si yo quiero que se envien 3 bytes solos, envio uno espero respuesta, recien envio el otro como hago
Título: RE: comunicacion con pic
Publicado por: LordLafebre en 17 de Enero de 2006, 22:38:00
Hola:

Eso es para cerrar el puerto en el evento unload del formulario, si el puerto esta habiero lo cierra.... Sonrisa Gigante
Título: RE: comunicacion con pic
Publicado por: LordLafebre en 17 de Enero de 2006, 22:45:00
Escrito originalmente por ENO45

y si yo quiero que se envien 3 bytes solos, envio uno espero respuesta, recien envio el otro como hago


Tienes algo de codigo para ayudarte partiendo de eso?