5 Threads - 1 Problem

C.O.D.E · 24. Oktober 2019, 19:02

Hallo ihr lieben,

ich habe da ein Problem. Ich arbeite nicht so oft mit Multithread weswegen ich das lieber abklären möchte.

Ich muss 1.000.000 abfragen machen. Diese wollte ich auf 5 Threads aufteilen so das jeder Thread "nur" 200.000 abfragen hat. Ich habe keine Textdatei o.ä weswegen ich an eine Schleife dachte.

Ich habe da nur das Logikproblem wie ich die nächst-freie Zahl an den Thread übergebe und sie nicht ausversehen die gleiche Zahl nehmen. Ich hoffe man versteht was ich meine.

Ich dachte daran die 1.000.000 in einer Array zu generieren und die verbrauchte Zahl immer zu löschen. (geht ein Array überhaupt so weit?)

Mein Code bislang ist nicht sehr aussagekräftig und hat keinen wirklichen ansatz da ich nicht weis wie ich an die Sache am besten ran gehe.

Thread 1 nimmt die Zahl 1 und Löscht die Zahl 1 aus dem Array
Thread 2 nimmt die Zahl 2 und Löscht die Zahl 2 aus dem Array
Thread 3 nimmt die Zahl 3 und Löscht die Zahl 3 aus dem Array
Thread 4 nimmt die Zahl 4 und Löscht die Zahl 4 aus dem Array
Thread 5 nimmt die Zahl 5 und Löscht die Zahl 5 aus dem Array
Thread 1 nimmt die Zahl 6 und Löscht die Zahl 6 aus dem Array
Thread 2 nimmt die Zahl 7 und Löscht die Zahl 7 aus dem Array
Thread 3 nimmt die Zahl 8 und Löscht die Zahl 8 aus dem Array
Thread 4 nimmt die Zahl 9 und Löscht die Zahl 9 aus dem Array

VB.NET-Quellcode

Public Class frmMain
Dim thread1 As New System.Threading.Thread(AddressOf GrabThread1Sub)
Dim thread2 As New System.Threading.Thread(AddressOf GrabThread2Sub)
Dim thread3 As New System.Threading.Thread(AddressOf GrabThread3Sub)
Dim thread4 As New System.Threading.Thread(AddressOf GrabThread4Sub)
Dim thread5 As New System.Threading.Thread(AddressOf GrabThread5Sub)
Dim GrabThread1 As Boolean = False
Dim GrabThread2 As Boolean = False
Dim GrabThread3 As Boolean = False
Dim GrabThread4 As Boolean = False
Dim GrabThread5 As Boolean = False
Private Sub GrabThread1Sub()
End Sub
Private Sub GrabThread2Sub()
End Sub
Private Sub GrabThread3Sub()
End Sub
Private Sub GrabThread4Sub()
End Sub
Private Sub GrabThread5Sub()
End Sub
Private Sub btn_grab_Click(sender As Object, e As EventArgs) Handles btn_grab.Click
'Schleife oder ähnliches?
If GrabThread1 & GrabThread2 & GrabThread3 & GrabThread4 & GrabThread5 = False Then
'Hier kommt die Funktion die die Nummer an den Thread übergibt
End If
End Sub
End Class

Wie würdet ihr das Problem lösen?

xChRoNiKx · 24. Oktober 2019, 19:46

Moin,

ich würde dafür ja lieber Parallel.ForEach / Parallel.For nehmen das skaliert sehr gut.

Wird sicher noch andere Wege geben die nach Rom führen.

NoIde · 24. Oktober 2019, 22:28

C.O.D.E schrieb:

If GrabThread1 & GrabThread2 & GrabThread3 & GrabThread4 & GrabThread5 = False Then

In VB werden String mit & verkettet. Ein logisches & ist in VB And

Guck mal was die MessageBox dir anzeigt.
MessageBox.Show(GrabThread1 & GrabThread2 & GrabThread3 & GrabThread4 & GrabThread5)

VaporiZed · 25. Oktober 2019, 00:05

Das Problem ist nicht gerade ausreichend beschrieben. Wenn es Dir wirklich nur um Zahlen zwischen 1 und 1000000 gehen würde, ließ sich das einfach lösen: Thread 1 nimmt die Zahlen von 1 bis 200000, Thread 2 von 200001 bis 400000, ...
Man kann das auch mit sowas wie If Zahl Mod 5 = 0 Then ÜbergibDieZahlAnThread1 behandeln oder noch Variablen einbauen, wenn es mehr als 5 Threads sein sollen.
Aber Deine Logik in Z#37 geht nicht auf. Wenn If GrabThread1 & GrabThread2 & GrabThread3 & GrabThread4 & GrabThread5 = False Then funktionieren würde, indem Du statt & AndAlso nimmst, käme raus, dass die GrabThread1-4 True zurückgeben müssen und GrabThread5 False, damit der weitere Code verarbeitet wird. Denn If GrabThread1 Then ist das gleich wie das redundante If GrabThread1 = True Then

RodFromGermany · 25. Oktober 2019, 06:02

Jou.
@C.O.D.E Beschreib mal etwas genauer, was in der Thread-Prozedur passieren soll.
Das sieht mir auch eher nach Parallel.For oder Parallel.ForEach aus.
Vorteil: Parallel.X nutzt alle Prozessor-Ressourcen, die verfügbar sind.

C.O.D.E · 25. Oktober 2019, 09:18

@All: Also, ich muss auf meinem Server 1.000.000 abfragen (mit einem WebClient) machen. Deswegen dachte ich es wäre sinnvoll mit Multithreading die arbeit zu zerteilen und so schneller zu sein. Meinem server macht das nichts aus. Ich wür

Die URL:

Quellcode

meinserver232.de/1.html

Diese 1 würde ich dann durch i aus der Schleife ersetzen. -> i = Zahlen von 1 bis 1.000.000
Dann lade ich mir von der Seite den Quelltext und parse ihn.
Und anschließen muss ich das Ergebnis in eine Excel schreiben lassen.

Danke!

xChRoNiKx · 25. Oktober 2019, 09:23

Das ist für mich ein Fall für parallel.for / foreach
Nutze ich für exakt die gleiche Sache ohne Probleme.

C.O.D.E · 25. Oktober 2019, 09:59

Ich habe damit noch nie gearbeitet, hast du ein ganz Simples Beispiel?

VB.NET-Quellcode

Parallel.For(1, 10000, Sub(Test)
MessageBox.Show("Test")
End Sub)

Wird diese Sub dann 10000 mal ausgeführt? Ich möchte ungern alle Schleifen Parallel laufen lassen. Da bricht mein PC/Server in die Knie!

RodFromGermany · 25. Oktober 2019, 13:03

C.O.D.E schrieb:

VB.NET-Quellcode

MessageBox.Show("Test")

nimmt man nicht für einen Parallel.For-Test, schreib einfach den Laufparameter in die Console:

VB.NET-Quellcode

Sub Test(index As Integer)
Console.WriteLine(index.ToString())
End Sub

und lass die Schleife im Test nur bis 100 laufen.

5 Threads - 1 Problem

5 Threads - 1 Problem

VB.NET-Quellcode

C.O.D.E schrieb:

Quellcode

VB.NET-Quellcode

C.O.D.E schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben