Hola Miguel_S yo recien me estoy iniciando en el tema y me re sirvio tu aplicacion... Me podes hechar un cable con unas explicaciones por favor. El problema que tengo es el siguiente
1.- Le mando del pic a la pc 1 solo registro con el numero "64" y me lo lee bien.
2.- Cuando le mando 2 registros "conta_h" y "conta_l" me muestra cualquier numero
El codigo este que puse es modificacion del tuyo pero solo la parte de recepcion y le aumente el "ASC" para que me muestre el numero y no un symbolo (nose si es lo correcto pero solo me muestra 1 registro y hasta el numero 255).
Imports System.IO.Ports
Public Class Form1
Dim Recibidos As String
Public Sub New()
' Llamada necesaria para el Diseñador de Windows Forms.
InitializeComponent()
'Abrir puerto mientras se ejecute la aplicacion
If Not SerialPort1.IsOpen Then
Try
SerialPort1.Open()
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End If
'Ejecutar la funcion Recepcion por disparo del Evento 'DataReived'
AddHandler SerialPort1.DataReceived, AddressOf Recepcion
End Sub
'Al recibir los datos
Private Sub Recepcion(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
'Acumular los caracteres recibidos a nuestro 'buffer' (string)
Recibidos += SerialPort1.ReadExisting()
'Invocar o llamar al proceso de tramas
Me.Invoke(New EventHandler(AddressOf Actualizar))
End Sub
'Procesar los datos recibidos en el buffer y extraer tramas completas
Private Sub Actualizar(ByVal s As Object, ByVal e As EventArgs)
'Asignar el valor de la trama al texBox
TextBox1.Text = Asc(Recibidos)
End Sub
End Class
