Mehrere Threads aufrufen und Daten in den Hauptthread übergeben

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Passend zu dem Thema hätte ich noch ein Problem.

    Ich lasse die Kollisions-Überprüfung in einem eigenen Thread laufen, damit das Programm während der Berechnung nicht einfriert, wenn große Datensätze vorliegen.

    Das Problem ist, das ich das jetzt durch die Parallel.For nicht mehr von Außen abbrechen kann. Also über einen Button_Click.

    Hier der schematische Code. Wie könnte man das lösen???

    VB.NET-Quellcode

    1. Private Sub Btn_Simulation_Click(sender As Object, e As EventArgs) Handles Btn_Simulation.Click
    3. Dim _th As New Thread(AddressOf GetCollisionEntities)
    5. End Sub
    7. Private Sub Chk_FirstKollision_CheckedChanged(sender As Object, e As EventArgs) Handles Chk_FirstKollision.CheckedChanged
    9. If Firstload Then Return
    11. If Chk_FirstCollision.Checked = True Then
    13. StopAfterFirstCollision = True
    15. Else
    17. StopAfterFirstCollision = False
    19. End If
    21. End Sub
    23. Private Sub GetCollisionEntities()
    25. ' Alles vorbereiten für die Kollisionsprüffung
    26. '
    27. '
    28. ' ...........
    30. ' ############################################################
    31. ' KOLLISIONSPÜPFFUNG
    32. ' ############################################################
    34. Using cancelToken As CancellationTokenSource = New CancellationTokenSource()
    36. Dim options As ParallelOptions = New ParallelOptions()
    37. options.CancellationToken = cancelToken.Token
    38. options.MaxDegreeOfParallelism = 4
    40. ProgressBar1.Visible = True
    41. ProgressBar1.Minimum = 0
    42. ProgressBar1.Maximum = 1000
    43. ProgressBar1.Value = 0
    44. ProgressBar1.Step = 1000 / cs.CollisionsPointList.Count
    46. Try
    47. Parallel.For(0, cs.CollisionsPointList.Count, options, Sub(n)
    49. ' ############################################################################
    50. ' PROBLEM, ==> Kann die Parallel.For nicht durch einen Button_Click abbrechen
    51. ' ############################################################################
    53. If StopAfterFirstCollision And icc.Count > 0 Then
    55. ' Sobald eine Kollision gefunden wird, wird die Parallel.For unterbrochen
    56. ' Der Boolean wird aber davor schon gesetzt durch die CheckBox
    58. cancelToken.Cancel()
    60. End If
    62. End Sub)
    63. Catch ex As Exception
    65. End Try
    67. End Using
    69. Next
    71. Next
    73. ' #######################
    74. ' Weiter im Sub
    75. ' #######################
    77. End Sub

    Na lecker. Irgendwelcher zerhackstückelter Code, der nicht kompiliert.

    VB.NET-Quellcode

    1. If Chk_FirstCollision.Checked = True Then
    2. StopAfterFirstCollision = True
    3. Else
    4. StopAfterFirstCollision = False
    5. End If

    ->

    VB.NET-Quellcode

    1. StopAfterFirstCollision = Chk_FirstCollision.Checked

    Zeile#53: Der Unterschied zwischen And und AndAlso/Or und OrElse

    Aber nun zu einer möglichen Lösung: Beseitige den Using Block. Mach die CTS klassenweit verfügbar, erzeuge eine neue Instanz in Zeile#4 und dann kannst Du auch mit einem ButtonClick die CTS canceln. Und nach Threadende kannst Du die CTS disposen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private cts As New CancellationTokenSource
    3. '…
    4. Private Sub GetCollisionEntities()
    5. options.CancellationToken = cts.Token
    6. '…
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. cts.Cancel()
    9. End Sub
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende