Таймер через API

[Diamond]

Мне нужен больший интервал времени, чем максимальный у стандартного таймера. Может, есть таймероподобная фунцкия API, где диапазон интервала побольше? Если есть, напишите plz...

[Aleksej]

Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

[Cav]

Альтернатива:

1) прощитать за сколько времени выполняется следю вещь:

t=timer
for i=0 to 10000
i=i+1
next
x=timer-t
' x - время. за которое один раз выполняется цикл. Оно маленькое на медленных компах

елси поделить нужное время на X (x<>0), получем коэввициент K:

for i=0 to 10000*K
i=i+1
next

вот и наша задержка. Почти точная.

[MEMBER]

Cav
Ну ты дал... Проще ввести static переменную, ежели таймер 60000, то static 2 даёт 2 минуты и так далее.

[GoGosha]

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

Dim Ti As Single

Ti = Timer
Do
     DoEvents
     If Timer - Ti >= НУЖНЫЙ_ИНТЕРВАЛ Then Exit Do
Loop


Вот и всё (Нужный интервал в СЕКУНДАХ)
А для чего тебе, может проще моно зделать?

[MEMBER]

GoGosha
Хорошее решение. Но во время его выполнения, загрузка процессора подскочит до 100%.
На мой взгляд:

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

Private Sub Timer1_Timer()
    Static Count As Integer
    Count = Count + 1
    If Count <> n Then Exit Sub
    'КОД
    Count = 0
End Sub


получше будет.

[alibek]

А еще лучше

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

Static ExpTime As Single
ExpTime = ExpTime + Timer1.Inderval/1000
...


вот

[X-BOND]

ИМХО, товарищ Aleksej привел самое разумное решение.
А вариант от GoGosha я бы модифицировал так:

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

Dim Ti As Single
Ti = Timer + НУЖНЫЙ_ИНТЕРВАЛ
Do: DoEvents
Loop Until Timer >= Ti

(Кстати, на счет времени 23:59:59, при задержке больше секунды, код прийдется еще модифицировать)
Поэтому вместо этого лучше использовать Sleep, но он, правда, замораживает прогу на время действия, зато не кушает ресурсы.

[MEMBER]

По моему кое-кто путает выполнение кода по таймеру, с паузой при выполнении кода...
2 alibek
А дальше?