Таймер имеет погрешность

@Skorp24 · Регистрация: 15.06.2009

Студворк — интернет-сервис помощи студентам

Такая проблема, не знаю точно, из-за чего она и как её устранить. Подскажите, пожалуйста, кто-нибудь...

Например, на форме элементы Text1, Timer1 и Timer2. Оба таймера при запуске программы активны.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
Timer1.Interval = 50
Timer2.Interval = 5000
Text1.Text = 0
End Sub
 
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
 
Private Sub Timer2_Timer()
Timer1.Enabled = False
Timer2.Enabled = False
MsgBox (Text1.Text * 50)
End Sub

В соответствии с кодом, через 5 секунд после запуска программы должно появляться сообщение со значением прошедшего времени. Оно должно быть равно 5000, но у меня оно равняется 4000, т.е. первый таймер почему-то опаздывает. Можно ли это исправить?

@Профессор · 08.11.2009, 01:07

Ну во первых всегда при работе с таймерами важно: сначала задать интервалы, а уже потом разрешить работу таймеров.

Добавлено через 10 минут
Я такую же программу сделал, у меня MsgBox показывает вообще 3950 (значение)

@Toxa33rus · 08.11.2009, 14:49

Да таймеры всегда грешили очень хорошо. Как делаешь где-то часы со стрелками, так если интервал задать 1 сек., то стрелка очень часто стоит 2 секунды а потом резко на 2 секунды проскакивает. Приходится делать 0.5 сек, но даже тогда это заметно. Открываем виндовые часы и наблюдаем за стрелками: 5 сек. щелкает ровно а на 6-й задержка где-то пол секунды.

@Skorp24 · 08.11.2009, 17:04 **[ТС]**

Интервалы я поставил в код, чтобы всем было понятно и коротко. А естественно, нет смысла их ставить в код, если можно поставить по умолчанию.

Вообще-то, я пробовал значение интервала ставить на 1000 и сверялся с аппаратным секундомером - всё выполнялось правильно. Но вот решил поставить интервал на "1" и через 5 секунд получалось, что он досчитал до числа меньшего, чем 400 мс. Это во время выполнения остальных функций программы. Ну ладно, думаю, процессор не справляется. Но не может же быть такого при 0,05 с...

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Профессор 7 / 7 / 0 Регистрация: 30.10.2009 Сообщений: 28
	08.11.2009, 01:07
	Ну во первых всегда при работе с таймерами важно: сначала задать интервалы, а уже потом разрешить работу таймеров. Добавлено через 10 минут Я такую же программу сделал, у меня MsgBox показывает вообще 3950 (значение) 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	08.11.2009, 14:49
	Да таймеры всегда грешили очень хорошо. Как делаешь где-то часы со стрелками, так если интервал задать 1 сек., то стрелка очень часто стоит 2 секунды а потом резко на 2 секунды проскакивает. Приходится делать 0.5 сек, но даже тогда это заметно. Открываем виндовые часы и наблюдаем за стрелками: 5 сек. щелкает ровно а на 6-й задержка где-то пол секунды. 1

@Skorp24 52 / 50 / 26 Регистрация: 15.06.2009 Сообщений: 390
	08.11.2009, 17:04 [ТС]
	Интервалы я поставил в код, чтобы всем было понятно и коротко. А естественно, нет смысла их ставить в код, если можно поставить по умолчанию. Вообще-то, я пробовал значение интервала ставить на 1000 и сверялся с аппаратным секундомером - всё выполнялось правильно. Но вот решил поставить интервал на "1" и через 5 секунд получалось, что он досчитал до числа меньшего, чем 400 мс. Это во время выполнения остальных функций программы. Ну ладно, думаю, процессор не справляется. Но не может же быть такого при 0,05 с... 0

Опции темы