Programm friert beim schließen RS232-Schnittstelle ein

  • VB.NET

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

    Programm friert beim schließen RS232-Schnittstelle ein

    Hallo allerseits,

    schon lange war ich nicht mehr hier :D

    Ich habe ein Problem mit einer RS232 Schnittstelle. Ich lese Daten von einem µC. Dieser sendet die Daten ununterbrochen. Ich habe mir irgendwo aus dem Internet (vbArchiv oder wo auch immer) Code geholt, der auch prima "lesen kann".

    VB.NET-Quellcode

    1. Imports System.Text
    4. Public Class Form1
    6. #Region "Variablen und API's"
    8. ' Variable die das decodierte Byte aufnimmt
    9. Dim Programm As String
    11. 'Damit der eingehende Wert an die txtprogramm Textbox übergenben werden
    12. ' kann! Führt die Sub Wertübergabe aus!
    13. Private Delegate Sub DelegateSub()
    14. Private TextboxAktualisieren As New DelegateSub(AddressOf Wertübergabe)
    16. #End Region
    18. #Region "Form"
    20. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    21. closePort()
    22. End Sub
    24. Private Sub closePort()
    25. Try
    26. If SerialPort1.IsOpen Then
    27. SerialPort1.Close()
    28. End If
    29. Catch ex As Exception
    31. End Try
    32. End Sub
    34. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    35. Me.txtprogramm.Visible = False
    36. Me.cmd_portclose.Enabled = False
    37. Me.Text = "CAN-Gateway"
    38. Me.Top = Screen.PrimaryScreen.WorkingArea.Height / 2 - Me.Height / 2
    39. Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2 - Me.Width / 2
    41. ' Show all available COM ports.
    42. For Each sp As String In My.Computer.Ports.SerialPortNames
    43. ListBox1.Items.Add(sp)
    44. Next
    45. If Me.ListBox1.Items.Count > 0 Then
    46. Me.ListBox1.SelectedIndex = 0
    47. End If
    49. ' Serialport Daten (Für Feeler Fanuc Series 0-T: Baudrate 4800 ;
    50. ' StopBits One ; DataBits 7 ; Parity None ; Handshake None)
    51. 'SerialPort1.BaudRate = 115200
    52. 'SerialPort1.StopBits = IO.Ports.StopBits.One
    53. 'SerialPort1.DataBits = 8
    54. 'SerialPort1.Parity = IO.Ports.Parity.None
    55. 'SerialPort1.Handshake = IO.Ports.Handshake.None
    56. End Sub
    57. #End Region
    60. #Region "Datentransfer"
    61. Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As _
    62. System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    64. For i As Int32 = 0 To SerialPort1.BytesToRead ' Alle Bytes einzel
    65. ' lesen und anzeigen
    66. Try
    67. Dim buf As Byte() = {SerialPort1.BaseStream.ReadByte}
    68. Dim enc As New System.Text.ASCIIEncoding()
    69. Programm = enc.GetString(buf)
    70. Programm = Programm.Replace(Chr(13), Nothing)
    72. Me.Invoke(TextboxAktualisieren)
    74. Catch ex As Exception
    75. MessageBox.Show("Ein Übertragungsfehler ist aufgetreten.", _
    76. "Fehler", MessageBoxButtons.OK)
    77. End Try
    78. Next i
    80. End Sub
    82. Private Sub Wertübergabe()
    83. ' ## Daten in Textbox übertragen
    84. txtprogramm.AppendText(Programm)
    85. End Sub
    87. #End Region
    89. Private Sub cmd_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_end.Click
    90. closePort()
    91. End
    92. End Sub
    94. Private Sub cmd_portclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_portclose.Click
    95. closePort()
    96. Me.txtprogramm.Visible = False
    97. Me.cmd_portclose.Enabled = False
    98. Me.ListBox1.Visible = True
    99. Me.cmd_portopen.Enabled = True
    100. End Sub
    102. Private Sub cmd_portopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_portopen.Click
    103. With SerialPort1
    104. .BaudRate = 115200
    105. .Parity = IO.Ports.Parity.None
    106. .Handshake = IO.Ports.Handshake.None
    107. .DataBits = 8
    108. .StopBits = IO.Ports.StopBits.One
    109. .PortName = Me.ListBox1.SelectedItem
    110. End With
    111. If Not SerialPort1.IsOpen Then
    112. Try
    113. SerialPort1.Open()
    114. Me.cmd_portopen.Enabled = False
    115. Me.ListBox1.Visible = False
    116. Me.txtprogramm.Visible = True
    117. Me.Label1.Visible = False
    118. Me.cmd_portclose.Enabled = True
    119. Catch
    120. MsgBox("Fehler beim öffnen des Ports. Eventuell kein Gerät angeschlossen!")
    121. End Try
    122. Else
    123. MsgBox("Dieser Port wird bereits verwendet")
    124. End If
    125. End Sub
    126. End Class


    Mein Problem ist jetzt: Wenn ich versuche den Port zu schleißen, friert das ganze Programm ein.

    Ich weiß nicht genau woran es liegt aber ich denke dass es wegen den immer weiter kommenden Daten ist, die wiederum den Event DataReceived aufrufen und so den Prozess nicht gescheit sterben lassen. Ich habe es schon versucht in Threads aufzuteilen. Wenn ich dann den Thread geschlossen habe - fror das Programm wieder ein. Wenn ich den Thread ohne den Port zu schließen tötete - ging alles einwandfrei - ich konnte allerdings den Port nicht nocheinmal öffnen da er noch quasi geöffnet ist.

    Ich hoffe ihr könnt mich unterweisen was meinen Fehler angeht. Vielen Dank!

    Da bin ich ja froh, das VB2008 die selben Macken wie VB6 hat. Das liegt unter VB6 daran, dass die angekommenen Daten noch nicht verarbeitet worden sind. Als Lösungsansatz würde ich den Empfangsbuffer "runter drehen". Bei mir kommt dieses Verhalten hauptsächlich per virtuellem USB-Comport. Womöglich verbietet der Treiber des vCOM das schließen, während Daten noch unterwegs sind.
    Bei der physikalischen Schnittstelle habe ich diese "Probleme" nicht so beobachten können.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook