Satu cara kilat ngebuffer serial dari BOE

Trik ini saya pakai untuk mengambil / membuat buffer agar bisa mengetahui input yang di berikan Boe ke PC.

Hasil dari pengambilan di masukkan ke TextBox1.Text agar dapat di baca. CR harus di konversikan menjadi CRLF agar lebih bagus tampilannya.

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim Buffer As String
    Dim temp As String
    If SerialPort1.IsOpen Then
        temp = StrConv(SerialPort1.ReadExisting, VbStrConv.ProperCase)

        Buffer = Buffer + temp

        Buffer = Replace(Buffer, Chr(13), Chr(13) + Chr(10), 1, Len(Buffer))

        TextBox1.Text = TextBox1.Text + Buffer

    End If
End Sub