Public Class Hauptfenster
    Dim WithEvents SerialPort As New System.IO.Ports.SerialPort("COM1", 9600, _
      Parity.None, 8, StopBits.One) 'Serial Port definieren
    Dim Befehl As String
    Dim sRead As String
    Dim Hell As String 'Helligkeit
    Dim x As String 'CIE x
    Dim y As String 'CIE y
    Dim Yt()  'Helligkeit Y temporär
    Dim RXArray(2047) As Char
    Public Delegate Sub StringSubPointer(ByVal Buffer As String)
 
 
    Private Function Auslesen()
        Dim array()
        Dim strRxChar As String
        sRead = sRead + strRxChar
        array = sRead.Split(",")
        'Received.Text = Received.Text & sRead
        'MsgBox(array(0))
        'Hell = CDbl(array(2))
        'Hell = CInt(Hell * 3.4262591)
        'TB_Helligkeit.Text = Hell
        'TB_x.Text = CDbl(array(3))
        'TB_y.Text = CDbl(array(4))
    End Function
    Public Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort.DataReceived
        Dim ByteArray(2047) As Byte
        Dim I As Integer = 0
        Dim RXByte As Byte
        While (SerialPort.BytesToRead > 0)
            RXByte = SerialPort.ReadByte
            If RXByte <> 0 Then
                RXArray(I) = Chr(RXByte)
                I = I + 1
            End If
        End While
        Dim RxString As New String(RXArray, 0, I)
        Received.BeginInvoke(New StringSubPointer(AddressOf Display), RxString)
    End Sub
    Private Sub Display(ByVal Buffer As String)
        Dim array() 'Array um Werte zu Extrahieren
        Received.AppendText(Buffer)
        array = Buffer.Split(",")
        Hell = CDbl(array(2))
        Hell = CInt(Hell * 3.4262591)
        TB_Helligkeit.Text = Hell
        'TB_x.Text = CDbl(array(3))
        'TB_y.Text = CDbl(array(4))
        TB_Arr0.Text = (array(0))
        TB_Arr1.Text = (array(1))
    End Sub
 
    Private Sub But_Ini_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles But_Init.Click
        SerialPort.ReceivedBytesThreshold = 20
        SerialPort.WriteBufferSize = 20
        SerialPort.ReadBufferSize = 20
        SerialPort.WriteTimeout = 100
        SerialPort.Open()
        SerialPort.RtsEnable = True
        SerialPort.RtsEnable = False 'RTS High Low zum Initialisieren 
        SerialPort.DtrEnable = True  'Empfangsleitung öffnen
    End Sub
 
    Private Sub But_Mess_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles But_Mess.Click
        SerialPort.RtsEnable = True   'RTS High
        Befehl = ("M1")
        SerialPort.WriteLine(Befehl)
 
    End Sub

DJ Booking + Veranstaltungstechnik: www.roadresidents.de