Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Dim Bytes As New List(Of Byte)
        Me.Invoke(Sub() Bytes.Add(myComPort.ReadByte()))
        Dim n As Integer
 
        For n = 0 To Bytes.Count - 1
            Debug.Print(Bytes(n))
        Next
End Sub

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Dim Bytes As New List(Of Byte)
        Me.Invoke(Sub() Bytes.Add(myComPort.ReadByte()))
        Dim n As Integer
 
        For n = 0 To Bytes.Count - 1
            Debug.Print(Bytes(n))
        Next
 
        Dim o As Integer
        For o = 0 To Bytes.Count - 1
            System.Text.Encoding.Unicode.GetString(Bytes)
        Next
 
    End Sub

        Dim Bytes As New List(Of Byte) From {"13", "10", "49", "49", "58", _
          "48", "54", "32", "48", "50", "46", "49", "50"}
 
        Dim o As Integer
        For o = 0 To Bytes.Count - 1
            Convert.FromBase64String(Bytes)
 
        Next

Beitrag wurde zuletzt am 02.12.15 um 11:31:08 editiert.