Sub или Function с параметрами для потока.

[Mikle]

Разбираюсь с потоками, возникает вопрос, можно ли сделать передачу адреса ф-ции с параметрами в поток? Как тогда передавать сами параметры.
Например у меня массив потоков, использующий общую ф-цию (проверял, работает). Хочу, чтобы внутри ф-ции можно было узнать индекс текущего потока.

[Williams]

Индекс текущего потока... А Thread.CurrentThread не пойдет?

[Mikle]

У меня большой массив данных для обработки, если бы программа обработки данных знала индекс текущего потока, то она могла бы автоматически выбрать и обработать нужную часть данных, например при четырех потоках данные делятся на четыре части, каждая обрабатывается своим потоком. Как тут поможет Thread.CurrentThread? Это ведь не индекс потока, а сам поток. Разве что делать проверку:

Код: Выделить всё

for n=0 to 3
  if Thread.CurrentThread = MyTread(n) then Index=n: exit for
next n

Но что-то это некрасиво... да и вообще, с этой задачей я справлюсь, но вопрос остается, как передать параметры? Как вернуть значение, если это ф-ция?

[MIT]

Функции передаются при помощи делегатов. Delegate и AddressOf тебе в помощь

[Williams]

К слову, есть еще Thread.ManagedThreadId. Можно бы было приспособить.

[Mikle]

До Delegate я еще не добрался

[ANDLL]

ParameterizedThreadStart
Принимает один параметр.

[euroflock]

Сначала описывается делегат (функция или процедура) для потока а затем (при старте потока) просто передауются все необходимые параметры в делегирующую процедуру. Например так:

Код: Выделить всё

Sub КласснаяПроцедура
   ...
   Dim Переменная1 As Boolean = False
   Dim Переменная2 As String = "важный текст"
   ...
   Dim Поток(50) As Thread ' объявляем необходимое количество потоков
   For i As Integer = 0 To Поток.Count - 1 ' задаём процедуру для каждого потока
        Поток(i) = New Thread(AddressOf ПроцедураОбработкиПотока) ' объявляем делегат AddressOf без указания параметров
        Поток(i).Start(i, Переменная1, Переменная2) ' запускаем поток с одновременной передачей параметров делегату
   Next
   Dim ВсеПотокиЗавершены As Boolean = False
   While Not ВсеПотокиЗавершены ' здесь ожидаем завершения всех имеющихся потоков (если кому нужно)
        For i As Integer = 0 To Поток.Count - 1
             If Поток(i).IsAlive Then : ВсеПотокиЗавершены = False : Exit For
             Else : ВсеПотокиЗавершены = True : End If : Application.DoEvents()
        Next : Application.DoEvents()
   End While
End Sub 'КласснаяПроцедура

Sub ПроцедураОбработкиПотока(ByVal [НомерПотока] As Integer, ByVal [Логика] As Boolean, ByVal [Текст] As String)
   ... ' описываем действия, которые будут обрабатываться в разных потоках
   ... ' и возможно с разными переданными параметрами для каждого из них
End Sub


[Mikle]

Спасибо, разобрался, все работает!
Особый респект euroflock за пример.

[Mikle]

Сделал пример, реализующий один и тот же рендер в разное кол-во потоков. На двухъядерном процессоре получаю почти двукратное увеличение быстродействия при переходе с одного на два потока, что вполне ожидаемо. Но дальше что-то странное - при 4, 8, 16... потоках равномерность теряется (это естественно), но быстродействие растет! За счет чего? Гипертрединг? Насколько понимаю, он прироста давать не должен, а всего лишь уменьшает потери на переключении задач.
Прилагаю пример, это почти релиз третьей версии SR2D. Задавайте число потоков только степенями двойки, на другие числа проект не рассчитан.