Не работает элементарный таймер

[BazaroffAM]

Постигаю учебник. Юзаю VB6.
При запуске формы таймер отображает текущее время (на момент запуска формы). А отсчет времени не идет.
Код до единого символа скопирован из учебника:

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

Private Sub Form_Load()
Label1.Caption = Second(Time)
Label2.Caption = Minute(Time)
Label3.Caption = Hour(Time)
Timer1.Enabled = True
End Sub

При чем, сначала код был представлен без строки

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

Timer1.Enabled = True

и автор подчеркивает, что идти этот таймер не будет, а будет лишь отображаться текущее время на момент запуска формы. И было так!
Далее автор указывает на необходимость вставить в код эту строку для того, чтобы таймер "пошел". Ан нет!
В чем ошибка?

[Qwertiy]

В чем ошибка?

А где обработчик Timer1_Tick?

[Хакер]

А где обработчик Timer1_Tick?

Не Tick, а Timer.

[BazaroffAM]

Да уж... Как ни странно в библии этого нет.

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

[BazaroffAM]

Прошу прощения!
Далее в тексте представлены еще коды для этого таймера. Все работает!
Очевидно, автор по-невнимательности обронил, что "часики" пойдут после добавления всего одной строчки, введя читателя в заблуждение.
Как я понимаю эта строка служит для запуска таймера как такового.

[iGrok]

Как я понимаю эта строка служит для запуска таймера как такового.

Именно.

[Qwertiy]

Не смог найти подходящего примера кода с этим обработчиком.

Как поправил Хакер, должна быть процедура Timer1_Timer, содержащая те 3 строчки с занесением времени в лейблы.
Кстати, вызывать трижды Time плохо, т. к. значение может измениться.
И вообще, можно сделать 1 Label и помещать в него отформатированную строку.

[aleksmir]

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

Private Sub Form_Load()
Label1.Caption = Second(Time)
Label2.Caption = Minute(Time)
Label3.Caption = Hour(Time)
Timer1.Interval=1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled=False
Label1.Caption = Second(Time)
Label2.Caption = Minute(Time)
Label3.Caption = Hour(Time)
Me.Refresh
Timer1.Enabled=True
End Sub



[Qwertiy]

Зачем выключение и включение таймера? И Refresh тоже?

[alibek]

aleksmir, глупо без причины одинаковый код использовать в нескольких местах.
В Form_Load нужно только включить таймер. А чтобы не было секундного лага, нужно не повторять код, а просто вызвать Timer1_Timer.

[aleksmir]

Зачем выключение и включение таймера? И Refresh тоже?

Ну Refresh можно не делать в данном примере. Я привел общий случай. На практике встречал, когда текст не прорисовывается и всегда на всякий случай ставлю Refresh вместе с DoEvents.
Включение и выключение таймера тоже общий случай. При сложной процедуре обработке события (когда время обработки превысит интервал таймера) может возникнуть следующее срабатываение таймера раньше, чем закончится обработка предыдущего срабатывания. Лучше заранее 10 раз перестраховаться, чем потом отлавливать глюки программы. Я так считаю)

aleksmir, глупо без причины одинаковый код использовать в нескольких местах. В Form_Load нужно только включить таймер. А чтобы не было секундного лага, нужно не повторять код, а просто вызвать Timer1_Timer.

Можно я не спорю) Оптимизировать код - это уже забота автора проекта. Я просто добавил работающий пример обработки события таймера, не трогая его предыдущий код в Form_Load.

[alibek]

При сложной процедуре обработке события (когда время обработки превысит интервал таймера) может возникнуть следующее срабатываение таймера раньше, чем закончится обработка предыдущего срабатывания. Лучше заранее 10 раз перестраховаться, чем потом отлавливать глюки программы. Я так считаю)

Неверно. Программы на VB однопоточные. И событие таймера не возникнет, пока выполняется обработка предыдущего события (или пока не будет вызван DoEvents).

[aleksmir]

Неверно. Программы на VB однопоточные. И событие таймера не возникнет, пока выполняется обработка предыдущего события (или пока не будет вызван DoEvents).

Возможно. Спорить не буду. На таких мелочах не заморачиваюсь.

[Qwertiy]

Лучше заранее 10 раз перестраховаться, чем потом отлавливать глюки программы. Я так считаю)

А на мой взгляд, надо думать, а не перестраховываться... Тем более, такое обращение с таймером фактически увеличивает интервал между вызовами, поскольку будет не 1 секунда, а 1 секунда плюс время выполнения кода.
И вообще, в этом коде всё равно баг, т. к. время может измениться между обращениями к Time и будет показано совсем неверное (с ошибкой в 1 час, в худшем случае)

[aleksmir]

А на мой взгляд, надо думать, а не перестраховываться...

С нашим ритмом жизни время на "подумать" бывает очень редко) Поэтому появляется избыточный и неоптимизированный код. Часто бывает, что "не до мелочей".

[iGrok]

С нашим ритмом жизни время на "подумать" бывает очень редко)

Этак можно далеко зайти. Такой ритм жизни нужно однозначно менять...

[alibek]

Тем более, такое обращение с таймером фактически увеличивает интервал между вызовами, поскольку будет не 1 секунда, а 1 секунда плюс время выполнения кода.

Не увеличивает. Таймер «тикает» не с мгновения запуска, а кратно системному таймеру.

[Qwertiy]

Не увеличивает. Таймер «тикает» не с мгновения запуска, а кратно системному таймеру.

В смысле? И что значит кратно? Системный таймер ведь наверняка не раз в секунду тикает

[Хакер]

Возможно. Спорить не буду. На таких мелочах не заморачиваюсь.

Не «возможно», а точно. Это не мелочь, а фундамент, без четкого понимания которого невозможно писать программы с правильной логикой.

[Qwertiy]

Неужели никто не прочитает лекцию о работе таймера? Интересно ведь стало

[Хакер]

Неужели никто не прочитает лекцию о работе таймера? Интересно ведь стало

Я бы прочитал, но жутко некогда. Пока всё надежда на вас Потом исправлю неточности, если что

[Qwertiy]

alibek, расскажи про таймер-то

[alibek]

А что рассказывать то?
Крутится ML, который на сообщения WM_TIMER вызывает события соответствующих подписчиков.
Нужно только понимать, что вызываются они не волшебным образом, а регламентированным, в MSDN все подробно описано.
При получении оконного сообщения вызывается соответствующее событие для графических элементов управления. Обработчик этого события — это процедура на VB и управление возвращается в ML только после того, как эта процедура завершит работу (дойдет до End Sub или Exit Sub). Если в процессе выполнения процедуры в ML пришло еще одно оконное сообщение, то текущая процедура не прерывается, а продолжает работать, а оконное сообщение поступает в очередь и будет обработано на следующем проходе ML. В процедуре можно вызвать DoEvents, что инициирует обработку оконных сообщений (в очереди), но это не распараллеливание, а вызов (т.е. после обработки сообщения управление вернется в процедуру, а из нее в основной ML) и если делать это бездумно, то может возникнуть рекурсия и переполнения стека.

[Qwertiy]

Это-то понятно. А вот почему выключение и повторное включение таймера не изменяет интервал, там что-то не видно. А меня как раз эта часть заинтересовала.

[alibek]

Потому что включение и выключение таймера включает или выключает подписку на событие WM_TIMER, а не управляет таймером.
Само же событие инициируется системным таймером.

[drronnie]

Пардон за офтоп. Случайно зашёл в конфу понастальгировать. Не думал, что кто-то еще пишет на родном vb6:)
И родные лица те же: alibek да Хакер:)
Всем удачного дня.

[Хакер]

Не забывайте, что таймер-контрол в VB — это из глючных мест, которое в design-time ведёт себя одним образом, и совершенно другим — после компиляции.

[Хакер]

И самое главное: интервал таймера — это именно интервал таймера, а не период срабатывания.
Он отсчитывается от конца работы обработчика события, а не от момента предыдущего срабатывания.

То есть на картинке левая часть показывает суть вещей неправильно, а правая, соответственно, правильно:

vb6_timer_nature.png (18.83 Кб) Просмотров: 14259

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

[alibek]

Он отсчитывается от конца работы обработчика события, а не от момента предыдущего срабатывания.

Это легко проверить. Правда нужен VB, а у меня его нет.
Нужно две программы, где используются таймеры с одинаковым интервалом, но разной длительностью выполнения обработчика.
Если таймеры будут тикать синхронно, значит «под шляпой» интервал задается перед выполнением обработчика. Если будет расхождения будут накопляться, значит «под шляпой» по завершении обработчика каждый раз заново задается таймаут.
Правда чтобы расхождение или синхронность были более наглядны, лучше использовать минимальные интервалы в 10мс. В обработчике использовать счетчик и выводить его значение.

[aleksmir]

Он отсчитывается от конца работы обработчика события, а не от момента предыдущего срабатывания.

Это легко проверить. Правда нужен VB, а у меня его нет.
Нужно две программы, где используются таймеры с одинаковым интервалом, но разной длительностью выполнения обработчика.
Если таймеры будут тикать синхронно, значит «под шляпой» интервал задается перед выполнением обработчика. Если будет расхождения будут накопляться, значит «под шляпой» по завершении обработчика каждый раз заново задается таймаут.
Правда чтобы расхождение или синхронность были более наглядны, лучше использовать минимальные интервалы в 10мс. В обработчике использовать счетчик и выводить его значение.

Я так и сказал) что вы сделали проблему из ничего. Да таймер будет срабатывать не раз секунду, а с запаздыванием. Поэтому нужно свойству Interval задать значение меньше секунды, например 100 миллисекунд и все будет ОК. Потому что функция Time вернет текущее время независимо от того, когда таймер к ней обратится.