Que tal muchachos como estan,
estoy teniendo un problema para enviar unos datos por puerto serie, me esta tomando aproximadamente 1 min enviar un grupo de datos decimales contenidos en un archivo de peso 194 Kb. La aplicacion que estoy haciendo no puede tomarse tanto tiempo.
Lo que yo necesito que haga es tomar valores decimales del archivo (todos juntos o linea a linea) y enviarlos por el puerto serie.
Necesito optimizar mi codigo y no se como. Alguno me puede dar una mano?
Pego parte del codigo:
Dim Buf(0) as byte
Dim ValorBinario as integer
Using ArchivoMensaje As StreamReader = New StreamReader(RUTA_MENSAJES & "\" & MensajeSeleccionado & ".dmm")
Linea = ArchivoMensaje.ReadLine
While (Not Linea Is Nothing)
ValorBinario = val(Linea)
Buff(0) = ValorBinario
PuertoSerie.Write(Buf,0,Buf.lenght)
Linea = ArchivoMensaje.ReadLine
End While
PuertoSerie.Write(">>")
End Using
Desde ya muchas gracias. Votos positivos para el que me ayude a resolver este problema
