Saludos para todos Me encuentro elavorando un proyecto sobre comunicacion entre un PIC y un PC por medio de el puerto serie RS232, y me funciona la parte de enviar los datos desde el PIC al PC. Hice una aplicacion en visual basic que recibe los datos. Pero no me ha quedado del todo bien la aplicacion, porque no he podido configurarle a la aplicacion el MSComm de forma que guarde los datos en un archivo en el instante en que lleguen, no he podido aprender a manejar el detector de deventos del MSComm, de modo que me toco abrir el puerto con la aplicacion y hacer la recepcion manual de los datos cuando este seguro que ya estan en el buffer del puertio. Mi intres es que sea automatica la aplicacion, que cuando lleguen los datos inmediatamente se guarden en el Archivo y que pueda seguir recibiendo datos el programa. A continuacion adjunto el codigo que he hecho en visual basic.

Problema manejo de datos puerto serial con Visual Basic 2008. Hola a todos estoy en este momento realizando la comunicacion serial con un.

Minssss dijo: hola estoy haciendo un proyecto de comunicacion del pic a con la pc y no se como enviar desde el pic lo que tengo guardado en una variable y que lo reciba visual basic y que muestre un mensaje con el numero que tiene la variable, estare agradecido Hola estoy haciendo un proyecto similar con un PIC conectado al puerto serie de la PC, necesito leer en caracter que me envia el pic para hacer un conteo en Visual Basic por ejemplo si me llega 'A' incremento un contador_A +1 y lo quiero plasmar en un label. Pero solo me cuenta 1 y no incrementa mas auqnue los datos se reciben correctamente. El programa es el siguiente: Private Sub MSComm1_OnComm() Dim Com1 As Variant Dim Contador_A As Integer Dim Contador_B As Integer Contador_A = 0 Contador_B = 0 If MSComm1.CommEvent = comEvReceive Then Com1 = Com1 + MSComm1.Input Text1.Text = Com1 Select Case Com1 Case 'A' Contador_A = Contador_A + 1 Label20.Caption = Contador_A Case 'B' Contador_B = Contador_B + uno Label21. Winzip Self Extractor 4.0 Serial Number on this page. Caption = Time End Select End If End Sub En el case B puedo ver la hora cada vez que el pic envia un caracter B, si se actualiza, pero cuando recibe 'A' no he conseguido incrementar mi contdor y verlo en en label20. Alguin puede apoyarme GRacias de antemano.