RageGod, итак, для начала следует сказать, что для параллельной обработки элементов коллекции в 4-м фреймворке появились новые инструменты, позволяющие избежать непосредственной работы с потоками. Вот пример консольного приложения, выполняющего простую обработку коллекции строк параллельно, если запустить его несколько раз, можно увидеть, что последовательность обработки элементов может меняться.| Код |
Imports System.Threading.Tasks
Module Module1
Sub Main()
Parallel.ForEach(_stringCollection,
Sub(item As String)
Console.WriteLine(item.Substring(6))
End Sub)
Console.ReadKey()
End Sub
Dim _stringCollection As List(Of String) = New List(Of String) From {
"строка1", "строка2", "строка3", "строка4", "строка5", "строка6",
"строка7", "строка8", "строка9", "строка10", "строка11", "строка12"}
End Module
|
Далее привожу пример того, о чем я говорил. Здесь у меня и первый пример и второй в одном приложении, просто вызов параллельной обработки закоментирован| Код |
Imports System.Threading.Tasks
Imports System.Threading
Module Module1
Sub Main()
'ProcessParallel()
ProcessMultyThread()
Console.ReadKey()
End Sub
Sub ProcessParallel()
Parallel.ForEach(_stringCollection,
Sub(item As String)
Console.WriteLine(item.Substring(6))
End Sub)
End Sub
Sub ProcessMultyThread()
For i = 0 To _stringCollection.Count - 1
Dim th As New Thread(AddressOf ProcessSingleString)
th.Start()
Next
End Sub
Sub ProcessSingleString()
Dim str = _stringCollection(0)
_stringCollection.RemoveAt(0)
Console.WriteLine(str.Substring(6))
End Sub
Dim _stringCollection As List(Of String) = New List(Of String) From {
"строка1", "строка2", "строка3", "строка4", "строка5", "строка6",
"строка7", "строка8", "строка9", "строка10", "строка11", "строка12"}
End Module
|
|
)