Multi Threading und ProgressBar

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Multi Threading und ProgressBar

    Hallo alle Zame,

    ich arbeite gerade an einer Berechnung wo 3D Messpunkte miteinander verglichen werden also immer die X,Y,Z Werte.
    Über eine einfache Vektorrechnung wird der Abstand im Raum ermittelt.

    Ziel ist es die sich jeweils am nächsten liegenden Punkte zu ermitteln den Abstand abzufragen und dem ersten Punkt diesen Abstand zuzuweisen.
    Da wir hier über zwei Punktedateien mit bis zu 16 Millionen Punkten sprechen habe ich das ganze auf mehrere Threads aufgesplittet und lass es
    so auf mehreren Prozessoren gleichzeitig rechnen.

    Das funktioniert auch gut wenn auch noch nicht ganz so schnell wie ich es gern hätte.

    Nun zu meinem Problem.

    Ich würde gern eine Progressbar den Berechnungsfortschritt anzeigen lassen. Nur bekomm ich aus den einzelnen laufenden Threads keine auswertbare Information heraus die ich dazu benutzen könnten den Balken zu füllen.

    Hat das schon mal einer gemacht? Und könnte Mir einen Tip geben?

    Berechnungsroutine des Threads:

    Visual Basic-Quellcode

    1. Public Class Rechnung
    2. Friend PunkteDB1 As List(Of Punkte.Punkt)
    3. Friend PunkteDB2 As List(Of Punkte.Punkt)
    4. Friend Ergebnis As List(Of Punkte.Punkt)
    6. Public Sub Berechnen()
    7. For Each PP1 As Punkte.Punkt In PunkteDB1
    8. Dim Abstand As Double
    9. Dim PP3 As New Punkte.Punkt
    11. For Each PP2 As Punkte.Punkt In PunkteDB2
    12. Dim Wert As Double
    14. Wert = Math.Sqrt((PP2.X - PP1.X) ^ 2 + (PP2.Y - PP1.Y) ^ 2 + (PP2.Z - PP1.Z) ^ 2)
    16. If Wert < Abstand Then
    17. Abstand = Wert
    18. PP3 = PP2
    19. End If
    21. PunkteDB2.Remove(PP3)
    22. Next
    24. If Abstand < 2 Then
    25. PP1.Abstand = Abstand
    26. Ergebnis.Add(PP1)
    27. End If
    28. Next
    29. End Sub
    30. end class



    Aufruf der Threads aus Hauptprogramm in etwa so:

    Visual Basic-Quellcode

    1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    2. Dim Rechner1 As New Rechnung
    3. Dim Rechner2 As New Rechnung
    4. Dim Rechner3 As New Rechnung
    5. Dim Rechner4 As New Rechnung
    6. Dim Einfügen1 As New System.Threading.Thread(AddressOf Rechner1.Berechnen1)
    7. Dim Einfügen2 As New System.Threading.Thread(AddressOf Rechner2.Berechnen2)
    8. Dim Einfügen3 As New System.Threading.Thread(AddressOf Rechner3.Berechnen3)
    9. Dim Einfügen4 As New System.Threading.Thread(AddressOf Rechner4.Berechnen4)
    10. Dim Bereich1 As New List(Of Punkte.Punkt)
    11. Dim Bereich2 As New List(Of Punkte.Punkt)
    12. Dim Bereich3 As New List(Of Punkte.Punkt)
    13. Dim Bereich4 As New List(Of Punkte.Punkt)
    16. Rechner1.PunkteDB1 = Bereich1
    17. Rechner2.PunkteDB1 = Bereich2
    18. Rechner3.PunkteDB1 = Bereich3
    19. Rechner4.PunkteDB1 = Bereich4
    21. Rechner1.PunkteDB2 = PunkteDef2.PunkteDB
    22. Rechner2.PunkteDB2 = PunkteDef2.PunkteDB
    23. Rechner3.PunkteDB2 = PunkteDef2.PunkteDB
    24. Rechner4.PunkteDB2 = PunkteDef2.PunkteDB
    26. Einfügen1.Start()
    27. Einfügen2.Start()
    28. Einfügen3.Start()
    29. Einfügen4.Start()
    31. Einfügen1.Join()
    32. For Each PP As Punkte.Punkt In Rechner1.Ergebnis
    33. Ergebnis.Add(PP)
    34. Next
    36. Einfügen2.Join()
    37. For Each PP As Punkte.Punkt In Rechner2.Ergebnis
    38. Ergebnis.Add(PP)
    39. Next
    41. Einfügen3.Join()
    42. For Each PP As Punkte.Punkt In Rechner3.Ergebnis
    43. Ergebnis.Add(PP)
    44. Next
    46. Einfügen4.Join()
    47. For Each PP As Punkte.Punkt In Rechner4.Ergebnis
    48. Ergebnis.Add(PP)
    49. Next
    50. End Sub

    @tfuchs@cadsys.de Sende vom Thread aus an die Parent-Klasse ein Event, in dessen Parameter Du den entsprechenden Wert übergibst.
    In der empfangenden Klasse musst Du noch invoken, da der Sender in einem anderen Theread läuft.
    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!

    ich würde ganz anders vorgehen - bei so einer grossen Datenmenge, und derart schnellen Einzel-Schritten ist Polling deutlich günstiger, als sich da in jeden Berechnungs-Vorgang einhaken zu wollen.

    Also - evtl. sogar ganz ohne Threading: Mach einen Timer, der alle 300ms abfragt, wie weit der Vorgang inzwischen gediehen ist.
    Eine Aktuallisierung der Anzeige alle 300ms reicht vollkommen - schneller kann eh kein Mensch gucken.

    Also ich hab erstmal die erste Variante ausprobiert von Rod.

    Funktioniert gut und macht genau das was ich wollte. Die Performance hat sich jetzt dadurch auch nicht verschlechtert weil es im Moment ehh. knapp 5 min braucht um alle Punkte zu verrechnen.
    Was ich dazu sagen muss bei der Berechnung läuft eine Doppelschleife da jeder Punkt mit jedem verrechnet wird. Das heißt ich habe jetzt die Aktualisierung in der äußeren Schleife und die läuft,
    laut "StopWatch" bei 600.000 Punkte einmal in 200 ms durch.

    Das heisst je Threat wird einmal alle 200 ms die ProgressBar aktualisiert.

    Ich werde das mit dem Polling auch nochmal probieren, denke aber die finalen Unterschiede sind nicht erkennbar.

    tfuchs@cadsys.de schrieb:

    da jeder Punkt mit jedem verrechnet wird.
    Ich kenne jetzt den Algorithmus nicht, aber mit Parallel.For() könnte da viel zu holen sein: docs.microsoft.com/de-de/dotne…r?view=netframework-4.7.2
    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!

Facebook
Telefonspende