WPF und Multithreading

  • WPF

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    WPF und Multithreading

    Hallo Ihr lieben,

    ich bin mir nicht sicher ob das direkt in das WPF-Forum gehört, da ich schon immer meine Probleme mit Multithreading hatte, aber da dies mein erster Versuch in WPF ist, hab ich das mal hier aufgemacht, wenn das falsch sein sollte bitte verschieben.

    Ich bin mal über diesen Topic gestoßen Infinite-Monkey-Theorem Tool Programmieren? - Sonstige Problemstellungen - VB-Paradise 2.0 — Die große Visual–Basic– und .NET–Community (vb-paradise.de) und dachte das wäre doch mal ein gutes kleines Übungsprojekt.

    Im Vorfeld dachte ich zumindest, dass wenn ich das über Propertys regeln würde, ich in der WPF auch ohne Multithreading, einfach im ablauf eines Loops, die Ergebnisse in der UI angezeigt bekomme, wie sich nun zeigt, friert während eines Loops auch die WPF ein. Also komme ich wohl nicht um Threading herum.....

    Jedoch muss ich zugeben das es mir gänzlich am Verständniss des Threadings mangelt, man findet viele verschiedene Ansätze, direkt über Thread, über eigene Prozesse, Backgroundworker usw. aber bislang scheitere ich massiv an deren Anwendung.

    bisheriger Ansatz (definitiv nicht funktionsfähig da ja noch ohne Threading)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.ObjectModel
    2. Imports System.Timers
    4. Imports System
    5. Imports System.ComponentModel
    6. Imports System.Windows
    8. Public Class MainViewModel
    9. Inherits BaseViewModel
    11. Public Shared ReadOnly Instance As New MainViewModel
    13. Dim rnd As New Random
    14. Dim rndWord As New Text.StringBuilder
    16. Dim Runtimer As New Stopwatch
    18. Private _targetWord As String = String.Empty
    19. Public Property TargetWord() As String
    20. Get
    21. Return _targetWord
    22. End Get
    23. Set(ByVal value As String)
    24. ChangePropIfDifferent(value, _targetWord)
    25. End Set
    26. End Property
    28. Private _runtime As TimeSpan = TimeSpan.Zero
    29. Public Property Runtime() As TimeSpan
    30. Get
    31. Return _runtime
    32. End Get
    33. Set(ByVal value As TimeSpan)
    34. ChangePropIfDifferent(value, _runtime)
    35. End Set
    36. End Property
    38. Private _results As ObservableCollection(Of String) = New ObservableCollection(Of String)
    39. Public Property Results() As ObservableCollection(Of String)
    40. Get
    41. Return _results
    42. End Get
    43. Set(ByVal value As ObservableCollection(Of String))
    44. ChangePropIfDifferent(value, _results)
    45. End Set
    46. End Property
    48. Public ReadOnly Property StartMonkeysCommand As New RelayCommand(AddressOf StartMonkeysCommand_Execute, Function(o) TargetWord IsNot String.Empty)
    50. Private Sub StartMonkeysCommand_Execute(obj As Object)
    51. MonkeysAtWork()
    52. End Sub
    54. Private Sub MonkeysAtWork()
    56. Runtimer.Reset()
    58. Do Until Results.Contains(TargetWord)
    59. For i As Integer = 0 To TargetWord.Length - 1
    60. rndWord.Append(Chr(rnd.Next(65, 90)))
    61. Next
    62. Results.Add(rndWord.ToString)
    63. Runtime = Runtimer.Elapsed
    64. rndWord.Clear()
    65. Loop
    67. End Sub
    69. End Class



    Ich müsste also einen Weg finden um:

    VB.NET-Quellcode

    1. Do Until Results.Contains(TargetWord)
    2. For i As Integer = 0 To TargetWord.Length - 1
    3. rndWord.Append(Chr(rnd.Next(65, 90)))
    4. Next
    5. Results.Add(rndWord.ToString)
    6. Runtime = Runtimer.Elapsed
    7. rndWord.Clear()
    8. Loop


    Diese Sub in nach Möglichkeit so vielen Threads auszuführen wie Kerne da Sind, aber ich komme nichtmal auf einen guten Ansatz wie ich das versuchen könnte, evtl. kann mir von euch ja jemand ein kleines Beispiel posten, wie Ihr in so einem Fall auf Threading zurückgreift ? Was soll cih wählen, Backgroundworker oder Threads direkt ? Und ich stoße hierbei auch immer wieder auf so genanntes Invoken, was sich mir auch noch nicht erschließt. Bitte nicht falsch verstehen, ich möchte keinen vorgekauten Code, aber ein gutes Beispiel und ein paar Ansätze wären echt eine große Hilfe


    Vielen dank schonmal =)


    Nachtrag: Ich habs zumindest schonmal soweit hinbekommen, das ich einen Thread zum laufen bekomme,

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Imports System.Collections.ObjectModel
    2. Imports System.Timers
    4. Imports System
    5. Imports System.ComponentModel
    6. Imports System.Windows
    8. Public Class MainViewModel
    9. Inherits BaseViewModel
    11. Public Shared ReadOnly Instance As New MainViewModel
    12. Dim Runtimer As New Stopwatch
    14. #Region "ThreadSafeStuff"
    15. Delegate Sub Update_UI(ByVal FoundString As String)
    16. Public Sub Update_UISub(ByVal FoundString As String)
    18. Results.Add(FoundString)
    19. Runtime = Runtimer.Elapsed
    21. End Sub
    22. #End Region
    24. Private _targetWord As String = String.Empty
    25. Public Property TargetWord() As String
    26. Get
    27. Return _targetWord
    28. End Get
    29. Set(ByVal value As String)
    30. ChangePropIfDifferent(value, _targetWord)
    31. End Set
    32. End Property
    34. Private _runtime As TimeSpan = TimeSpan.Zero
    35. Public Property Runtime() As TimeSpan
    36. Get
    37. Return _runtime
    38. End Get
    39. Set(ByVal value As TimeSpan)
    40. ChangePropIfDifferent(value, _runtime)
    41. End Set
    42. End Property
    44. Private _results As ObservableCollection(Of String) = New ObservableCollection(Of String)
    45. Public Property Results() As ObservableCollection(Of String)
    46. Get
    47. Return _results
    48. End Get
    49. Set(ByVal value As ObservableCollection(Of String))
    50. ChangePropIfDifferent(value, _results)
    51. End Set
    52. End Property
    54. Public ReadOnly Property StartMonkeysCommand As New RelayCommand(AddressOf StartMonkeysCommand_Execute, Function(o) TargetWord IsNot String.Empty)
    56. Private Sub StartMonkeysCommand_Execute(obj As Object)
    57. Runtimer.Reset()
    59. Dim neuerthread As System.Threading.Thread
    60. neuerthread = New System.Threading.Thread(AddressOf MonkeysAtWork)
    62. neuerthread.Start(TargetWord) 'Vorgang starten
    64. Runtimer.Start()
    65. End Sub
    67. Private Sub MonkeysAtWork(TargetWord As String)
    69. Dim Upd As New Update_UI(AddressOf Update_UISub)
    70. Dim Result As String = String.Empty
    71. Dim rnd As New Random
    72. Dim rndWord As New Text.StringBuilder
    74. Do Until Result = TargetWord
    75. Result = String.Empty
    76. For i As Integer = 0 To TargetWord.Length - 1
    77. rndWord.Append(Chr(rnd.Next(65, 90)))
    78. Next
    79. Result = rndWord.ToString
    80. Application.Current.Dispatcher.Invoke(Upd, Result)
    81. rndWord.Clear()
    82. Loop
    83. End Sub
    85. End Class


    allerdings friert das Programm ein, wenn ich auf diese Weise versuche, mehrere Threads davon zu starten, aber es muss doch irgendwie möglich sein, meinen Prozessor damit auch wirklich auf Anschlag auszulasten, also mehrere Threads zeitgleich an so einer Aufgabe arbeiten zu lassen, oder nicht ?
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

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

    Grundsätzlich ist Threading doch nicht weiter kompliziert:
    1) Eine Aufgabe wird in einen NebenThread verlegt, "abgefeuert" und "vergessen" - d.h. der MainThread kann ungestört fortfahren.
    2) ist die Aufgabe erledigt, meldet der NebenThread sich zurück, und die Ergebnisse werden (im MainThread) eingepflegt.

    Das lässt sich ideal mit dem Async/Await-Pattern abfackeln: codeproject.com/Articles/10296…ithout-any-additional-Lin
    Bereits der erste Abschnitt des Tuts passt ist wie geschaffen für dein Anliegen und erstmal ausreichend.

    Du hast da noch einen Zusatz-Wunsch: Du willst bestimmen, dass mehrere Kernel beaufschlagt werden.
    Das ist ein zweiter Entwicklungs-Schritt - innerhalb des NebenThreads nun Parallel.For korrekt einsetzen.
    Ich weiss nicht, ob das Monkey-Problem für Parallel.For zugänglich ist, afaik benötigt Parallel.For eine Input-Menge.
    D.h. zB ein Permutations-Algorithmus, bei dem sich aus jedem Ergebnis das nächste ableitet, ist nicht parallelisierbar, weil es gibt zu jedem Zeitpunkt immer nur einen Input.
    Und es ist auch nicht ganz trivial, zB 4 Inputs zu schaffen, weil dann ist u.U. möglich, dass die Ergebnis-Mengen, wenn man sie später zusammenführt, haufenweise Dubletten enthalten.

    hm, also gesetzt dem Fall ich hab das richtig umgesetzt, hilft es leider nicht, da ich per AddressOf, so keinen Parameter mit übergeben kann <---- ok, das ist erledigt.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.ObjectModel
    2. Imports System.Timers
    4. Imports System
    5. Imports System.ComponentModel
    6. Imports System.Windows
    7. Imports System.Threading
    9. Public Class MainViewModel
    10. Inherits BaseViewModel
    12. Public Shared ReadOnly Instance As New MainViewModel
    13. Dim Runtimer As New Stopwatch
    15. Private _targetWord As String = String.Empty
    16. Public Property TargetWord() As String
    17. Get
    18. Return _targetWord
    19. End Get
    20. Set(ByVal value As String)
    21. ChangePropIfDifferent(value, _targetWord)
    22. End Set
    23. End Property
    25. Private _runtime As TimeSpan = TimeSpan.Zero
    26. Public Property Runtime() As TimeSpan
    27. Get
    28. Return _runtime
    29. End Get
    30. Set(ByVal value As TimeSpan)
    31. ChangePropIfDifferent(value, _runtime)
    32. End Set
    33. End Property
    35. Private _results As ObservableCollection(Of String) = New ObservableCollection(Of String)
    36. Public Property Results() As ObservableCollection(Of String)
    37. Get
    38. Return _results
    39. End Get
    40. Set(ByVal value As ObservableCollection(Of String))
    41. ChangePropIfDifferent(value, _results)
    42. End Set
    43. End Property
    45. Private WithEvents _Progress As New Progress(Of List(Of String))
    46. Private Sub Progress_ProgressChanged(sender As Object, e As List(Of String)) Handles _Progress.ProgressChanged
    47. For Each s As String In e
    48. Results.Add(s)
    49. Next
    50. End Sub
    52. Public ReadOnly Property StartMonkeysCommand As New RelayCommand(AddressOf StartMonkeysCommand_Execute, Function(o) TargetWord IsNot String.Empty)
    54. Private Async Sub StartMonkeysCommand_Execute(obj As Object)
    55. Runtimer.Reset()
    56. Runtimer.Start()
    58. Await Task.Run(Sub() MonkeysAtWork(TargetWord))
    60. End Sub
    62. Private Sub MonkeysAtWork(TargetWord As String)
    64. Dim prgs As IProgress(Of List(Of String)) = _Progress
    66. Dim Result As List(Of String) = New List(Of String)
    67. Dim rnd As New Random
    68. Dim rndWord As New Text.StringBuilder
    70. Do Until Result.Contains(TargetWord)
    72. For i As Integer = 0 To TargetWord.Length - 1
    73. rndWord.Append(Chr(rnd.Next(65, 90)))
    74. Next
    75. Result.Add(rndWord.ToString)
    77. If Result.Count > 10000 Then
    78. prgs.Report(Result)
    79. Result.Clear()
    80. End If
    82. rndWord.Clear()
    83. Loop
    85. End Sub


    Ich denke ich habs zumindest soweit das es funktioniert, nur krieg ichs nicht hin das ich auch Rückgabewerte bekomme....

    er meckert immer hier:

    VB.NET-Quellcode

    1. Private Sub Progress_ProgressChanged(sender As Object, e As List(Of String)) Handles _Progress.ProgressChanged
    2. For Each s As String In e
    3. Results.Add(s)
    4. Next
    5. End Sub

    "Die Sammlung wurde geändert. Der Enumerationsvorgang kann möglicherweise nicht ausgeführt werden."
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

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

    Da hab ich mich vermutlich falsch ausgedrückt,

    Im Prinzip würde ich anstreben: Ich Starte die Äffchen, möglichst viele Zeitgleich, und irgendwie muss ich ja in der UI anzeigen, was jedes dieser Äffchen tut, also im Endeffekt die jeweiligen generierten Strings irgendwie aus diesen Threads in der UI anzeigen, sobald eines der Äffchen das TargetWord gefunden hat, sollen alle anderen auch aufhören, nur irgendwie krieg ich ja noch nichtmal die aktuellen Daten aus den Threads in die UI, geschweige denn das ich bereits wüsste wie ich die Threads dann schließen könnte sobald einer fertig ist.

    Nachtrag: Habe jetzt alles nochmal etwas überarbeitet, und denke mal das ich deinen Async-Vorschlag korrekt eingebaut habe, nur krieg ich auch auf diese Weise nur einen einzelnen Thread zum laufen...

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​Imports System.Collections.ObjectModel
    2. Imports System.Timers
    4. Imports System
    5. Imports System.ComponentModel
    6. Imports System.Windows
    7. Imports System.Threading
    9. Public Class MainViewModel
    10. Inherits BaseViewModel
    12. Public Shared ReadOnly Instance As New MainViewModel
    13. Dim Runtimer As New Stopwatch
    15. Private _targetWord As String = String.Empty
    16. Public Property TargetWord() As String
    17. Get
    18. Return _targetWord
    19. End Get
    20. Set(ByVal value As String)
    21. ChangePropIfDifferent(value, _targetWord)
    22. End Set
    23. End Property
    25. Private _runtime As TimeSpan = TimeSpan.Zero
    26. Public Property Runtime() As TimeSpan
    27. Get
    28. Return _runtime
    29. End Get
    30. Set(ByVal value As TimeSpan)
    31. ChangePropIfDifferent(value, _runtime)
    32. End Set
    33. End Property
    35. Private _results As ObservableCollection(Of String) = New ObservableCollection(Of String)
    36. Public Property Results() As ObservableCollection(Of String)
    37. Get
    38. Return _results
    39. End Get
    40. Set(ByVal value As ObservableCollection(Of String))
    41. ChangePropIfDifferent(value, _results)
    42. End Set
    43. End Property
    45. Public ReadOnly Property StartMonkeysCommand As New RelayCommand(AddressOf StartMonkeysCommand_Execute, Function(o) TargetWord IsNot String.Empty)
    47. Private Sub StartMonkeysCommand_Execute(obj As Object)
    48. Runtimer.Reset()
    49. Runtimer.Start()
    51. SendMonkeysToWork(TargetWord, Results)
    53. End Sub
    55. Private Async Sub SendMonkeysToWork(TargetWord As String, ByVal Results As ObservableCollection(Of String))
    56. Do Until Results.Contains(TargetWord)
    58. Dim Stringlist = Await Task.Run(Function() MonkeyAtWork(TargetWord))
    59. For Each s As String In Stringlist
    60. Results.Add(s)
    61. Next
    63. Runtime = Runtimer.Elapsed
    64. Loop
    65. End Sub
    67. Private Function MonkeyAtWork(TargetWord As String) As List(Of String)
    69. Dim Result As List(Of String) = New List(Of String)
    70. Dim rnd As New Random
    71. Dim rndWord As New Text.StringBuilder
    73. For I As Integer = 1 To 1000
    74. For ii As Integer = 0 To TargetWord.Length - 1
    75. rndWord.Append(Chr(rnd.Next(65, 90)))
    76. Next
    77. Result.Add(rndWord.ToString)
    78. rndWord.Clear()
    79. Next
    81. Return Result
    83. End Function
    85. End Class

    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

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

    Jo, so ist wie ich gedacht hab.
    Und es zeigt sich, dass das wohl nicht sinnvoll ist als nebenläufige Aufgabe, weil 1000 Worte zu generieren ist vmtl. nur ein Zucken - oder?
    Diese Monkey-Arbeit ist wohl überhaupt kein gutes Studien-Objekt für Threading, weil die wird ja nie fertig.

    Naja - vielleicht doch.
    Weil Nun kannst du Experimente machen, wie lang das Wort sein muss, dass es in einer sinnvollen Zeit gefunden wird. Die Zeiten werden stark schwanken, aber länger als 10s wirds wohl kein Spass machen.
    Und wenn du das erreicht hast: einen "Versuchs-Aufbau", der durchschnittlich 5s läuft - dann kannste das Verfahren mit Parallel.For auf mehrere Kernels verteilen.

    Deine Zeitmessung sollte übrigens direkt nach dem Await-Call erfolgen - dass du das Ergebnis erst noch in eine OC umfüllst, wo auch noch dran gebunden ist - das kann die Messung evtl. sehr verfälschen.


    Nee - isses wohl aber auch nicht.
    Du schickst ihn ja immer wieder ins Await - bis das Targetwort gefunden wurde.
    Async-Pattern ist, dass er einmal in die Nebenläufigkeit geht, und erst returnt, wenner fertig ist.

    ErfinderDesRades schrieb:


    Und es zeigt sich, dass das wohl nicht sinnvoll ist als nebenläufige Aufgabe, weil 1000 Worte zu generieren ist vmtl. nur ein Zucken - oder?

    Nun kannst du Experimente machen, wie lang das Wort sein muss, dass es in einer sinnvollen Zeit gefunden wird. Die Zeiten werden stark schwanken, aber länger als 10s wirds wohl kein Spass machen.
    Und wenn du das erreicht hast: einen "Versuchs-Aufbau", der durchschnittlich 5s läuft - dann kannste das Verfahren mit Parallel.For auf mehrere Kernels verteilen.

    Deine Zeitmessung sollte übrigens direkt nach dem Await-Call erfolgen - dass du das Ergebnis erst noch in eine OC umfüllst, wo auch noch dran gebunden ist - das kann die Messung evtl. sehr verfälschen.


    Nee - isses wohl aber auch nicht.
    Du schickst ihn ja immer wieder ins Await - bis das Targetwort gefunden wurde.
    Async-Pattern ist, dass er einmal in die Nebenläufigkeit geht, und erst returnt, wenner fertig ist.



    Ja die 1000 Strings gehen ansich ziemlich fix, aktuell versuche ich es mit dem Wörtchen "Hallo" da sitzt der nun aber schon gut 20 Minuten dran ^^


    Der Grundlegende Gedanke, weshalb ich diesen Ansatz gewählt habe ist der, das ich so immer wieder Rückgabewerte bekomme, Ohne das ich irgendwelche Probleme damit habe an die Daten heranzukommen, und nur wenn nicht das Gewünschte Wort enthalten ist, wird erneut aufgerufen, du sagst also der Ansatz macht so keinen Sinn ?
    Und verzeih mir das ich nachfragen muss, was ist denn bitte eine OC ? Zum Thema ParralelFor, das hab ich die letzten 2 Stunden versucht, aber ich finde keine für mich begreiflichen Tutorials dazu und verstehe 0 damit umzugehen, leider...
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    OC: ObservableCollection - ich hab eine Lese-Schreibschwäche bei langen Wörtern.

    asusdk schrieb:

    Ja die 1000 Strings gehen ansich ziemlich fix, aktuell versuche ich es mit dem Wörtchen "Hallo" da sitzt der nun aber schon gut 20 Minuten dran
    Ich nehme an, 19,99 Minuten davon verbringt er damit, die Strings in die OC einzufügen, und per DataBinding im GUI drauf zu reagieren.
    Es scheint mir keine gute Idee, sämtliche ausprobierten Zufalls-Worte anzeigen zu wollen. Das wird sich niemand durchlesen wollen, ausser vlt. Chuck Norris.

    Hehe, ja Chuck Norris müsste die Listbox aber nur angucken und aus Angst würde die ihm freiwillig verraten was er wissen will :P
    Ich hab mir was in die Richtung gedacht und hab daher davon abgesehen die tatsächlichen Wörter anzeigen zu wollen, und bin auf einen schlichten Word-Counter gewechselt. Das Wort SONGUKO war nach etwa 9 Milliarden Wörtern endlich gefunden, benötigte aber auch so noch gut 20 Minuten

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MainViewModel
    2. Inherits BaseViewModel
    4. Public Shared ReadOnly Instance As New MainViewModel
    5. Dim Runtimer As New Stopwatch
    7. Private _targetWord As String = String.Empty
    8. Public Property TargetWord() As String
    9. Get
    10. Return _targetWord
    11. End Get
    12. Set(ByVal value As String)
    13. ChangePropIfDifferent(value, _targetWord)
    14. End Set
    15. End Property
    17. Private _runtime As TimeSpan = TimeSpan.Zero
    18. Public Property Runtime() As TimeSpan
    19. Get
    20. Return _runtime
    21. End Get
    22. Set(ByVal value As TimeSpan)
    23. ChangePropIfDifferent(value, _runtime)
    24. End Set
    25. End Property
    27. Private _generatedWords As Long = 0
    28. Public Property GeneratedWords() As Long
    29. Get
    30. Return _generatedWords
    31. End Get
    32. Set(ByVal value As Long)
    33. ChangePropIfDifferent(value, _generatedWords)
    34. End Set
    35. End Property
    37. Public ReadOnly Property StartMonkeysCommand As New RelayCommand(AddressOf StartMonkeysCommand_Execute, Function(o) TargetWord IsNot String.Empty)
    39. Private Sub StartMonkeysCommand_Execute(obj As Object)
    40. Runtimer.Reset()
    41. Runtimer.Start()
    42. GeneratedWords = 0
    44. SendMonkeysToWork(TargetWord.ToUpper)
    45. End Sub
    47. Private Async Sub SendMonkeysToWork(TargetWord As String)
    48. Do
    49. Dim Stringcount = Await Task.Run(Function() MonkeyAtWork(TargetWord))
    50. GeneratedWords += Stringcount
    51. Runtime = Runtimer.Elapsed
    52. If Stringcount < 100000 Then Exit Do
    53. Loop
    54. End Sub
    56. Private Function MonkeyAtWork(TargetWord As String) As Long
    57. Dim Result As Long = 0
    58. For I As Integer = 1 To 100000
    59. Dim ActualWord = NewRandomString(TargetWord.Length)
    60. Result += 1
    61. If ActualWord = TargetWord Then
    62. If Result >= 100000 Then Result = 99999
    63. Exit For
    64. End If
    65. Next
    66. Return Result
    67. End Function
    69. Dim rnd As New System.Random
    70. Private Function NewRandomString(ByVal length As Integer) As String
    71. If length <= 0 Then Return ""
    72. Dim CharSet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    73. Dim GenRandomStr As New Text.StringBuilder
    74. Dim RandomBytes(length - 1) As Byte
    75. rnd.NextBytes(RandomBytes)
    77. For i As Integer = 0 To length - 1
    78. GenRandomStr.Append(CharSet(RandomBytes(i) Mod CharSet.Length))
    79. Next
    81. Return GenRandomStr.ToString
    82. End Function
    84. End Class


    Jetzt müsste ich noch rauskiregen wie ich das mit Parralel.For zum laufen kriege oder ?
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    erstmal ein paar Vereinfachungen:

    VB.NET-Quellcode

    1. Private Function MonkeyAtWork(TargetWord As String) As Long
    2. For i As Long = 1 To Long.MaxValue
    3. If NewRandomString(TargetWord.Length) = TargetWord Then Return i
    4. Next
    5. Return -1L
    6. End Function
    7. Dim rnd As New System.Random
    8. Private Function NewRandomString(length As Integer) As String
    9. Const CharSet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    10. Dim chars = Enumerable.Range(0, length).Select(Function(x) CharSet(rnd.Next(0, 25)))
    11. Return New String(chars.ToArray)
    12. End Function



    Jetzt habich mir Parallel.For nochmal angeguckt - ist wohl der falsche Dampfer.
    Weil das will alle Threads zuende bringen.

    Du aber willst beenden, sobald der erste fertig ist.
    Dieses Anliegen ist durch Task.WaitAny() abgebildet.

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

    hm also mit der Stopwatch gestestet, ist die neue RandomStringmethode um einiges Langsamer als die alte, ich hatte das extra über Bytes gelöst, da lt.: vb.net - Generate Random String is very slow - Stack Overflow das dann knapp 34% schneller ist, und du meintest ja vorhin ich soll das so stark beschleunigen wie möglich.
    die neue MonkeyAtWork Methode verstehe ich absolut gar nicht, also von der Syntax her, und die Updatet auch scheinbar deutlich seltener, kannst du mir die evtl. etwas genauer erläutern ?

    Lg und danke dir
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    naja, meine MonkeyWorkAt returnt, wenn sie das Ergebnis hat - nicht vorher.
    Deine returnt scheints auch nach 100000 Iterationen - ohne Ergebnis.

    kann ich natürlich auch machen:

    VB.NET-Quellcode

    1. Private Function MonkeyAtWork(TargetWord As String) As Long
    2. For i As Long = 1 To 99999
    3. If NewRandomString(TargetWord.Length) = TargetWord Then Return i
    4. Next
    5. Return 100000
    6. End Function
    Findich aber kein gut Design, weil die Methode tut einfach nicht, was man intuitiv von ihr erwarten würde.
    Allgemein üblich ist, dass eine Suche mit numerischem Ergebnis -1 zurückgibt, wenn sie nix findet.


    Fürs Paralellisieren ist auch wichtig, dass die Methode nicht ohne Ergebnis verfrüht returnt.
    Also würde ich doch meine erste Version empfehlen.

    Zu dem anderen: Überrascht mich, dass das langsamer ist - dann lass halt so.

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

    Das ergibt durchaus Sinn, da bin ich ganz bei dir und so oder so, danke ich dir wirklich vielmals dafür, das du mir so oft unter die Arme greifst, obwohl bei mir noch soviel Grundwissen fehlt! Ich bin mir auch nur deswegen unsicher damit, da die UI so ja nicht wirklich anzeigt das etwas getan wird, ohne das hin und wieder der WortCount oder der Timer etwas anderes anzeigen, so bleibt die UI zwar responsive aber indiziert dennoch nicht das Programm an sich derzeit etwas tut. Vielleicht hab ich auch einen grundlegend falschen Ansatz gewählt, ich werd das alles nochmal von Grundauf neu durchdenken müssen.

    LG =)
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    asusdk schrieb:

    Vielleicht hab ich auch einen grundlegend falschen Ansatz gewählt
    Ansatz für was? - was willst du erreichen?
    Vermutlich kann mans durchaus mit Async/Await und Task lösen, aber man muss definieren, was man braucht.
    Und dann schrittweise aufbauen.
    Habich im verlinkten Tut eiglich vorexerziert, und benenne da auch die verschiedenen Anforderungen, die man an GUI-Nebenläufigkeit haben kann:
    • GUI entblocken, aber Rückgabewert erhalten
    • Nebenläufigkeit absichern gegen mehrfaches auslösen
    • Prozess-Feedback - also was der Thread grad macht
    • canceln
    • Fehler-Behandlung
    Jo, das muss man trennen, und zB nicht von "Rückgabewert" sprechen, wenn man "Prozess-Feedback" meint.
    Ausserdem hast du noch ein sechstes erwähnt: Die Last verteilen auf mehrere Kerne.

Facebook
Telefonspende