Как написать свой таймер?

[Vovik]

Как написать свой таймер? Просто мне нуна запихнуть таймер в dll, а для этого надо писать свой...у мя есть маленькая идейка, но я хотел спросить у вас, уважаемые обитатели форума...

[Aleksej]

Используя API:

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

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long


[Vovik]

Хм...знаешь, я это и сам знал...но дело ведь не в этом...мне нужно осуществить функции стандартного таймера...вопрос заключался именно в этом...

[hCORe]

Если речь идет о стандартном элементе "Таймер", то можно реализовать его следующим кодом :

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

Dim CMX as Single, TMX as Single
Dim AL as Boolean, TmrInterval as Long
    TmrInterval=5000 '5 секунд; ставь сколько нужно
    AL=False 'флаг обновления таймера если 24 ч.
    CMX = Timer
    Do
        DoEvents
        If Format(Time, "hh") = "24" And _
        Format(Time, "m\")="0" And _
        AL = False Then _
        AL = True: CMX = Timer
        TMX = Timer

        If TMX >= CMX + (TmrInterval/1000) Then
            'сделать все нужные действия
            MsgBox "Прошло 5 секунд. _
            Еще по одной хряпнем?"
            Exit Do 'выйти из цикла
        End If
    Loop

Еще один глюк: если 24 часа, то таймер обнуляется. Он устранен в коде дополнительным опросом таймера (если 24.00). Вроде работает, но очень систему тормозит

[Vovik]

Спасибо большое... такой тож сойдёт... А 24 часа мне не нужно... мне 1000 - 60000 милсек...