mySerialPort.Encoding = System.Text.Encoding.Default 'Standard ist  ASCII 7-Bit

Dim Data() As Byte = {255, 1, 0, 65}
mySerialport.Write(Data, 0, 4)   'Ab Startposition 0 4 Bytes

'1. SerialPort einfügen
'2. Sende-Empfangstest bei einer einzelnen COM-Schnittstelle durch die 
' Verbindung von RD+TD (9p = Pin2+Pin3)
Public Class Form1
    Dim WithEvents Btn As New Button With {.Dock = DockStyle.Bottom, .Text = _
      "Senden", .Height = 30, .Parent = Me}
    Dim Tb As New TextBox With {.Dock = DockStyle.Fill, .Multiline = True, _
    .Parent = Me}
 
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles _
      Me.Load
        SerialPort1.PortName = "COM5"  'Eigenen Portname einsetzen!
        SerialPort1.Open()  'Zum Testen reichen die Standardeinstellungen
    End Sub
 
    Private Sub SerialPort1_DataReceived(sender As Object, e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
        Dim daten As String = ""
        Do While SerialPort1.BytesToRead > 0
            daten &= SerialPort1.ReadByte.ToString & ","
        Loop
        Me.Invoke(Sub() Tb.Text = daten) 'Invoke nötig, wenn ein Control aus 
        ' einem anderen Thread angesprochen wird!
    End Sub
 
    Private Sub Btn_Click(sender As Object, ByVal e As EventArgs) Handles _
      Btn.Click
        'Dim txt As String = Chr(0) & "123" & Chr(129)
        'Dim b() As Byte = System.Text.Encoding.Default.GetBytes(txt)
        Dim b() As Byte = {0, 48, 49, 50, 129}
        SerialPort1.Write(b, 0, b.Length)   '0,48,49,50,129
    End Sub
End Class

Zitat:

>Oder Bytes (ByteArray) senden. Das wäre mir fast lieber. Dann brüchte ich nicht immer alles umständlich zusammensetzen. Wobei es egal wäre.

Zitat:

Die Antworten gehen halt leider an meiner Frage vorbei. Das hier was gesendet wird ist klar. Eine Antwort zum Encoding fehlt aber leider in dem großen Beispiel völlig

Zitat:

Lupus52 schrieb: Um Bytes zu senden braucht man kein Encoding. Um einen Text in Bytes zu wandeln wird hier halt Encoding.Default eingesetzt. MfG GPM