VPF::Многопоточность функции - Форум программистов

VP11

Дата 18.2.2013, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 18.2.2013

Репутация: нет
Всего: нет

Доброго дня!

Я новенький на форуме и ищу помощи при программировании многопоточности.
Создание отдельного потока и выполнение расчета в нем не проблема для меня. Проблема появляется при запуске нескольких потоков одновременно для той же процедуры со своими параметрами.

Т.е. надо посчитать в н-потоках определенную процедуру и получить результат меняя параметры:
Поток   Парам1 Парам2 ....ПарамХ
1              0.1       75     ....
2              1       75     ....
3              4       75     ....
4              0.1       25     ....
5              1       25     ....
6              4       25     ....
...

Вызывая процедуру, сначала для данной процедуры назначаю параметрам их значения.
Но ее могу понять как при создании 2 потока изменить параметры, чтобы первый поток считал для своих раннее заданных параметров. Для меня проще было бы запуск процедуры с заданием ей параметров Call Schitaj (A, B),  но многопоточность исключает такую возможность.

Просьба простым языком или примером как возможно это сделать.

За раннее благодарен за ответ.

Это сообщение отредактировал(а) VP11 - 18.2.2013, 14:30

diadiavova

Дата 18.2.2013, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Ну вот как-то так видимо

Код


Imports System.Threading
Module Module1

    Sub Main()
        For i = 1 To 5
            Dim th As New Thread(AddressOf ParametrizedMethod)
            th.Start(New With {.a = i * 1, .b = i * 2, .c = i * 3})
        Next
        Console.ReadKey()
    End Sub

    Sub ParametrizedMethod(parameters As Object)
        With parameters
            Console.WriteLine("{0} + {1} * {2} = {3}", .a, .b, .c, .a + .b * .c)
        End With

    End Sub
End Module

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

VP11

Дата 22.2.2013, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 18.2.2013

Репутация: нет
Всего: нет

Цитата(diadiavova @ 18.2.2013, 21:18)

Ну вот как-то так видимо

Код


Imports System.Threading
Module Module1

    Sub Main()
        For i = 1 To 5
            Dim th As New Thread(AddressOf ParametrizedMethod)
            th.Start(New With {.a = i * 1, .b = i * 2, .c = i * 3})
        Next
        Console.ReadKey()
    End Sub

    Sub ParametrizedMethod(parameters As Object)
        With parameters
            Console.WriteLine("{0} + {1} * {2} = {3}", .a, .b, .c, .a + .b * .c)
        End With

    End Sub
End Module

Большое спасибо все работает прекрасно.
Теперь мучаюсь с кодом расчета.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »