Programmierst du deinen MC mit Bascom?
Ja .
Bei Bascom wird jedem Printbefehl ein CR&LF angehängt
Aha, das wusste ich noch nicht. Danke.

Hier ist die kleine Aufgabe von dir .Hoffentlich richtig gelöst??
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try 'Versuche

Dim getText As String 'Deklariere getText als String
SerialPort1.PortName = TextBox1.Text 'Portname wird TextBox 1 entnommen
SerialPort1.BaudRate = TextBox2.Text 'Baudrate wird Text Box 2 entnommen

SerialPort1.Open() 'öffnet Serial Port
getText = SerialPort1.ReadLine() 'Das ,was empfangen wurde ,wird der Var getText zugeordnet
SerialPort1.Close() 'schließt Serial Port

TextBox3.Text = getText 'Schreibt in die Text Box 3 den empfangenen Wert ????

Catch ex As Exception
MsgBox("Verbindung konnte nicht hergestellt werden") 'Wenn es nicht geht soll das erscheinen
End Try
End Sub



Und hier noch mal der Code komplett:

Code:
Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SerialPort1.PortName = TextBox1.Text
            SerialPort1.BaudRate = TextBox2.Text
            SerialPort1.Open()
            Button1.Enabled = False
            Button2.Enabled = True
            Button3.Enabled = True

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen = True Then
            SerialPort1.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("1" & vbCr)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SerialPort1.Write("0" & vbCr)
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try                                                'Versuche

            Dim getText As String                     'Deklariere getText als String
            SerialPort1.PortName = TextBox1.Text       'Portname wird TextBox 1 entnommen
            SerialPort1.BaudRate = TextBox2.Text        'Baudrate wird Text Box 2 entnommen

            SerialPort1.Open()                           'öffnet Serial Port
            getText = SerialPort1.ReadLine()              'Das ,was empfangen wurde ,wird der Var getText zugeordnet
            SerialPort1.Close()                           'schließt Serial Port

            TextBox3.Text = getText                     'Schreibt in die Text Box 3 den empfangenen Wert ????

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")         'Wenn es nicht geht soll das erscheinen
        End Try
    End Sub
End Class