Option Explicit On
Imports System.Text
 
 
Public Class ProFeeler
 
#Region "Variablen und API's"
 
    ' Variable die das decodierte Byte aufnimmt
    Dim Programm As String
 
    'Damit der eingehende Wert an die txtprogramm Textbox übergenben werden 
    ' kann! Führt die Sub Wertübergabe aus!
    Private Delegate Sub DelegateSub()
    Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
 
#End Region
 
#Region "Form"
 
    Private Sub ProFeeler_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Me.Text = "ProFeeler"
        Me.Top = Screen.PrimaryScreen.WorkingArea.Height / 2 - Me.Height / 2
        Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2 - Me.Width / 2
 
        ' Show all available COM ports.
        For Each sp As String In My.Computer.Ports.SerialPortNames
            ListBox1.Items.Add(sp)
        Next
 
        ' Serialport Daten (Für Feeler Fanuc Series 0-T: Baudrate 4800 ; 
        ' StopBits One ; DataBits 7 ; Parity None ; Handshake None)
        SerialPort1.BaudRate = 4800
        SerialPort1.StopBits = IO.Ports.StopBits.One
        SerialPort1.DataBits = 7
        SerialPort1.Parity = IO.Ports.Parity.None
        SerialPort1.Handshake = IO.Ports.Handshake.None
 
    End Sub
 
#End Region
 
 
#Region "Datentransfer"
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        For i As Int32 = 0 To SerialPort1.BytesToRead   ' Alle Bytes einzel 
        ' lesen und anzeigen
            Try
 
                Dim buf As Byte() = {SerialPort1.BaseStream.ReadByte}
                Dim enc As New System.Text.ASCIIEncoding()
                Programm = enc.GetString(buf)
                Programm = Programm.Replace(Chr(13), Nothing)
 
                Me.Invoke(TextboxAktualisieren)
 
            Catch ex As Exception
                MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", _
                  "Fehler", MessageBoxButtons.OK)
            End Try
        Next i
 
    End Sub
 
    Private Sub Wertübergabe()
        ' ## Daten in Textbox übertragen
        txtprogramm.AppendText(Programm)
    End Sub
 
#End Region
 
    Private Sub cmdempfangen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdempfangen.Click
        If SerialPort1.IsOpen = False Then SerialPort1.Open()
    End Sub
 
End Class

fg viperbone