Problem mit dem .add in Parallel.ForEach

Dani=mc^2 · 22. November 2014, 15:54

Hallo zusammen

Ich sitze gerade seit min 12 Stunden daran so optional und schnell wie mögliche alle schwarzen Pixel aus diesem Bild zu Filtern und in eine List(Of Point) zu stecken.
Problem ist ich bekomme immer dies Fehlermeldung und kann nichts damit anfangen direkt, das bedeutet ich weiß nicht wie ich diesen Fehler behebe

Spoiler anzeigen

VB.NET-Quellcode

#Region "Pixel zeichen"
Private Async Sub pixel_erstellen()
Await Task.Run(Sub()
Dim bmp As New Bitmap(300, 300)
For x As Integer = 0 To bmp.Width - 1
For y As Integer = 0 To bmp.Height - 1
Dim i As Integer = R.Next(10) 'pixel dichte
If i = 1 Then bmp.SetPixel(x, y, Color.Black)
'bmp.SetPixel(R.Next(0, 300), R.Next(0, 300), Color.Black)
Next
Next
PictureBox1.Image = bmp
End Sub)
End Sub
#End Region
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
AllezuListe()
End Sub
Private Iterator Function auslesen() As IEnumerable(Of Point)
Dim Bild As Bitmap = New Bitmap(PictureBox1.Image)
For x As Integer = 0 To Bild.Width - 1
For y As Integer = 0 To Bild.Height - 1
Dim k As Integer = Bild.GetPixel(x, y).ToArgb
If Color.Black.ToArgb = k Then Yield New Point(x, y)
Next
Next
End Function 'Gibt die Koordinaten der schwarzen Punkte durch
'(Iteration) , d.h. nacheinander
Private Function AllezuListe() As List(Of Point)
Dim PP As New List(Of Point)
'<-------
Parallel.ForEach(auslesen, Async Sub(c) Await Task.Run(Sub() PP.Add(c))) ' Fehler bei PP.Add(c)
MessageBox.Show(String.Concat("Inhalt: ", PP.Count))
Return PP '{(x,y),(x,y)...}
'---------->
End Function

thefiloe · 22. November 2014, 16:02

Du weißt schon, dass dass dir 90% der Performance durch deine sinnlosen Tasks drauf gehen? Überall einen Task hinklatschen lässt das auch nicht schneller werden. Weshalb machst du in einer Parallel-ForEach Schleife nochmal Task.Run? Das ist komplett falsch und kontraproduktiv.

Dani=mc^2 · 22. November 2014, 16:21

also ich hab jetzt mehrer Möglichkeiten ausprobiert aber was ich mich frage warum macht das Parallel.ForEach nicht was die normal Schleife macht?
Wegen dem Yield beu Auslesen?

eine Parallel.ForEach ist doch genau das gleiche wie ein For Each oder nicht ?

Spoiler anzeigen

Artentus · 22. November 2014, 16:30

Dani=mc^2 schrieb:

ist doch genau das gleiche wie ein For Each

Nein, Foreach führt alle Iterationen nacheinander aus, Parallel.ForEach läuft parallel ab (pst. deswegen ist die Funktion in der Parallel-Klasse, aber nicht weitersagen). Nur die List(Of T) kann mit parallelen Add-Aufrufen nicht umgehen, die kommen sich dann gegenseitig in die Quere und verursachen einen Fehler. Du könntest mit Lock arbeiten aber das würde den Geschwindigkeitszuwachs durch Parallelisierung wieder zunichte machen, klüger wäre es in verschiedene Listen zu schreiben und diese dann später zusammenzufügen.

Dani=mc^2 · 22. November 2014, 16:47

Artentus schrieb:

Lock

Wie mit Lock

Also es mal so zusagen, wir reden hier ein von rund 1 Mil. Werten( Die werden gerade noch von Pixeln dagestellt) die es später sind.

Also ich hab das jetzt erstmal so umgesetzt aber was mir nicht gefällt ist das mein Form einfiert, also hängt sich kurzzeitig auf

Das ist aber Jetzt die ganze Such Methode nach den Pixeln c:

Und es geht immer noch nocht

Spoiler anzeigen

VB.NET-Quellcode

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ZuL()
End Sub
Public Structure PointToPoint
Public Punktwert As WP
Public x, y, xI, yI, xII, yII As Integer
Public Tan_winkel, Abstand As Double
Public Class Brechnung
Public Shared Function Vergleich(Wert As Integer, WertI As Integer) As Integer
If Wert < WertI Then Return WertI - Wert
Return Wert - WertI
End Function
Public Shared Function Seite_c(a As Integer, b As Integer) As Double
Return Math.Sqrt((a ^ 2) + (b ^ 2))
End Function
End Class
Public Sub New(Pointe As WP)
Punktwert = Pointe
xI = Punktwert.PunktI.X
yI = Punktwert.PunktI.Y
xII = Punktwert.PunktII.X
xII = Punktwert.PunktII.Y
x = Brechnung.Vergleich(xI, xII)
y = Brechnung.Vergleich(yI, yII)
Tan_winkel = y / x
Abstand = Brechnung.Seite_c(x, y)
End Sub
End Structure
Public Structure WP
Public PunktI, PunktII As Point
Public Sub New(PI As Point, PII As Point)
PunktI = PI
PunktII = PII
End Sub
End Structure
#Region "Pixel zeichen"
Public setii As Integer = 0
Private Async Sub pixel_erstellen()
Await Task.Run(Sub()
Dim bmp As New Bitmap(300, 300)
For x As Integer = 0 To bmp.Width - 1
For y As Integer = 0 To bmp.Height - 1
Dim i As Integer = R.Next(10) 'pixel dichte
If i = 1 Then
bmp.SetPixel(x, y, Color.Black)
setii += 1
End If
'bmp.SetPixel(R.Next(0, 300), R.Next(0, 300), Color.Black)
Next
Next
PictureBox1.Image = bmp
End Sub)
End Sub
#End Region
Private Iterator Function auslesen() As IEnumerable(Of Point)
Dim Bild As Bitmap = New Bitmap(PictureBox1.Image)
For x As Integer = 0 To Bild.Width - 1
For y As Integer = 0 To Bild.Height - 1
Dim k As Integer = Bild.GetPixel(x, y).ToArgb
If Color.Black.ToArgb = k Then Yield New Point(x, y)
Next
Next
End Function 'Gibt die Koordinaten der schwarzen Punkte durch
'(Iteration) , d.h. nacheinander
Private Function AllezuListe() As List(Of Point)
Dim PP As New List(Of Point)
'<-------
'<--Fehler 1 -->
'Parallel.ForEach(auslesen, Async Sub(c) Await Task.Run(Sub() PP.Add(c))) 'PP.Add(c)
'<--End Fehler-->
'<--Fehler 2 -->
'Parallel.ForEach(auslesen, Sub(c) PP.Add(c)) 'PP.Add(c)
'<--End Fehler-->
'<--so geht es -->
For Each c As Point In auslesen()
PP.Add(c)
Next
'<-- end so geht es -->
'PP.Add(c)
'MessageBox.Show(String.Concat("Inhalt: ", PP.Count, " Mussen es sein: ", setii))
Return PP '{(x,y),(x,y)...}
'---------->
End Function
Private Iterator Function zusammenfügen() As IEnumerable(Of WP)
Dim ii As New List(Of WP)
Dim P_Table As List(Of Point) = AllezuListe()
For Each c As Point In P_Table
For Each f As Point In P_Table
Yield New WP(c, f)
Next
Next
' MessageBox.Show(String.Concat("Inhalt: ", ii.Count))
End Function
Private ENdl As New List(Of PointToPoint)
Private Sub ZuL()
Dim j As New Stopwatch
j.Start()
For Each WP_We As WP In zusammenfügen()
ENdl.Add(New PointToPoint(WP_We))
Next
j.Stop()
MessageBox.Show(String.Concat("Inhalt: ", ENdl.Count, "| Zeit: ", j.ElapsedMilliseconds))
End Sub

Artentus · 22. November 2014, 16:55

Damit meine ich das SyncLock-Statement.

Dani=mc^2 schrieb:

mein Form einfiert

Parallel.ForEach blockiert trotzdem die Ausführung.

Dani=mc^2 · 22. November 2014, 17:07

OK damit muss ich mich erst beschäftigen

RodFromGermany · 22. November 2014, 17:34

Dani=mc^2 schrieb:

Und es geht immer noch nocht

Ich sehe in Deinem Code keine Funktionalität, die parallelisierbar wäre. Wenn R.Next() nicht wäre, könntestb Du die äußere For-Schleife beim Pixel setzen parallelisieren.
Dazu must Du zuerst allen Async-Code rausschmeißen.

Dani=mc^2 · 22. November 2014, 18:02

ich hab es jetzt anders gelöst mit weniger Traffic

weil ich hatte ja immer riesen Datenmegen(Eine List(of) mit 99805 als count) die ich hin und her warf also dachte ich mir einfach mal kurz speichern und sehen was passiert

edit nochmal jetzt läuft es perfekt

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Drawing, System.Threading, System.IO, System.Drawing.Imaging, System.Runtime.InteropServices
Public Class Form1
Private R As New Random
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
pixel_erstellen() 'hier zeine ich das bild
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Eintgragen()
End Sub
Public Structure PointToPoint
Public Punktwert As WP
Public x, y, xI, yI, xII, yII As Integer
Public Tan_winkel, Abstand As Double
Public Class Brechnung
Public Shared Function Vergleich(Wert As Integer, WertI As Integer) As Integer
If Wert < WertI Then Return WertI - Wert
Return Wert - WertI
End Function
Public Shared Function Seite_c(a As Integer, b As Integer) As Double
Return Math.Sqrt((a ^ 2) + (b ^ 2))
End Function
End Class
Public Sub New(Pointe As WP)
Punktwert = Pointe
xI = Punktwert.PunktI.X
yI = Punktwert.PunktI.Y
xII = Punktwert.PunktII.X
xII = Punktwert.PunktII.Y
x = Brechnung.Vergleich(xI, xII)
y = Brechnung.Vergleich(yI, yII)
Tan_winkel = y / x
Abstand = Brechnung.Seite_c(x, y)
End Sub
End Structure
Public Structure WP
Public PunktI, PunktII As Point
Public Sub New(PI As Point, PII As Point)
PunktI = PI
PunktII = PII
End Sub
End Structure
#Region "Pixel zeichen"
Private Async Sub pixel_erstellen()
gezeichnet = 0
Await Task.Run(Sub()
Dim bmp As New Bitmap(300, 300)
For x As Integer = 0 To bmp.Width - 1
For y As Integer = 0 To bmp.Height - 1
Dim i As Integer = R.Next(10) 'pixel dichte
If x Mod 2 = 0 Then
bmp.SetPixel(x, y, Color.Black)
gezeichnet += 1
End If
'bmp.SetPixel(R.Next(0, 300), R.Next(0, 300), Color.Black)
Next
Next
PictureBox1.Image = bmp
End Sub)
End Sub
#End Region
Private gess As Integer = 0
Private gezeichnet As Integer = 0
Private Iterator Function auslesen() As IEnumerable(Of PointToPoint)
Dim Bild As Bitmap = New Bitmap(PictureBox1.Image)
Dim wer As Boolean = False
Dim LocI As New Point
For x As Integer = 0 To Bild.Width - 1
For y As Integer = 0 To Bild.Height - 1
Dim k As Integer = Bild.GetPixel(x, y).ToArgb
Select Case True
Case Color.Black.ToArgb = k AndAlso Not wer
LocI = New Point(x, y)
wer = True
Case Color.Black.ToArgb = k AndAlso wer
gess += 1
Yield New PointToPoint(New WP(LocI, New Point(x, y)))
End Select
Next
wer = False
Next
End Function 'Gibt die Koordinaten der schwarzen Punkte durch
'MessageBox.Show(String.Concat("Inhalt: ", ENdl.Count, "| Zeit: ", j.ElapsedMilliseconds))
Private l As New List(Of PointToPoint)
Private Async Sub Eintgragen()
gess = 0
Dim k As New Stopwatch
k.Start()
Await Task.Run(Sub()
For Each a As PointToPoint In auslesen()
l.Add(a)
Next
End Sub)
k.Stop()
MessageBox.Show(String.Concat("Inhalt: ", l.Count, "| Zeit: ", k.ElapsedMilliseconds, "|Gesamt: ", gess, "|Gezeichnet: ", gezeichnet))
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
MessageBox.Show(String.Concat("Inhalt: ", l.Count))
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

Problem mit dem .add in Parallel.ForEach

Problem mit dem .add in Parallel.ForEach

VB.NET-Quellcode

Visual Basic-Quellcode

Dani=mc^2 schrieb:

Artentus schrieb:

VB.NET-Quellcode

Dani=mc^2 schrieb:

Dani=mc^2 schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben