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
Agradesco cualquier ayuda al respecto
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
Código:
Dim dato As String
Dim NumArchivo As Integer
Private Sub Command1_Click()
Text1.Text = "ESPERANDO DATOS"
Text1.Text = MSComm1.Input
dato = CStr(Text1.Text)
Open "INVENTARIO.dat" For Append As #NumArchivo
Print #NumArchivo, dato
Close #NumArchivo
Text1.Text = "Recepcion finalizada"
MSComm1.PortOpen = False 'cerrar el puerto al salir del programa
End Sub
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1" 'velocidad, paridad
MSComm1.CommPort = 1 'elegir el #del puerto
MSComm1.PortOpen = True
NumArchivo = FreeFile() ' numero que se le asigna al archivo al abrirlo
End Sub
Private Sub CERRAR_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False 'cerrar el puerto al salir del programa
End If
End
End Sub
Agradesco cualquier ayuda al respecto