Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Select Case e.EventType
            Case IO.Ports.SerialData.Chars
            Case IO.Ports.SerialData.Eof
        End Select
        Dim msg As String = Me.myComPort.ReadExisting
 
        ShowText(msg)
 
 
    End Sub
 
    Private Sub ShowText(ByVal text As String)
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            lblMeldungstext.Text = lbl.Meldungstext.Text & text
            End If
    End Sub

lblMeldungstext.Text = lblMeldungstext.Text & text

lblMeldungstext.Text = text

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Select Case e.EventType
            Case IO.Ports.SerialData.Chars
            Case IO.Ports.SerialData.Eof
        End Select
        Dim msg As String = Me.myComPort.ReadExisting
 
        While (msg.Contains(Chr(0)))
            'die nachricht ist komplett
            Dim tmp = msg.Substring(0, msg.IndexOf(Chr(0)))
            ShowText(msg)
            msg = ""
        End While
        ShowText(msg)
 
 
    End Sub

Imports System.IO.Ports
Public Class Form1
     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
       Handles MyBase.Load
        myComPort.Open()
        'eventuell eigenes NewLine-Zeichen für Zeilenende angeben
        'myComPort.NewLine = Chr(23)               
    End Sub
    Private Sub myComPort_DataReceived(sender As Object, e As _
      SerialDataReceivedEventArgs) Handles myComPort.DataReceived
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
    End Sub
End Class

'Sende-Empfangstest bei einer einzelnen COM-Schnittstelle
'durch die Verbindung von RD+TD (9polig = Pin2 mit Pin3)
Imports System.IO.Ports
Public Class Form1
    Dim WithEvents Btn As New Button With {.Dock = DockStyle.Bottom, .Text = _
      "Senden", .Height = 30, .Parent = Me}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Me.Width = 400
        SerialPort1.PortName = "COM5"   'Eigenen Portname einsetzen
        SerialPort1.Open()
    End Sub
 
    Private Sub Btn_MouseDown(sender As Object, e As EventArgs) Handles _
      Btn.MouseDown
        SerialPort1.WriteLine("Es ist gerade: " & Now.ToLongTimeString)
    End Sub
 
    Private Sub SerialPort1_DataReceived(sender As Object, e As _
      SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Me.Invoke(Sub() Me.Text = SerialPort1.ReadLine)
    End Sub
End Class

    Private Sub frmHaupt_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        Dim str() As String = IO.Ports.SerialPort.GetPortNames()
        If str.Length = 0 Then
            MsgBox("No Serialport available!", MsgBoxStyle.Critical)
            Me.Close()
        End If
 
        myComPort = New IO.Ports.SerialPort("COM3")
        myComPort.BaudRate = 9600
        myComPort.DataBits = 8
        myComPort.StopBits = IO.Ports.StopBits.One
        myComPort.Parity = IO.Ports.Parity.None
        myComPort.ReceivedBytesThreshold = 1
        myComPort.Open()
        myComPort.Encoding = System.Text.Encoding.Default
        myComPort.NewLine = Chr(1)
    End Sub
 
 
 Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
   System.IO.Ports.SerialDataReceivedEventArgs) Handles myComPort.DataReceived
 
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
 
        'Select Case e.EventType
        '    Case IO.Ports.SerialData.Chars
        '    Case IO.Ports.SerialData.Eof
        'End Select
        'Dim msg As String = Me.myComPort.ReadExisting
 
        'While (msg.Contains(Chr(23)))
        '    'die nachricht ist komplett
        '    Dim tmp = msg.Substring(0, msg.IndexOf(Chr(23)))
        '    ShowText(msg)
        '    msg = ""
        'End While
 
        'ShowText(msg)
 
 
    End Sub
 
    Private Sub ShowText(ByVal text As String)
 
        'Me.Invoke(Sub() Debug.Print(myComPort.ReadLine))
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            lblMeldungstext.Text = text
        End If
    End Sub

SerialPort1.WriteLine("Hallo")

        Dim msg As String = Me.myComPort.ReadExisting
        Dim TextConv As Byte = CByte(msg)
 
        Debug.Print(msg)
        Debug.Print(TextConv)

'Sende-Empfangstest bei einer einzelnen COM-Schnittstelle
'durch die Verbindung von RD+TD (9polig = Pin2 mit Pin3)
Public Class Form1
    Dim WithEvents Btn As New Button With {.Dock = DockStyle.Bottom, .Text = _
      "Senden", .Height = 30, .Parent = Me}
    Dim WithEvents Tb1 As New TextBox With {.Dock = DockStyle.Left, .Multiline _
    = True, .Parent = Me}
    Dim WithEvents Tb2 As New TextBox With {.Dock = DockStyle.Right, .Multiline _
    = True, .Parent = Me}
    Dim WithEvents T As New Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        SerialPort1.PortName = "COM5"   'Eigenen Portname einsetzen
        SerialPort1.Open()
        T.Start()
    End Sub
 
    Private Sub Btn_MouseDown(sender As Object, e As EventArgs) Handles _
      Btn.MouseDown
        SerialPort1.WriteLine("Hallo")
    End Sub
 
    Private Sub T_Tick(sender As Object, e As System.EventArgs) Handles T.Tick
        Dim b As Byte
        Do While SerialPort1.BytesToRead > 0
            b = CByte(SerialPort1.ReadByte)
            Tb1.Text &= "  " & b
            Tb2.Text &= Chr(b)
        Loop
    End Sub
End Class

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Dim msg As String = Me.myComPort.ReadExisting
 
        While (msg.Contains(Chr(0)))
            'die nachricht ist komplett
            Dim tmp = msg.Substring(0, msg.IndexOf(Chr(0)))
            ShowText(msg)
            msg = ""
        End While
 
        ShowText(msg)
    End Sub
 
    Private Sub ShowText(ByVal text As String)
 
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            lblMeldungstext.Text = text
            Debug.Print(text)
        End If
    End Sub

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As      _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
 
        Me.Invoke(Sub() lblMeldungstext.Text = myComPort.ReadLine)
 
    End Sub

Beitrag wurde zuletzt am 27.11.15 um 16:50:57 editiert.

    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.

System.Text.Encoding.Default.GetString(Bytes.ToArray))

    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)
        Dim b As Byte
        Do While myComPort.BytesToRead > 0
            b = CByte(myComPort.ReadByte)
 
            Me.Invoke(Sub() Bytes.Add(b))
            System.Text.Encoding.Default.GetString(Bytes.ToArray)
            'Me.Invoke(Sub() lblMeldungstext.Text &= "  " & b)
            'Me.Invoke(Sub() lblMeldungstext.Text &= Chr(b))
        Loop
        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
            Me.Invoke(Sub() lblMeldungstext.Text &= _
              System.Text.Encoding.Default.GetString(Bytes.ToArray))
            Me.Invoke(Sub() txtÜbergang.Text &= Bytes.Item(o))
        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)
        Dim b As Byte
        Do While myComPort.BytesToRead > 0
            b = CByte(myComPort.ReadByte)
 
            Me.Invoke(Sub() Bytes.Add(b))
 
        Loop
 
        Dim o As Integer
        For o = 0 To Bytes.Count - 1
            Me.Invoke(Sub() txtMeldungÜbergang.Text &= _
              System.Text.Encoding.Default.GetString(Bytes.ToArray))
            Me.Invoke(Sub() txtÜbergang.Text &= Bytes.Item(o))
        Next
 
 
    End Sub

Private Sub myComPort_DataReceived(sender As Object, e As _
  SerialDataReceivedEventArgs) Handles myComPort.DataReceived
 Dim blist As New List(Of Byte)
 Do While (myComPort.BytesToRead > 0)
   blist.Add(CByte(myComPort.ReadByte))
 Loop
 Me.Invoke(Sub() DecodeBytes(blist))
End Sub
 
Private Sub DecodeBytes(blist As List(Of Byte))
 txtMeldungÜbergang.Text &= System.Text.Encoding.Default.GetString( _
   blist.ToArray)
 For Each b In blist
  txtÜbergang.Text &= "|" & b
 Next
End Sub

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As  _
SerialDataReceivedEventArgs) Handles myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
        Loop
        Me.Invoke(Sub() DecodeBytes(blist))
    End Sub
 
    Dim puffer as String
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
 
        puffer &= System.Text.Encoding.Default.GetString( _
          blist.ToArray)
    End Sub

txtMeldung.Text = puffer

    Dim endeerreicht As Boolean = False
    Dim Nachricht As String
 
    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
 
        Loop
        endeerreicht = True
 
        Me.Invoke(Sub() DecodeBytes(blist))
 
 
 
    End Sub
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
        Nachricht &= System.Text.Encoding.Default.GetString(blist.ToArray)
        If endeerreicht = True Then
            txtMeldung.Text = Nachricht
            Nachricht = ""
            endeerreicht = False
        End If
 
    End Sub

 
    Dim Nachricht As String
 
Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
  System.IO.Ports.SerialDataReceivedEventArgs) Handles myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
        Loop
        Me.Invoke(Sub() DecodeBytes(blist))
    End Sub
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
        Nachricht &= System.Text.Encoding.Default.GetString(blist.ToArray)
    End Sub

    Dim endeerreicht As Boolean = False
    Dim Nachricht As String
 
 
        Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
          System.IO.Ports.SerialDataReceivedEventArgs) Handles _
          myComPort.DataReceived
        Dim blist As New List(Of Byte)
        Do While (myComPort.BytesToRead > 0)
            blist.Add(CByte(myComPort.ReadByte))
            If myComPort.BytesToRead <= 0 Then endeerreicht = True
        Loop
 
        Me.Invoke(Sub() DecodeBytes(blist))
    End Sub
 
    Private Sub DecodeBytes(ByVal blist As List(Of Byte))
        Nachricht &= System.Text.Encoding.Default.GetString(blist.ToArray)
        If endeerreicht = True Then
            txtMeldung.Text = Nachricht
            Nachricht = ""
            endeerreicht = False
        End If
    End Sub

    Private Sub myComPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      myComPort.DataReceived
        Debug.Print("DR ausgelöst")
        msg = myComPort.ReadLine
        Me.ShowText(msg)
 
    End Sub
 
    Private Sub ShowText(ByVal text As String)
        Debug.Print("ST ausgelöst")
        Dim Nachricht As String
        If lblMeldungstext.InvokeRequired Then
            Dim d As New TextBoxCallback(AddressOf ShowText)
            Me.Invoke(d, New Object() {text})
        Else
            Nachricht &= text
            lblMeldungstext.Text = Nachricht
        End If
 
    End Sub