Programación General > Visual Basic 6.0 e inferiores

 Pasar Texto Recibido Por Puerto Serie A Archivo

(1/1)

Eze_Cba:
hola estoy haciendo una aplicacion que debe recibir un archivo de texto por puerto serie y luego guardarlo en un archivo para posteriormente leerlo. el problema que tengo es el siguiente recibo el flujo de caracteres por puerto serie y lo guardo en un textbox, luego cuando evaluo si mscomm.comevent es igual a comEvEOF para verificar si es el final del archivo, y asi poder guardar y posteriormente leer lo recibido, nunca encuetra el fin del archivo. quisiera si alguien puede ayudarme para poder solucionarlo lo antes posible.

el codigo es el siguiente:
Dim archivo As String
Dim lectura As String

Private Sub Form_Load()

archivo = "C:\prueba.txt" 'App.Path + "\Prueba.txt"
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
    Case comEvReceive
        txtDatosRecibidos.Text = txtDatosRecibidos.Text + MSComm1.Input
    Case comEvEOF
        Call Escribir
        Call Leer
    End Select

End Sub
Private Sub Escribir()

Open archivo For Append As #1
Print #1, txtDatosRecibidos '+ ","
Close

End Sub

Private Sub Leer()

Open archivo For Input As #1
While Not EOF(1)
Line Input #1, lectura
Text2 = Text2 + lectura
Wend
Close

End Sub

eliza_marti:
Hola Eze_Cba  :hola: .....prueba habilitando esta propiedad del Mscomm:


--- Código: Text ---MSComm1.EOFEnable=true 
Ya que predeterminadamente se pone en falso y esto no te permite que el control MsComm pueda buscar caracteres de fin de archivo (EOF) durante la entrada..
Puedes ponerlo en el Form_Load despues de habilitar el puerto.. :)

Bueno me voy..chaitos.. :hola:  y Mucha suerte!.. ;) ..Nos cuentas como te fue..!! :comp: ...

Navegación

[0] Índice de Mensajes