Datenempfang über die Serielle Schittstelle hängt sich immer wieder auf

  • VB6

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Datenempfang über die Serielle Schittstelle hängt sich immer wieder auf

    Hallo,
    ich lasse Daten eines AVR Prozessors über die serielle Schnittstelle einlesen.
    Das Programm hierzu habe ich in VB6 geschrieben.
    Nun kommt es aber leider immer mal wieder vor dass sich das Empfangen der Daten aus irgent einem Grund aufhängt.
    Senden ist dann aber weiterhin möglich.
    Hat jemand ne Erklärung dafür, bzw. wie kann ich den Com Port reseten ohne jedes mal das Programm neu starten zu müssen?

    Hier mein Programmausschnitt:

    Visual Basic-Quellcode

    1. Private Sub MSComm1_OnComm()
    3. On Error GoTo Fehlerliste
    6. Select Case MSComm1.CommEvent
    8. Case comOverrun: MsgBox "Datenverlust!"
    9. Case comRxOver: MsgBox "Datenverlust!"
    10. Case comEvReceive: Me.Text1 = Me.Text1 + MSComm1.Input
    11. Case comEventBreak: MsgBox " 1001 Es wurde ein Anhaltesignal (Break-Signal) empfangen."
    12. Case comEventFrame: MsgBox " 1004 Datenblockfehler (Framing Error). Die Hardware hat einen Datenblockfehler entdeckt."
    13. Case comEventRxParity: MsgBox " 1009 Paritätsfehler (Parity Error). Die Hardware hat einen Paritätsfehler entdeckt."
    14. Case comEventTxFull: MsgBox " 1010 Sendepuffer voll (Transmit Buffer Full). Bei dem Versuch, ein Zeichen in die Warteschlange aufzunehmen, wurde festgestellt, daß der Sendepuffer voll war."
    15. Case comEventDCB: MsgBox "1011 Unerwarteter Fehler beim Abrufen des Device Control Block (DCB) für den Anschluß. "
    17. End Select
    19. Debug.Print MSComm1.Input
    21. vari1ende = InStr(Me.Text1, "#")
    23. If vari1ende > 20 Then
    25. Haus.ComEingang = Me.Text2
    26. Me.Text2 = Left(Me.Text1, vari1ende)
    27. Me.Protokoll1 = Time & " - " & Me.Text2 & Me.Protokoll1

    Es hängt sich normal nicht auf. Das Receive-Ereignis wird nicht zuverlässig angesprungen, wenn der Puffer noch nicht voll ist.
    Am zuverlässigsten läuft es bei mir, wenn ich regelmäßig die Größe des Empfangspuffers (MSCommX.InBufferCount) abfrage und wenn größer 0 die Daten manuell einlese und wenn ein chr(13) kommt auswerte.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hier mal das noch unaufgeräumte Grundgerüst inkl Fehlerabfangen und automatischer Suche nach dem richtigen Port:

    Visual Basic-Quellcode

    1. Private Sub PortAuf()
    3. Dim X As Integer
    4. If MSComm1.PortOpen Then MSComm1.PortOpen = False
    6. With MSComm1
    7. .Settings = "19200,n,8,1"
    8. .InBufferSize = 256
    9. .DTREnable = False
    10. .RTSEnable = False
    11. End With
    13. On Error Resume Next
    14. For X = 1 To 16
    15. Err.Clear
    16. MSComm1.CommPort = X
    17. MSComm1.PortOpen = True
    18. If Err.Number = 0 Then
    19. If isStoppuhr Then
    20. lblFehler.Caption = "Stopuhr an COM" & X
    21. For i = 0 To 3
    22. Command1(i).Enabled = True
    23. Next i
    24. log_Oeffnen
    25. mnuVerbindung.Caption = "Trennen"
    26. tmrEmpfang.Enabled = True
    27. On Error GoTo 0
    28. Exit Sub
    29. End If
    31. End If
    32. MSComm1.PortOpen = False
    33. Next X
    35. lblFehler.Caption = "Stopuhr nicht gefunden"
    36. On Error GoTo 0
    38. End Sub
    39. Private Function isStoppuhr() As Boolean
    40. Dim lZeit As Long
    41. Dim s As String
    42. MSComm1.Output = "0"
    43. lZeit = Timer + 1
    44. Do While Timer < lZeit
    45. Loop
    46. If MSComm1.InBufferCount > 0 Then
    47. s = MSComm1.Input
    48. If Left$(s, 7) = "Stopuhr" Then
    49. isStoppuhr = True
    50. End If
    51. End If
    53. End Function
    55. Private Sub PortZu()
    57. Dim sText As String
    58. Dim lZeit As Long
    60. tmrEmpfang.Enabled = False
    61. On Error Resume Next
    62. For i = 0 To 3
    63. Command1(i).Enabled = False
    64. Next i
    65. On Error Resume Next
    67. If MSComm1.PortOpen = False Then Exit Sub
    68. MSComm1.RTSEnable = False
    69. lZeit = Timer + 2
    70. Do While Timer < lZeit
    71. Loop
    73. sText = MSComm1.Input
    75. MSComm1.PortOpen = False
    76. mnuVerbindung.Caption = "Verbinden"
    78. Close F
    79. Err.Clear
    80. On Error GoTo 0
    82. End Sub
    84. Private Sub Form_Load()
    85. PortAuf
    86. End Sub
    90. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    91. PortZu
    93. End Sub
    94. Private Sub tmrEmpfang_Timer()
    96. Dim Anzahl As Long
    97. Dim i As Integer
    98. Dim s As String
    99. On Error GoTo Fehler
    100. Anzahl = MSComm1.InBufferCount
    102. If Anzahl > 0 Or Len(Eingang) > 0 Then
    103. s = MSComm1.Input
    105. Eingang = Eingang & s
    106. i = InStr(1, Eingang, Chr$(13))
    108. If i > 0 Then
    109. Eingang1 = Left$(Eingang, i)
    110. Eingang1 = Replace(Eingang1, Chr$(10), "")
    111. Eingang1 = Replace(Eingang1, Chr$(13), "")
    112. If Len(Eingang) > i + 1 Then
    113. Eingang = Mid$(Eingang, i + 1)
    114. Else
    115. Eingang = ""
    116. End If
    117. Auswerten
    118. End If
    119. End If
    120. On Error GoTo 0
    121. Exit Sub
    122. Fehler:
    123. lblFehler.Caption = Err.Description
    124. Err.Clear
    125. PortZu
    126. On Error GoTo 0
    128. End Sub


    Das Auswerten lasse ich mal weg, da werden Zeiten und so formatiert und eine Log-Datei geschrieben.
    Im Prinzip z.B. den Inhalt in einer Listbox anzeigen.

    Visual Basic-Quellcode

    1. private sub Auswerten()
    2. list1.additem eingang1
    4. end sub


    Edit: Kleinen Fehler behoben.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „peterfido“ ()

    Hallo,

    vielen Dank für deine Unterstützung.
    Leider bin ich an diesem Wochenende noch nicht zum ausprobieren gekommen.
    Ich werde es vermutlich auch erst nächstes WE schaffen.

    Ich schreibe mir übrigens auch gerade ein Programm welches am Ende eines CAN Busses Temperaturen und Schalter abfragt bzw. Steuert.
    Klappt soweit ganz gut aber mir fällt immer was neues an...

    Viele Grüße
    Tobias

    elkokiller schrieb:

    mir fällt immer was neues an...

    Kenn ich... :D

    Meines ist ein Projekt für den Sportclub eines Kollegen. Da kommen an die Laufbahn Lichtschranken, welche ihr Signal an einen kleinen AtTiny2313 schicken. Dieser stoppt die Zeiten und sendet die Ergebnisse zum Laptop.

    Die Anfrage des Kollegen war übrigens eine hier im Board schon öfter gestellte. Er wollte die Lichtschranken direkt an den Com-Port anschließen...
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hallo peterfido
    ich habe mir das Programm jetzt mal angesehen.
    Wäre es dir möglich mir das dazugehörige Formular zur Verfügung zu stellen.
    Da hier Timer und Buttons angesprochen werden würde mir das Formular den Durchblick doch erheblich erleichtern

    Danke!

    Grüße
    Tobias

    tmrEmpfang ist ein einfacher Timer mit Interval auf 60.
    Die Buttons kannst Du weglassen. Diese senden Zahlen an den Mikrocontroller.
    Da steht im Prinzip

    Visual Basic-Quellcode

    1. MSCOMM1.OUTPUT ="1"


    oder so drin.
    lblFehler und lblStatus waren 2 Label am unteren Rand, welche ich in der Zwischenzeit durch eine Statusbar ersetzt habe.
    mnuVerbindung ist ein Menüpunkt, welcher manuell die Verbindung aufbaut oder trennt.

    Die Funktion IsStopuhr ist für die automatische Suche nach dem richtigen Port. Wenn da kein Mikrocontroller oder
    PC dranhängt, welcher nach einer empfangenen "0" seine Kennung sendet, wo "Stopuhr" am Anfang drin vorkommt, stört sie nur.

    Mein Code war eher als Stütze gedacht und muss natürlich an die jeweiligen Bedürfnisse angepasst werden. Verbindungsaufbau und zuverlässiger Empfang
    sind aber drin.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Hi,
    ich bin jetzt drann den Code an mich anzupassen.
    Kannst du mir sagen wie dur "Eingang" definiert hast?

    z.b. If Anzahl > 0 Or Len(Eingang) > 0 Then

    Nach meinem Verständnis müsstest du doch irgentwo den Port selbst abfragen z.B.

    comEvReceive: eingang = eingang + MSComm1.Input

    Leider funktionirt das hier nicht.
    Hast du eine Idee?

Facebook