Таймер

[Ruslan2000]

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

Public forto1,forto2 as long

Sub wait()
forto1 = 0
Form1.Timer1.Interval = 10
Form1.Timer1.Enabled = True
For forto2 = 1 To 1000000000
Next
Form1.Timer1.Enabled = False
MsgBox (forto1)
End Sub

Public Sub Timer1_Timer()
forto1 = forto1 + 1
End Sub


Msgbox пишет 0, таймер не работает.

[CodeName33]

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

Sub wait()
forto1 = 0
Form1.Timer1.Interval = 10
Form1.Timer1.Enabled = True
For forto2 = 1 To 1000000000
DoEvents ' !!!!!!!!!!
Next
Form1.Timer1.Enabled = False
MsgBox (forto1)
End Sub

Public Sub Timer1_Timer()
forto1 = forto1 + 1
End Sub

Только это тоже не правильно. Лучше пользоваться Sleep - тогда программа не будет грузить систему.

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

Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sub wait()
forto1 = 0
Form1.Timer1.Interval = 10
Form1.Timer1.Enabled = True
For forto2 = 1 To 100
Sleep(1)
DoEvents
Next
Form1.Timer1.Enabled = False
MsgBox (forto1)
End Sub

Public Sub Timer1_Timer()
forto1 = forto1 + 1
End Sub

[petroff]

Сорри за вопрос, но что за операторы
Sleep(1)
DoEvents

[Twister]

Это не операторы.
Вызов DoEvents, грубо говоря, разрешает программе обрабатывать очередь сообщений. Ты сможешь таскать главное окошко и не лицезреть повисшее приложение.
Sleep - функция из kernel32.dll, заставляющая текущий поток заснуть на указанное кол-во милисекунд.

[Ruslan2000]

Спасибо, Doevents помогло. Sleep не годится для подсчета времени, потому как Sleep <50 это 70-150 мс реальной задержки, на выполнение винапи процедуры на компе уровня пентюх-4 + подвисание процесса. К тому же задержка сильно зависит от загрузки компьютера. Все это проверено на практике.Таймер VB работает намого точнее, там где нужны четкие интервалы времени.

[CodeName33]

Спасибо, Doevents помогло. Sleep не годится для подсчета времени, потому как Sleep <50 это 70-150 мс реальной задержки, на выполнение винапи процедуры на компе уровня пентюх-4 + подвисание процесса. К тому же задержка сильно зависит от загрузки компьютера. Все это проверено на практике.Таймер VB работает намого точнее, там где нужны четкие интервалы времени.

Слишком частый DoEvents загружает состему и порой вызывает большие задержки. Насчёт 70-150 мс задержки от Sleep - это странно. У меня на разных компьютерах при Sleep(1) - задержка в районе 10-15 мс. Таймер не может работать с интервалом 10мс. На деле меньше 15мс не получается. Если необходима высокая точность, лучше организовать непрерывный цикл и мерить реально протИкавшие миллисекунды. + установить приложению повышенный приоритет.

[Хакер]

Ruslan2000
Вот ведь, а. Как же часто приходится видеть таких персонажей, которые публично судят о поведении и, в частности, мнимой тормознутости некоторых API-функций. В 90% всех случаев однако же оказывается, что персонаж работает через Declare Function и не знает в нужной (для того чтобы иметь право судить о тормознутости) степени, что это за зверь.

[iGrok]

Если быть точным, то Sleep меньше 10 мс. при стандартных условиях(до вызова BeginTimePeriod с меньшим разрешением) все равно невозможен. А самая тема, это то, что Sleep(50) может быть равен и 50, и 70, и 150 мс.. Но не менее 50. Это уже винда. =)
Так что он для измерения времени в принципе не годится.

[Proxy]

Надо что-то навроде:

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

Dim TimeAtStart as single
...
Sub WeitTime(TimeA as single)
TimeAtStart = Timer
Do while TimeAtStart-Timer < TimeA
  DoEvents 'если требуется ппц точность, то без DoEvents
loop
end sub


?

[|kerish|]

ИМХО Если требуется ппц точность юзать надо GetSystemTime.

[HiSER]

ИМХО Если требуется ппц точность юзать надо GetSystemTime.

Юзать надо:

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

Public Declare Function QueryPerformanceCounter Lib "kernel32" Alias "QueryPerformanceCounter" (lpPerformanceCount As LARGE_INTEGER) As Long
Public Declare Function QueryPerformanceFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As LARGE_INTEGER) As Long


[Twister]

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

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

Таймер VB работает намого точнее, там где нужны четкие интервалы времени.