Einfaches Com-Programm hängt

  • VB.NET

Es gibt 34 Antworten in diesem Thema. Der letzte Beitrag () ist von M4st3rM.

    Hier ist mal mein kompletter Quelltext soweit.
    Das einzigste, was ich nun nicht verstanden habe ist
    Hinzukommt, dass du nun den ganzen Code im GUI-Thread ausführst.
    Rufe deine UpdatePortData direkt und ohne Invoke auf.




    Spoiler anzeigen

    Quellcode

    1. Option Strict On
    3. Public Class Form1
    4. Dim myPort As Array
    5. Dim Lokal_verbunden As Boolean
    6. Dim newString As String
    7. Dim Var_Licht_digital As Integer
    8. Dim Var_Licht_Analog As Single
    9. Dim Var_Poti1_digital As Integer
    10. Dim Var_poti1_analog As Single
    11. Dim Var_Poti2_digital As Integer
    12. Dim Var_poti2_analog As Single
    13. Dim Taster1 As Boolean
    14. Dim Taster2 As Boolean
    15. Dim Adresse As String
    16. Dim Wert As String
    18. Delegate Sub InvokeDelegate()
    20. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    21. SerialPort1.Close()
    22. End Sub
    24. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    25. SerialPort1.NewLine = Environment.NewLine
    26. SerialPort1.Encoding = System.Text.Encoding.UTF8
    27. myPort = IO.Ports.SerialPort.GetPortNames()
    28. ComboBox1.Items.AddRange(CType(myPort, Object()))
    29. ComboBox1.Text = "COM3"
    30. ComboBox2.Text = CStr(9600)
    32. Button1.Enabled = False
    33. Button2.Enabled = False
    34. Button3.Enabled = False
    35. Button5.Enabled = False
    36. Button8.Enabled = False
    37. End Sub
    39. Private Sub UpdatePortData(newString As String)
    41. Dim Splitted As String() = newString.Split(CChar("#"))
    42. Dim count As Integer
    43. count = Splitted.Length
    44. If count = 2 Then
    45. Adresse = Splitted(0)
    46. Wert = Splitted(1)
    48. If Adresse = "A001" Then
    49. Var_Licht_digital = CInt(Wert)
    50. If cockpit.Visible Then
    51. cockpit.Gasgriff_Tacho.BeginInvoke(New InvokeDelegate(AddressOf Gasgriff_Tacho_verändern))
    52. End If
    53. End If
    55. If Adresse = "A003" Then
    56. Var_Poti1_digital = CInt(Wert)
    57. If cockpit.Visible Then
    58. cockpit.IGBT_Tacho.BeginInvoke(New InvokeDelegate(AddressOf IGBT_Tacho_verändern))
    59. End If
    60. End If
    62. If Adresse = "A007" Then
    63. Taster1 = CBool(CInt(Wert))
    64. If cockpit.Visible Then
    65. cockpit.PictureBox5.BeginInvoke(New InvokeDelegate(AddressOf Bremse_Anzeige_verändern))
    66. End If
    67. End If
    68. End If
    70. End Sub
    72. Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    73. newString = SerialPort1.ReadLine.Trim
    74. Me.Invoke(Sub() UpdatePortData(newString))
    75. End Sub
    77. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    78. SerialPort1.Write("SLED1:1" + vbCr)
    79. newString = ""
    80. End Sub
    81. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    82. SerialPort1.Write("SLED1:0" + vbCr)
    83. newString = ""
    84. End Sub
    85. Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
    86. SerialPort1.Write("SLED2:0" + vbCr)
    87. newString = ""
    88. End Sub
    89. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    90. SerialPort1.Write("SLED2:1" + vbCr)
    91. newString = ""
    92. End Sub
    94. Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
    95. SerialPort1.PortName = ComboBox1.Text
    96. SerialPort1.BaudRate = CInt(ComboBox2.Text)
    97. SerialPort1.Open()
    98. End Sub
    100. Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
    101. SerialPort1.Close()
    102. End Sub
    104. Public Sub Gasgriff_Tacho_verändern()
    105. cockpit.Gasgriff_Tacho.Value = Var_Poti1_digital
    106. End Sub
    108. Public Sub IGBT_Tacho_verändern()
    109. cockpit.IGBT_Tacho.Value = Var_Licht_digital
    110. End Sub
    112. Public Sub Bremse_Anzeige_verändern()
    113. If Taster1 = True Then
    114. cockpit.PictureBox5.Image = Kontrollprogrammv1.My.Resources.Resources.bremse_gelb
    115. ElseIf Taster1 = False Then
    116. cockpit.PictureBox5.Image = Kontrollprogrammv1.My.Resources.Resources.bremse_rot
    117. End If
    118. End Sub
    120. Private Sub Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click
    121. cockpit.Show()
    122. End Sub
    124. Private Sub Button13_Click(sender As System.Object, e As System.EventArgs) Handles Button13.Click
    125. Notaus.Show()
    126. End Sub
    128. Private Sub Button14_Click(sender As System.Object, e As System.EventArgs) Handles Button14.Click
    129. Akkuüberwachung.Show()
    130. End Sub
    132. Private Sub Button15_Click(sender As System.Object, e As System.EventArgs) Handles Button15.Click
    133. Batterie12V.Show()
    134. End Sub
    136. Private Sub Button16_Click(sender As System.Object, e As System.EventArgs) Handles Button16.Click
    137. motorstatus.Show()
    138. End Sub
    140. Private Sub Button17_Click(sender As System.Object, e As System.EventArgs) Handles Button17.Click
    141. canmodulstatus.Show()
    142. End Sub
    144. Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    146. If SerialPort1.IsOpen = True Then
    147. Label6.Text = "Verbunden"
    148. Label6.ForeColor = Color.Green
    149. Lokal_verbunden = True
    150. Button4.Enabled = True
    151. Button7.Enabled = True
    152. Button6.Enabled = True
    153. Button9.Enabled = True
    154. Else
    155. Label6.Text = "Getrennt"
    156. Label6.ForeColor = Color.Red
    157. Lokal_verbunden = False
    158. Button4.Enabled = False
    159. Button7.Enabled = False
    160. Button6.Enabled = False
    161. Button9.Enabled = False
    163. End If
    165. End Sub
    167. End Class

    du kannst SerialPort.NewLine = vbCr machen und anschließend SerialPort.WriteLine verwenden.

    VB.NET-Quellcode

    1. ​If Taster1 = True Then

    das Überprüfen ob ein Boolescher Wert wahr ist, ist unnötig
    ->

    VB.NET-Quellcode

    1. If Taster1 Then

    das anschließende ElseIf ist bei booleschen Werten auch nicht nötig, wenn ein Wert nicht True ist, kann dieser nur noch False sein.
    -> Else verwenden
    Die newString Variable kannst du entfernen und nurnoch im DataReceived-Event deklarieren:

    VB.NET-Quellcode

    1. Dim newString As String = SerialPort1.ReadLine.Trim

    Aus den anderen Methoden kannst du die Zuweisung newString = "" komplett entfernen.

    anstelle von CInt würde ich Integer.Parse verwenden um Strings in Ints umzuwandeln.

    VB.NET-Quellcode

    1. Dim val As Integer = Integer.Parse(Wert)
    2. Dim bool As Boolean = val<>0 'CBool(val)

    VB.NET-Quellcode

    1. Lokal_verbunden = False
    2. Button4.Enabled = False
    3. Button7.Enabled = False
    4. Button6.Enabled = False
    5. Button9.Enabled = False

    Solche Zuweisungen kann man etwas zusammenfassen

    VB.NET-Quellcode

    1. Lokal_verbunden = Button4.Enabled = Button7.Enabled = .. = False

    Außerdem könntest du zusammengehörende Controls in ein Panel packen und entsprechend die Enabled-Eigenschaft des Panels setzen(wirkt sich auf alle Untercontrols aus)

    VB.NET-Quellcode

    1. cockpit.PictureBox5.BeginInvoke(New InvokeDelegate(AddressOf Bremse_Anzeige_verändern))

    Das könnte man theoretisch mit anonymen Methoden machen(so wie du den Aufruf von UpdatePortData machst)

    VB.NET-Quellcode

    1. cockpit.PictureBox5.BeginInvoke(Sub() If Taster1 Then
    2. cockpit.PictureBox5.Image = Kontrollprogrammv1.My.Resources.Resources.bremse_gelb
    3. Else
    4. cockpit.PictureBox5.Image = Kontrollprogrammv1.My.Resources.Resources.bremse_rot
    5. End If
    6. End Sub


    Was ich außerdem meinte war das hier:

    VB.NET-Quellcode

    1. Me.Invoke(Sub() UpdatePortData(newString))

    ->

    VB.NET-Quellcode

    1. UpdatePortData(newString)

    Denn die GUI Synchronization wird ja jetzt bereits mit BeginInvoke innerhalb der Methode gemacht.

    Allgemein solltest du jedoch deine Controls noch benennen, so kann man nicht erkennen, wofür welche Controls zuständig sind.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Okay, super, Danke für die vielen Hinweise ;)
    Habe soweit alles umgesetzt, außer das letzte.
    Wenn ich ein Label erstelle um den Empfangstext anzuzeigen gibt es

    Quellcode

    1. {"Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement Label1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde."}
    aus.

    Bezügl. der Empfangsgeschwindigkeit ändert sich aber nichts.
    Hast du da zufällig noch ne Idee?

    Genau das habe ich bereits erklärt, dafür ist das Invoke da um Threads mit dem GUI-Thread zu synchronisieren, du kannst nicht auf die GUI aus einem anderem Thread als dem GUI Thread zugreifen.

    Mir ist noch was anderes böses aufgefallen, dein Timer, ich erklärs mal an einem Beispiel, dass jemand aus dem Forum(ich glaube es war picoflop) gerne gebracht hat.
    Wenn du eine Pizza bestellst, gehst du nicht jede Sekunde an die Tür um zu gucken ob die Pizza schon da ist, sondern wartest bis der Lieferant an der Tür klingelt.
    Der SerialPort wird nur geschlossen, wenn du dies explizit tust, also ändere deine GUI an den stellen, an denen du den Port schließt und guck nicht alle paar ms(s) ob er bereits geschlossen wurde.

    Das letzte was mir dazu vlt. noch einfällt wäre jetzt das Lesen tatsächlich selbst und gepuffert zu machen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ja der Timer macht so natürlich keinen Sinn, Danke ;)
    Habe mir nun verschiedene Funktionen mit ReadByte und Readchar geschrieben, allerdings sind diese noch langsamer als ReadLine.

    Nun habe ich allerdings eine Lösung gefunden: Der Timer steht auf 100ms und löscht dann den Eingangsbuffer.
    Dadurch konnte ich die Zeit zwischen den Übertragungen auf 1ms Reduzieren. Evtl. reicht das für meinen Fall schon aus.

    Was, welcher Timer löscht den Eingangsbufer?

    Gepuffertes lesen ist btw. ziemlich genau das gegenteil von einzelnen Zeichen lesen.
    msdn.microsoft.com/de-de/library/ms143549(v=vs.110).aspx
    das speicherst dir zwischen während dessen du parallel die Daten auswertest, sozusagen einen Ringbuffer.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Der Timer der zuvor geprüft hat, ob der Com-Port offen ist.

    Quellcode

    1. Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. If SerialPort1.IsOpen Then
    4. SerialPort1.DiscardInBuffer()
    5. End If
    6. End Sub

    jvbsl schrieb:

    Der SerialPort wird nur geschlossen, wenn du dies explizit tust, also ändere deine GUI an den stellen, an denen du den Port schließt und guck nicht alle paar ms(s) ob er bereits geschlossen wurde.

    M4st3rM schrieb:

    ob der Com-Port offen ist.
    What :?:
    Das Port bleibt offen, solange eine Kommunikation erforderlich ist oder solange das Programm läuft.
    Wenn Du den Eingabepuffer permanent löschst, löschst Du ggf. Informationen, die Du empfangen willst.

    M4st3rM schrieb:

    VB.NET-Quellcode

    1. SerialPort1.Write("SLED1:1" + vbCr)
    machst Du

    VB.NET-Quellcode

    1. SerialPort1.WriteLine("SLED1:1")
    ---------------------------------------

    jvbsl schrieb:

    Solche Zuweisungen kann man etwas zusammenfassen

    VB.NET-Quellcode

    1. Lokal_verbunden = Button4.Enabled = Button7.Enabled = .. = False
    What :?:
    Hast Du das probiert? Ich schon. :S



    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    RodFromGermany schrieb:

    machst Du[...]

    hab ich bereits geschrieben.

    RodFromGermany schrieb:

    What
    Hast Du das probiert? Ich schon.

    heißt das etwa es funktioniert nicht? Ist gut möglich, dann wird das wohl in allen Sprachen außer VB .Net funktionieren :D
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    jvbsl schrieb:

    es funktioniert nicht?
    Jou.

    C-Quellcode

    1. a = b = c = false;

    Das ist ein C-, C++-, C#-Ranz.
    VB macht da eine komplexe logische Vergleichsoperation draus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    Das ist ein C-, C++-, C#-Ranz.

    Da darf ich wiedersprechen und sagen, dass es eher umgekehrt ist(angefangen damit, dass Zuweisungsoperator und Vergleichsoperator nicht unterscheidbar sind). Solch ein Ausdruck ergibt komplett Sinn, auch mathematisch. Außerdem kann man damit wahnsinnig schöne Konstrukte machen.
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    jvbsl schrieb:

    wahnsinnig schöne Konstrukte
    Weiß ich, aber ich vermeide so was. :/
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Okay Leute ;)
    Vielen Dank. Nun habe ich noch weiter gelesen und versucht eine Lösung zu finden, mit der auch einmalige Ereignisse nicht verloren gehen. Vieleicht mag jemand da nochmal raufgucke und schauen, ob da noch Murks drinn ist? Funktionieren tut es zumindest.
    Ich habe allerdings das Datenformat ändern müssen.
    Die Datenpakete sehen nun so aus:
    D#A001#1023#E#;
    D = Anfang des Satzes
    A001 = Hier die Adresse
    1023 = Datenwert
    E = Ende des Satzes. Nötig war dies, um zu erkennen, ob der Datensatz vollständig ist. Wenn der Timer gerade in der Übertragung ausgerufen wird könnte sonst D#A001#10 empfangen werden.
    So habe ich allerdings noch das Problem, das zwei Datensätze in 100ms verloren gehen könnte.
    (Erster und letzter Datensatz). Evtl. sende ich alle einmaligen Meldungen zweimal oder lasse es so.

    Geschwindigkeit ist aufjedenfall unter 1ms, aber Die GUI "verpasst" trotzdem einige Werte.



    VB.NET-Quellcode

    1. Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. If SerialPort1.IsOpen Then
    3. 'Wird alle 100ms ausgeführt
    4. Me.Invoke(Sub() Test())
    5. End If
    6. End Sub


    VB.NET-Quellcode

    1. Private Sub Test()
    2. Dim ToRead As Integer = SerialPort1.BytesToRead
    3. Dim länge As Integer
    4. Dim cnt As Integer
    5. Dim Meintext As String
    6. Meintext = ""
    7. cnt = 0
    9. If ToRead > 0 Then
    10. Dim Buffer(ToRead - 1) As Char
    11. 'Kompletten Speicher lesen (Zeichenweise)
    12. SerialPort1.Read(Buffer, 0, ToRead)
    13. länge = Buffer.Length
    15. 'Zeichen zum String "Meintext" zufügen, bis alle Zeichen angefügt sind
    16. For index As Integer = 0 To länge - 1
    17. Meintext = Meintext + Buffer(index)
    18. Next
    21. 'Den String bei allen #-Zeichen splitten
    22. Dim Splitted As String() = Meintext.Split(CChar("#"))
    23. Dim count As Integer
    24. count = Splitted.Length
    27. For Index2 As Integer = 0 To count - 1
    28. If Index2 < (count - 4) Then
    30. 'Wenn im ersten (aufgerufenen) Array ein D und im 3 danach ein E folgt,
    31. 'ist der Datensatz vollständig
    32. If Splitted(Index2) = "D" And Splitted(Index2 + 3) = "E" Then
    34. Adresse = Splitted(Index2 + 1)
    35. Wert = Splitted(Index2 + 2)
    37. 'Auswerten der Daten
    38. If Adresse = "A001" Then
    39. Var_Licht_digital = Integer.Parse(Wert)
    40. If cockpit.Visible Then
    41. cockpit.Gasgriff_Tacho.BeginInvoke(New InvokeDelegate(AddressOf Gasgriff_Tacho_verändern))
    42. End If
    43. End If
    45. If Adresse = "A003" Then
    46. Var_Poti1_digital = Integer.Parse(Wert)
    47. If cockpit.Visible Then
    48. cockpit.IGBT_Tacho.BeginInvoke(New InvokeDelegate(AddressOf IGBT_Tacho_verändern))
    49. End If
    50. End If
    52. If Adresse = "A007" Then
    53. Taster1 = Integer.Parse(Wert) <> 0
    54. If cockpit.Visible Then
    55. cockpit.PictureBox5.BeginInvoke(New InvokeDelegate(AddressOf Bremse_Anzeige_verändern))
    56. End If
    57. End If
    59. If Adresse = "A0010" Then
    60. Meldung = Wert
    61. ListBox1.BeginInvoke(New InvokeDelegate(AddressOf Meldung_Ausgeben))
    62. End If
    63. Index2 = Index2 + 3
    64. End If
    65. End If
    67. Next
    68. Meintext = ""
    69. End If
    70. End Sub

    M4st3rM schrieb:

    Die Datenpakete sehen nun so aus:
    D#A001#1023#E#;
    Wenn das Semikolon das Ende einer Zeile darstellt, gib dem Port dies:

    VB.NET-Quellcode

    1. Me.SerialPort1.NewLine = ";"
    und ruf dann die Werte mit

    VB.NET-Quellcode

    1. Dim txt = Me.SerialPort1.ReadLine
    ab.
    Wozu rufst Du das InvokeDelegate auf? Die Prozedur Test() läuft bereits im Main-Thread.
    Vielleicht solltest Du die Daten auslesen und im Serial-Thread bereitstellen und dann ein GUI-Update-Invoke aufrufen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Habe das Programm nun fast komplett fertig.
    Allerdings erhalte ich noch zwischendurch manchmal eine Fehlermeldung (unregelmäßig, zwischen 10 und 300 Sekunden dazwischen), und zwar:

    Brainfuck-Quellcode

    1. Informationen über das Aufrufen von JIT-Debuggen
    2. anstelle dieses
    3. Dialogfelds finden Sie am Ende dieser Meldung.
    5. ************** Ausnahmetext **************
    6. System.FormatException: Die
    7. Eingabezeichenfolge hat das falsche Format.
    8. bei
    9. System.Windows.Forms.Control.MarshaledInvoke(Control caller, Delegate method,
    10. Object[] args, Boolean synchronous)
    11. bei
    12. System.Windows.Forms.Control.Invoke(Delegate method, Object[] args)
    13. bei
    14. Kontrollprogrammv1.Form1.Timer1_Tick(Object sender, EventArgs e)
    15. bei
    16. System.Windows.Forms.Timer.OnTick(EventArgs e)
    17. bei
    18. System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
    19. bei
    20. System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr
    21. wparam, IntPtr lparam)
    23. ************** Geladene Assemblys **************
    24. mscorlib
    26. Assembly-Version: 4.0.0.0.
    27. Win32-Version: 4.0.30319.34209 built by:
    28. FX452RTMGDR.
    29. CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll.
    30. ----------------------------------------
    31. ELMO
    32. 1.0 BETA
    33. Assembly-Version: 1.0.0.0.
    34. Win32-Version: 1.0.0.0.
    36. CodeBase: file:///C:/Users/I-User/AppData/Local/Apps/2.0/2KHEPNQB.BDZ/5GYJ7RE3.TR0/elmo..tion_a2bfb8c1eb1f1fbc_0001.0000_c41869981753519e/ELMO 1.0 BETA.exe.
    37. ----------------------------------------
    38. Microsoft.VisualBasic
    40. Assembly-Version: 10.0.0.0.
    41. Win32-Version: 12.0.51209.34209 built by:
    42. FX452RTMGDR.
    43. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
    44. ----------------------------------------
    45. System.Windows.Forms
    47. Assembly-Version: 4.0.0.0.
    48. Win32-Version: 4.0.30319.34209 built by:
    49. FX452RTMGDR.
    50. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
    51. ----------------------------------------
    52. System.Drawing
    54. Assembly-Version: 4.0.0.0.
    55. Win32-Version: 4.0.30319.34209 built by:
    56. FX452RTMGDR.
    57. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
    58. ----------------------------------------
    59. System
    61. Assembly-Version: 4.0.0.0.
    62. Win32-Version: 4.0.30319.34238 built by:
    63. FX452RTMGDR.
    64. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll.
    65. ----------------------------------------
    66. System.Runtime.Remoting
    68. Assembly-Version: 4.0.0.0.
    69. Win32-Version: 4.0.30319.34245 built by:
    70. FX452RTMGDR.
    71. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
    72. ----------------------------------------
    73. mscorlib.resources
    75. Assembly-Version: 4.0.0.0.
    76. Win32-Version: 4.0.30319.18408 built by:
    77. FX451RTMGREL.
    78. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_de_b77a5c561934e089/mscorlib.resources.dll.
    79. ----------------------------------------
    80. Microsoft.VisualBasic.resources
    82. Assembly-Version: 10.0.0.0.
    83. Win32-Version: 11.0.50938.18408 built by:
    84. FX451RTMGREL.
    85. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic.resources/v4.0_10.0.0.0_de_b03f5f7f11d50a3a/Microsoft.VisualBasic.resources.dll.
    86. ----------------------------------------
    87. System.Windows.Forms.resources
    89. Assembly-Version: 4.0.0.0.
    90. Win32-Version: 4.0.30319.18408 built by:
    91. FX451RTMGREL.
    92. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
    93. ----------------------------------------
    94. System.Xml
    96. Assembly-Version: 4.0.0.0.
    97. Win32-Version: 4.0.30319.34234 built by:
    98. FX452RTMGDR.
    99. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll.
    100. ----------------------------------------
    102. ************** JIT-Debuggen **************
    103. Um das JIT-Debuggen
    104. (Just-In-Time) zu aktivieren, muss in der
    105. Konfigurationsdatei der Anwendung
    106. oder des Computers
    107. (machine.config) der jitDebugging-Wert im Abschnitt
    108. system.windows.forms festgelegt werden.
    109. Die Anwendung muss mit aktiviertem
    110. Debuggen kompiliert werden.
    112. Zum Beispiel:
    114. <configuration>
    115. <system.windows.forms jitDebugging="true"
    116. />
    117. </configuration>
    119. Wenn das JIT-Debuggen aktiviert ist, werden alle Ausnahmefehler an den
    120. JIT-Debugger gesendet, der auf dem
    121. Computer registriert ist, und nicht in
    122. diesem Dialogfeld behandelt.



    Kann man da irgendwo rauslesen, wo der Fehler auftritt? Ich vermute mal das es zwischendurch mal zu Datenfehlern kommt, was irgendwie zu einemF ehler führt.
    Kann ich diese irgendwie abfangen bzw. die Meldung unterdrücken?

    Edit:
    Habe noch eine Frage:
    Ich habe eine ListBox, in der Meldungen ausgegeben werden.
    Bei einer höheren Baut-Rate werden allerdings einträge in der Listbox doppelt hinzugefügt.
    An was kann dies liegen?

    If Adresse = "A072" Then
    Meldung = Wert
    If cockpit.Visible Then
    cockpit.Meldungen.BeginInvoke(New InvokeDelegate(AddressOf Update_Meldungen))
    End If
    End If


    Public Sub Update_Meldungen()
    cockpit.Meldungen.Items.Add(Meldung)
    cockpit.Meldungen.TopIndex = cockpit.Meldungen.Items.Count - 1
    End Sub

    Gruß
    Dirk

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „M4st3rM“ ()

Facebook
Telefonspende