Паралельное выполнение эвентов

[mixa]

Вот такое у меня закралось сомнение. Есть у меня на форме 2 таймера, которые срабатывают каждый в свое время. Иногда может случиться так, что они вызовутся в одно время. Вернее второй эвент вызовется, когда первый будет еще работать. Есть необходимость использовать объекты синхронизации, или все эвенты обрабатываются последовательно, одной функцией обаботки окна один за одним?

Два таймера это еще ничего, это я для примера дал. На самом деле у меня 6 сокетов и таймер. Одна пара для посылки файла через фтп, вторая пара для получения файла и еще одна для всяких разных задач выполняемых по таймеру- типа обновление списков, создания директорий. И все это должно работать одновременно.

[PSD]

В книге не читал но по результатом тестов ...

Единовременно выполняется только одно событие ему передается управляющая нить и по этой причяине во время его выполнения других событий возникнуть не может .
Тестовая программа

Public D As Integer

Private Sub Command1_Click()
MsgBox Str(D)
End Sub

Private Sub Timer1_Timer()
D = D + 1
End Sub

На форме кнопка и таймер с тактом в одну секунду.

MsgBox  блокирует окно вместе с таймером и сколько бы он не висел на экране счет бдет продолжен только после его закрытия.

[mixa]

Спасибо за поддержку.

В книге не читал но по результатом тестов ...

Такой тест, я конечно самым первым делом написал. даже немного не так. Я по кнопке делал цикл ожидания, на пару секунд. Потому что не понятно как этот самый MsgBox обрабатывает сообщения.

Код:

TimeOut = 5
start = Timer
    
While )Timer - start < TimeOut:
        DoEvents
wend

Так вот когда есть этот самый DoEvents (отдать такт управления виндовсу), то счетчики продолжают работать, а если нет - то нет. Следовательно не так уж и последовательно вызываются эти эвенты. Просто мы им не даем вызываться параллельно. Конечно до мютексов и семафоров дело не дойдет - но все-таки. Но это таймер, а может с сокетами все по другому ? Так что хотелось бы с книжкой это проверить.

[Гром]

Конечно до мютексов и семафоров дело не дойдет - но все-таки.

Это не совсем то.
Мютекс и семафор - это как раз тот же MessageBox по сути.
Вызывает задержку второго потока, или обработчика - пока первый не отбежал свое.

[mixa]

Конечно до мютексов и семафоров дело не дойдет - но все-таки.

Это не совсем то.
Мютекс и семафор - это как раз тот же MessageBox по сути.
Вызывает задержку второго потока, или обработчика - пока первый не отбежал свое.

А, брат, это зависит от степени модальности месажбокса  

[PSD]

DoEvents

DoEvents мы  сами явно приказываем среде продолжить обработку событий.
Поток один и самовольно бейсик ничего такого делать не будет.

Точкой разрыва нити всегда будет DoEvents.
Можно утверждать что обработчик не содержащий в своем коде
DoEvents будет выполнен целиком без переключения.

Тоже можно сказать и о обработчике с DoEvents с той разницей что в точке помеченой DoEvents вероятно будет выполнен обработчик другого события.

Точку разрыва нити ты знаешь(DoEvents)  остается только коректно ее обработать.

[Миша]

Подожди подожди дорогой товарищ PSD.
Вот ты то мне и нужен. Значит как получается. Произошело событие, взывался обработчик, начал работать и крутиться, пока крутится вызывает DoEvent. Тут пришело другое событие и стало в очередь. На очередном DoEvent мы вынули из очереди пришедшие событие и начали крутить новый обработчик. А старый типа стоит молча в сторонке и ждет ? А если в этот момент прийдет еще одно событие - то уже 2 обработчика будут стоять в сторонке ?
в общем если я между 2 операторами не вызову DoEvent, то можно вполне сказать, что ничего другого и не вызовется.

Код:

if gintNumItes > 5 Then
    gintNumItems = gintNumItems + 1
endif

То есть значение переменной gintNumItes между первой и втрой строчкой не изменятся ?

[PSD]

Не должно.

[RXL]

Оставить