Private Delegate Sub DelegateSub()
    Private Verarbeitung As New DelegateSub(AddressOf Wertübergabe)
    Private i As Integer = 0
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        If i Mod 2 = 0 Then
            Blinker.FillColor = Color.LightGreen
        Else
            Blinker.FillColor = Color.Red
        End If
 
        AufnahmeUTI()  'Aufruf für ersten Befehl (Problemlos)
        AufnahmeO2()   'Aufruf für zweiten Befehl (Timeout:()
 
        i += 1
    End Sub
 
    Private Sub AufnahmeUTI() 'Erster Befehl
 
        If SerPortZ1.IsOpen = True Then
            Try
                SerPortZ1.Write(CGlobal.ComBefehle.ReadAll)
                Dateneingang(SerPortZ1)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler Zelle 1", "Fehler")
            End Try
        End If
 
        If SerPortZ2.IsOpen = True Then
            Try
                SerPortZ2.Write(CGlobal.ComBefehle.ReadAll)     'U,T,I
                Dateneingang(SerPortZ2)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler Zelle 2", "Fehler")
            End Try
        End If
 
    End Sub
 
    Private Sub AufnahmeO2() 'Zweiter Befehl
 
        If SerPortZ1.IsOpen = True Then
            Try
                SerPortZ1.Write(CGlobal.ComBefehle.ReadMessW1)
                Dateneingang(SerPortZ1)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler")
            End Try
        End If
 
        If SerPortZ2.IsOpen = True Then
            Try
                SerPortZ2.Write(CGlobal.ComBefehle.ReadMessW1)  'O2
                Dateneingang(SerPortZ2)
            Catch ex As Exception
                MessageBox.Show("Übertragungsfehler")
            End Try
        End If
 
    End Sub
 
    Private Sub Dateneingang(ByVal Port As SerialPort) 'Empfangene Daten in 
    ' Globale Variable schreiben
 
        If Port.PortName = SerPortZ1.PortName Then
 
            Try
                CGlobal.EmpfangenZ1 = SerPortZ1.ReadTo(vbCr)
                Me.Invoke(Verarbeitung)          'Delegate hier wichtig da 
                ' Serport nicht direkt in Textbox schreiben kann!
            Catch ex As System.TimeoutException
                MessageBox.Show("Timeout Zelle 1!")
            End Try
        Else
            Try
                CGlobal.EmpfangenZ2 = SerPortZ2.ReadTo(vbCr)
                Me.Invoke(Verarbeitung)          'Delegate hier wichtig da 
                ' Serport nicht direkt in Textbox schreiben kann!
            Catch ex As System.TimeoutException
                MessageBox.Show("Timeout Zelle 2!")
            End Try
        End If
    End Sub

Ahnungsloser ahnungsloser...

 Private Sub Wertübergabe()
 
        If CGlobal.EmpfangenZ1 <> String.Empty Then
 
            If Auswertung(CGlobal.EmpfangenZ1) Then
                LstBoxAntw.Items.Add("1.Zelle, " & Date.Now.ToString( _
                  "HH:mm:ss") & ": " & CGlobal.EmpfangenZ1)
            Else
                MessageBox.Show("Übertragungsfehler")
            End If
 
            CGlobal.EmpfangenZ1 = String.Empty
        End If
 
        If CGlobal.EmpfangenZ2 <> String.Empty Then
            If Auswertung(CGlobal.EmpfangenZ2) Then
                LstBoxAntw.Items.Add("2.Zelle, " & Date.Now.ToString( _
                  "HH:mm:ss") & ": " & CGlobal.EmpfangenZ2)
            Else
                MessageBox.Show("Übertragungsfehler")
            End If
 
            CGlobal.EmpfangenZ2 = String.Empty
        End If
 
    End Sub
 
    ''' <summary>
    ''' Funktion Hilft die Empfangen Texte auszuwerten. Dabei werden die 
    ' Leerzeichen zwischen den Werten entfernt und die Messwerte entsprechend 
    ' zugeordnet.
    ''' </summary>
    ''' <param name="Empfang">Empfangener String vom Serialport</param>
    ''' <returns>Rückgabewert als Boolean (Empfang OK)</returns>
    ''' <remarks></remarks>
    Private Function Auswertung(ByVal Empfang As String) As Boolean
        Dim Text() As String, j As Boolean = True
        Empfang = Empfang.Replace("   ", " ")
        Empfang = Empfang.Replace("  ", " ")
        Empfang = Empfang.Trim(Chr(10), " "c) 'Führende und abschließende 
        ' Leerzeichen und LF-Zeichen entfernen
        Text = Empfang.Split(" "c)
 
        If Text.Length < 1 Then
            Return False
            Exit Function
        End If
 
        Select Case UCase(Text(0))
 
            Case "U0"
                Try
                    CGlobal.Messwerte.Zellsp.Add(CDbl(Text(1)))
                Catch ex As Exception
                    CGlobal.Messwerte.Zellsp.Add(-9999)
                End Try
            Case "U1"
                Try
                    CGlobal.Messwerte.Temp.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.Temp.Add(-9999)
                End Try
            Case "U4"
                Try
                    CGlobal.Messwerte.O2.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.O2.Add(-9999)
                End Try
            Case "U5"
                Try
                    CGlobal.Messwerte.ElektStrom.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.ElektStrom.Add(-9999)
                End Try
            Case "U6"
                Try
                    CGlobal.Messwerte.Zellsp.Add(Val(CDbl(Text(1))))
                Catch ex As Exception
                    CGlobal.Messwerte.Zellsp.Add(-9999)
                End Try
                Try
                    CGlobal.Messwerte.Temp.Add(Val(CDbl(Text(2))))
                Catch ex As Exception
                    CGlobal.Messwerte.Temp.Add(-9999)
                End Try
                Try
                    CGlobal.Messwerte.ElektStrom.Add(Val(CDbl(Text(3))))
                Catch ex As Exception
                    CGlobal.Messwerte.ElektStrom.Add(-9999)
                End Try
 
            Case Else
                j = False
        End Select
 
        Return j
 
    End Function

Ahnungsloser ahnungsloser...

Ahnungsloser ahnungsloser...

Imports System.IO.Ports
 
Public Class Form1
 
 
    Private Delegate Sub DelegateSub()
    Private Empfang As New DelegateSub(AddressOf InListeEintragen)
    Private s As String
 
 
    Private Sub BtnEin_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnEin.Click
        SerialPort1.Write("U4" & vbCr)
    End Sub
 
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        SerialPort1.Close()
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SerialPort1.Close()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        With SerialPort1                            'Einstellungen Serieller 
        ' Port
            .BaudRate = 9600
            .DataBits = 8
            .Parity = IO.Ports.Parity.None
            .Handshake = Handshake.None
            .StopBits = IO.Ports.StopBits.One
            .Open()
        End With
    End Sub
 
 
    Private Sub BtnZwei_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnZwei.Click
        SerialPort1.Write("U6" & vbCr)
        SerialPort1.Write("U4" & vbCr)
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        s = SerialPort1.ReadTo(Chr(13))
 
        Invoke(Empfang)
 
    End Sub
 
    Private Sub InListeEintragen()
 
        ListBox1.Items.Add(s)
        s = String.Empty
    End Sub
End Class

Ahnungsloser ahnungsloser...

    Private Sub BtnZwei_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles BtnZwei.Click
        ok = False
        SerialPort1.Write("U6" & vbCr)
 
    End Sub
 
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        s = SerialPort1.ReadTo(Chr(13))
 
        Invoke(Empfang)
 
    End Sub
 
    Private Sub InListeEintragen()
 
        ListBox1.Items.Add(s)
        If ok = False Then
            SendZwei()
        End If
 
    End Sub
 
    Private Sub SendZwei()
        Dim Text() As String, j As Boolean = True
 
        s = s.Replace("   ", " ")
        s = s.Replace("  ", " ")
        s = s.Trim(Chr(10), CChar(" "))
        Text = s.Split(" "c)
 
        Select Case Text(0)
            Case "u6"
                SerialPort1.Write("U4" & vbCr)
                ok = True
        End Select
    End Sub

Ahnungsloser ahnungsloser...

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
      System.IO.Ports.SerialDataReceivedEventArgs) Handles _
      SerialPort1.DataReceived
 
        s = SerialPort1.ReadTo(Chr(13))
 
        Invoke(Empfang)
 
        'Prüfen ob das gewünschte Empfangen wurde, wenn ja:
        sendeBefehl2()
 
 
    End Sub

    Private serialPortReadThread As Thread
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        SerialPort1.Open()
 
        'Lesethread starten
        serialPortReadThread = New Thread( _
            Sub()
                ReadSerialPort(SerialPort1)
            End Sub)
        serialPortReadThread.Start()
 
    End Sub
 
    Private Sub ReadSerialPort(sp As SerialPort)
        Try
            Do While True
                Dim s As String = sp.ReadTo(ChrW(13))
                Invoke( _
                    Sub()
                        InListeEintragen(s)
                    End Sub)
 
            Loop
        Catch ex As ThreadInterruptedException
            ' Thread wurde interrupted.
        End Try
    End Sub
 
    Private Sub InListeEintragen(s As String)
 
        ListBox1.Items.Add(s)
        If Not ok Then
            SendZwei(s)
        End If
 
    End Sub
 
 
    Private Sub Form1_FormClosed(sender As System.Object, e As _
      System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        ' Lesethread unterbrechen, sodass er beendet wird
        serialPortReadThread.Interrupt()
    End Sub

Ahnungsloser ahnungsloser...

Ahnungsloser ahnungsloser...

    Private Sub Receiver(ByVal sender As Object, ByVal e As _
      SerialDataReceivedEventArgs) Handles SerPort.DataReceived
        Try
            Me.BeginInvoke(New StringSubPointer(AddressOf FügenZ2), _
              SerPort.ReadExisting)
        Catch ex As TimeoutException
            MessageBox.Show("Timeout")
        End Try
 
    End Sub
 
    ''' <summary>
    ''' Sub fügt empfangene Teilstrings aus Empfangs-Event zusammen.
    ''' </summary>
    ''' <param name="Buffer">Teilstrings aus Empfang</param>
    ''' <remarks></remarks>
    Private Sub Fügen(ByVal Buffer As String)
        EmpfangZ2 = Empfang + Buffer
        If Buffer.Contains(Chr(13)) Then
            Verarbeitung(Empfang, SerPort)
            Empfang = String.Empty
        End If
 
    End Sub

'Starten beim öffnen des Ports
    Public Sub StartLesen(ByVal sp As SerialPort)
            SerPortReadThread = New Thread( _
            Sub()
                ReadSerialPort(sp)
            End Sub)
    End Sub
 
'Wenn Lesethread des Ports
    Private Sub ReadSerialPort(ByVal sp As SerialPort)
 
        Try
            Do While True
                Dim Empfang As String = sp.ReadTo(Chr(13))
                Invoke( _
                    Sub()
                        Verarbeitung(Empfang, sp)
                    End Sub)
            Loop
        Catch ex As System.TimeoutException
            Application.DoEvents()
            ReadSerialPort(sp)     'Darf ich hier loopen? Verursacht das 
            ' eventuell die Probs?
        Catch ex As ThreadInterruptedException
            ' Thread wurde interrupted.
        Catch ex As Exception
        End Try
 
    End Sub
 
'Beim beenden der Anwendung schließen des Threads
    Public Sub BeendeLesen(ByVal sp As SerialPort)
        If sp.WriteBufferSize = SerPortZ1.WriteBufferSize Then
            SerPortZ1ReadThread.Interrupt()
        Else
            SerPortZ2ReadThread.Interrupt()
        End If
    End Sub

Ahnungsloser ahnungsloser...

Private Sub ReadSerialPort(ByVal sp As SerialPort)
 
        Try
           '...
        Catch ex As System.TimeoutException
            Application.DoEvents()
            ReadSerialPort(sp)     'Darf ich hier loopen? Verursacht das 
            ' eventuell die Probs?
        '...
        End Try
 
    End Sub

Zitat:

Ich bin mir jetzt nicht sicher, da du ja immerwieder das SerialPort Objekt Byval übergibst, ob das nicht ständig neue Instanzen erzeugt und daher alles langsamer wird. Kann auch gut sein, das dieses Objekt da prinzipiell immer mit Byref übergeben wird, ich gestehe eine Wissenslücke . Jedenfalls würde es nicht schaden da Byref zu machen, da du ja eh immer mit dem Objekt weiterarbeitest.

DoSomething(ref myObj, ref bla);

DoSomething(myObj, bla);

Ahnungsloser ahnungsloser...

''' <summary>
    ''' Sub fügt empfangene Teilstrings aus Empfangs-Event zusammen.
    ''' </summary>
    ''' <param name="Buffer">Teilstrings aus Empfang</param>
    ''' <remarks></remarks>
    Private Sub Fügen(ByVal Buffer As String)
        Empfang = Empfang + Buffer   'Hier wird der empfangene Text 
        ' zusammengefügt
        If Buffer.Contains(Chr(13)) Then
            Verarbeitung(Empfang, SerPort)   'Und hier an die Auswertung 
            ' übergeben
            Empfang = String.Empty           'Bei sehr kurzen 
            ' Empfangsereignissen kommt es nicht zum löschen der globalen 
            ' Variable. Die Sub beginnt einfach wieder von vorn.
        End If
 
    End Sub

Serport.write(Befehl1)
system.threading.thread.sleep(100)  'Kurze Wartezeiten damit die Schnittstelle/ 
' das Gerät sich nicht verschluckt;).
serport.write(Befehl2)
system.threading.thread.sleep(100)
serport.write(Befehl3)

Serport.write(Befehl1)
system.threading.thread.sleep(100)
If Antwort = "OK" then
serport.write(Befehl2)
else
serport.write(Befehl3)
end if

Ahnungsloser ahnungsloser...

Zitat:

Private Sub Fügen(ByVal Buffer As String) Empfang = Empfang + Buffer 'Hier wird der empfangene Text ' zusammengefügt If Buffer.Contains(Chr(13)) Then Verarbeitung(Empfang, SerPort) 'Und hier an die Auswertung ' übergeben Empfang = String.Empty 'Bei sehr kurzen ' Empfangsereignissen kommt es nicht zum löschen der globalen ' Variable. Die Sub beginnt einfach wieder von vorn. End If   End Sub

Zitat:

Hier habe ich aber scheinbar die Rechnung ohne VB gemacht. Das abarbeitet nämlich erst mal fluffig meinen Code mit den Befehlen ab und verarbeitet das Empfangsevent scheinbar nicht sofort.

    Private Sub HandleConnection(sp As SerialPort)
        Try
 
            ' 1. Befehl senden
            sp.Write("ERSTER_BEFEHL" & ChrW(13))
            ' 1. Antwort auslesen
            Dim firstAnswer As String = sp.ReadTo(ChrW(13))
 
            If firstAnswer = "ABC" Then
                ' 2. Befehl senden
                sp.Write("ZWEITER_BEFEHL" & ChrW(13))
                ' 2. Antwort auslesen
                Dim secondAnswer As String = sp.ReadTo(ChrW(13))
            End If
            ' usw.
 
        Catch ex As ThreadInterruptedException '...
        End Try
    End Sub

Try
 
            ' 1. Befehl senden
            sp.Write("ERSTER_BEFEHL" & ChrW(13))
            ' 1. Antwort auslesen
            Dim firstAnswer As String = sp.ReadTo(ChrW(13))
 
            If firstAnswer = "ABC" Then
                ' 2. Befehl senden
                sp.Write("ZWEITER_BEFEHL" & ChrW(13))
                ' 2. Antwort auslesen
                Dim secondAnswer As String = sp.ReadTo(ChrW(13))
            End If
            ' usw.
 
        Catch ex As ThreadInterruptedException '...
        End Try

Ahnungsloser ahnungsloser...

Zitat:

Naja, ich empfange die Daten derzeit nicht über den Thread sondern über ein Datarecive in dem ich alle existierenden Zeichen einlese und an die Methode zum zusammenfügen übergebe. Daher prüfe ich dort ob ein Empfangener String auch Chr(13) enthält. Ich dachte zuerst auch das ich durch das "If Buffer.Contains(Chr(13)) Then" unter Umständen ein oder mehrere Zeichen übersehen könnt. Da das Datarecive aber nach jedem Zeichen diese Methode aufzurufen scheint hatte ich bis jetzt damit keine Probleme.

Zitat:

An sowas hatte ich auch gedacht allerdings habe ich ja zusätzlich das Datarecive-Event aktiviert. Wenn ich dann versuche im Thread mittels ReadTo die Antwort auszulesen kommt es da nicht zu eventuellen Redundanzen? Also das ich zuerst z.B. firstAnswer einlesen kann aber das Datarecive Event danach auch noch einmal den Empfangenen String bearbeitet. Oder gibt es eine Möglichkeit solche Events temporär, z.B. für die Dauer einer Methode, zu deaktivieren?

Ahnungsloser ahnungsloser...