Конференция VBStreets

**kif** » 14.02.2006 (Вт) 13:29

ситуация:
есть процедура, которая запускается из таймера. проблема состоит в том, что выполнение процедуры происходит дольше чем интервал таймера и поэтому таймер как бы затыкается, т.е. не работает.

вопрос: можно ли запустить процеду из таймер так чтобы таймер ждал окончания ее выполнения, отдельным потоком чтоли???

**kif** » 14.02.2006 (Вт) 13:30

ошибочка!!! :-(

чтобы таймер не ждал окончания ее выполнения, а запускал ее каждый раз при наступлении события Timer

**Viper** » 14.02.2006 (Вт) 13:56

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

Получится ситуация:
событие наступило - запустилась процедура первый раз (№1)
событие наступило - запустилась процедура второй раз (№2), а №1 еще работает?

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

Только вот нормально ли это, иметь две одновременно выполняющихся одинаковых процедуры?

**kif** » 14.02.2006 (Вт) 16:20

doevents не помогает, таймер ждет окончания выполнения процедуры

две одновременно выполняющихся одинаковых процедуры это нормально, поотму что они запускаются с разными параметрами

**Grey_Brother** » 14.02.2006 (Вт) 18:03

Создай класс содержащий эту процедуру и в таймере декларируй как "NEW"

**ANDLL** » 14.02.2006 (Вт) 21:51

Создай класс содержащий эту процедуру и в таймере декларируй как "NEW" Smile

Хотелось бы знать, чем это поможет

Процессор то один...

Это не аргумент. В windows вполне можно считать что там куча процессоров...

Если в процедуру вставить DoEvents, то такое можно реализовать.

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

две одновременно выполняющихся одинаковых процедуры это нормально, поотму что они запускаются с разными параметрами

Неуверен, что у процедуры Timer есть параметры... Точнее они конечно есть, точнее один параметр :wink:

Но он отвызова к вызову не изменится :wink:

Как я понимаю тебе важно что бы сообщения таймера накапливались. Однако боюсь это неправидьная архетектура. Что именно тебе нужно?[/b]

**Amed** » 14.02.2006 (Вт) 22:49

Все проще, если я правильно понял суть проблемы.

Код: Выделить всё: private sub Timer1_Timer() timer1.enabled=false callprocedure() '... timer1.enabled=true end sub

**ANDLL** » 14.02.2006 (Вт) 23:04

Нет, неправильно понял. Что по твому дает твой код?

**Twister** » 15.02.2006 (Ср) 8:19

2 ANDLL

Но WM_TIMER не срабатывает, если на данный момент этот таймер уже обрабатывается.

Не верный ответ...
Попробуй-ка в таймер поставить MessageBox? Что видим? Кучу сообщений... Значит все таки обрабатывается.

**Twister** » 15.02.2006 (Ср) 8:33

2 kif
С чего ты вообще взял, что таймер не срабатывает второй раз из-за того что процедура не завершилась? Может просто до приложения не доходят сообщения WM_TIMER, так как процедура "забирает" все ресурсы?
К сожалению, ни чем не могу помочь, пока не увижу код... Хотя могу предположить, что DoEvents может помочь...

**ANDLL** » 15.02.2006 (Ср) 9:30

Не верный ответ... Попробуй-ка в таймер поставить MessageBox? Что видим? Кучу сообщений... Значит все таки обрабатывается.

Куча. Но WM_TIMER среди них нету

А если и есть, то не касательно "нашего" таймера.

**Andrey Fedorov** » 15.02.2006 (Ср) 10:03

kif писал(а):doevents не помогает, таймер ждет окончания выполнения процедуры

две одновременно выполняющихся одинаковых процедуры это нормально, поотму что они запускаются с разными параметрами

DoEvents должен вставляться в цикл процедуры. То бишь процедура таким образом будет отдавать события форме/таймеру и другой процедуре. Если в процедуре долго выполняется запрос к базе, то его надо выполнять асинхронно и в цикле проверки его завершени опять-же вызывать DoEvents.

**kif** » 15.02.2006 (Ср) 10:25

проблема действительно в том, что у таймера не возникало событие Timer, я решил эту проблему 2-мя таймерами: один по условию подкидывает параметры в массив, а второй, если есть эти параметры, запускает процедуру с этими параметрами.

всем спасибо, тема закрыта.

**Twister** » 15.02.2006 (Ср) 10:51

Автор закрыл тему, но я добавлю...

Куча. Но WM_TIMER среди них нету А если и есть, то не касательно "нашего" таймера.

Я не про сообщения. Я про MasgBox-ы. Их куча - следовательно: Таймер обрабатывает сообщения. Теперь про MsgBox, к чему я его взял - если поставить MsgBox в цикл, который, к примеру, ведет отсчет от 0 до 10, то ты увидишь 11 сообщений, но каждое лишь после предыдущего - следовательно, вызов MsgBox блокирует выполнение текущего потока до закрытия своего окна. А по таймеру они выскакивают - значит, не смотря на блокировку потока, таймеру приходят сообщения от системы, следовательно продолжительность выполнения какой-либо функции не может помешать работе таймера, его работе может помешать лишь цикл, который перехватывает все ресурсы процессора на себя. А бороться с этим нужно с помощью DoEvents...

**GSerg** » 15.02.2006 (Ср) 10:56

Касаемо msgbox и событий...
http://support.microsoft.com/default.as ... -us;178078

**ANDLL** » 15.02.2006 (Ср) 11:03

продолжительность выполнения какой-либо функции не может помешать работе таймера

Твоя ошибка заключается в том, что ты опять не правильно, видать понял и меня и автора топика.
Я ьы сказал так:

продолжительность выполнения какой-либо функции(кроме самой функии Timer'а) не может помешать работе таймера

**Twister** » 15.02.2006 (Ср) 11:15

Твоя ошибка заключается в том, что ты опять не правильно, видать понял и меня и автора топика.

Я люблю с тобой поспорить, ANDLL, хотя и не всегда оказываюсь прав. Но не в этот раз... :lol:

Но WM_TIMER не срабатывает, если на данный момент этот таймер уже обрабатывается.

Все прекрасно обрабатывается если до таймера доходят сообщения... А вот у автора они не доходят из-за цикла, который (процедура) вызывается из процедуры таймера. Почитай линк GSerg-а, создай проект, посмотри его из IDE, а потом скомпилируй и запусти EXE:

Running a project in the IDE that displays a message box prevents events from occurring. However, when you compile and run the same project as an executable file (EXE), the events occur while the message box is displayed.

Не наводит на мысли?... :wink:

**ANDLL** » 15.02.2006 (Ср) 11:36

Private Sub Timer1_Timer()'Timer1.Interval=1000
MsgBox "AAA"
End Sub
Не наводит

Если это даже откомпиилровать и ждать после появления первого MsgBox полчаса, то остальные MsgBox'ы будут вылазить(но только после закрытия MsgBox) с интервалом в одну секунду. Иными словами еще раз повторюсь, что ЕСЛИ В ОЧЕРЕДИ УЖЕ ЕСТЬ СООБЩЕНИЕ WM_TIMER, то еще одно ообщение(для этого же таймера) туда не добавится.

**Twister** » 15.02.2006 (Ср) 11:48

Ох уж этот БАСИК!... Он меня с ума сведет со своими выкрутасами...
В нем твое утверждение имеет силу.
А ты попробуй создать таймер через SetTimer или попробуй свой код в Делфях - тут прав окажусь я! (проверял собственноручно в Delphi и MASMе) ...

Вывод: басик пользует в своем таймере другие принципы, нежели системные таймеры...

**ANDLL** » 15.02.2006 (Ср) 12:09

Такс, правильнее сказать не

что ЕСЛИ В ОЧЕРЕДИ УЖЕ ЕСТЬ СООБЩЕНИЕ WM_TIMER, то еще одно ообщение(для этого же таймера) туда не добавится

А что бэйсик обрабатывает WM_TIMER весьма интересным образом.
http://danasoft.ru/users/andll/screen1.JPG

**Twister** » 15.02.2006 (Ср) 12:15

Коментарий к ссылке ANDLL:
Сделано на Сях, в басике, конечно, так не получиться (если не юзать SetTimer)...

Как говориться, в споре рождается истина, не так ли, ANDLL? :lol: