Подскажите (про таймер и VB6) - Нужна ли многопоточность??

[live]

Будет ли выполнятся событе таймера (или как сделать чтобы оно выполнялось) строго в соотв. с интервалом, если в это же время выполяется другая процедура (к примеру, в цикле do...loop) ?.
Т.е. мне нужно сделать так, чтобы события таймера выполнялись независимо от выполнения других процедур. Как этого можно добится ? Может у кого то есть уже готовые решения ?
Заранее спасибо...

[alibek]

RT-приложения в VB не пишутся (да и вообще в Windows).
Чтобы таймер срабатывал в Do...Loop, достаточно будет время от времени делать DoEvents.

[jangle]

RT-приложения в VB не пишутся (да и вообще в Windows).

Давно еще видел VB-приложение, которое через звуковую карту принимало морзянку с радиоприемника, и конвертировала ее в текст. Чем не RT приложение?

[Twister]

Будет ли выполнятся событе таймера (или как сделать чтобы оно выполнялось) строго в соотв. с интервалом, если в это же время выполяется другая процедура (к примеру, в цикле do...loop) ?.

В ВБ не будет, если, как сказал Алибек, не воткнуть DoEvents. Добавлю - пока процедура таймера не отработает - повторно она же не вызовется. Если же создать таймер через АПИ - то вполне.

[alibek]

Добавлю - пока процедура таймера не отработает - повторно она же не вызовется.

Ну в MSDN вообще сильно остерегают от того, чтобы процедура повторно вызвалась (вследствии DoEvents) до того, как она отработает.

jangle, это не realtime-приложение.

[live]

пока процедура таймера не отработает - повторно она же не вызовется

Это я знаю. Повторно ее вызывать и не нужно. Архитектура программы построена таким образом, что таймер только добавляет задание в очередь. А обработкой этой очереди занимается другая процедура.
Так вот я и боюсь если обработка очереди затянется, то таймер всё равно будет крутится или тоже остановится пока не обработается очередь??

Всё крутится примерно так

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

Private colQueue As New Collection1
Private IsQueue As Boolean 'Когда происходит обработка очереди IsQueue=True

Private Sub Timer1_Timer()
    i = i + 1
    colQueue.Add CStr(i)
   
    'Если обработка очереди не происходит и есть новые задания в очереди, то обработать очередь
    If IsQueue = False And Not colQueue Is Nothing Then Debug.Print "Calling":  Call UpdateQueue
End Sub

Private Sub UpdateQueue()
    Dim clsTask As Class1
    IsQueue = True
    For Each clsTask In colQueue
        '.
        '. обработка очереди
        '.
    Next
    Set colQueue = Nothing
    IsQueue = False
End Sub


[alibek]

Если обработка затянется внутри For Each ... Next, то без вызова DoEvents событие таймера не сработает.
Можешь в таймере обновлять глобальную переменную (LastClock = Timer), а в цикле проверять If (Timer-LastClock)>0.1 Then DoEvents.

[live]

alibek
спасибо, попробую