powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с таймером
5 сообщений из 5, страница 1 из 1
Проблема с таймером
    #33131427
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемые программисты! Подскажите мне пожалуйста как сделать так, чтобы интервал таймера был 10 мин, то есть это получается 600000 секунд. Вся проблема в том, что больше 99999 м.с. сделать в таймере никак нельзя, а мне нужно именно чтобы таймер обновлялся каждые 10 мин. Сразу оговорюсь, что функцию sleep мне не советуйте ,так как она не подходит из за того, что другие функции во время "засыпания" не действуют.
...
Рейтинг: 0 / 0
Проблема с таймером
    #33131439
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вызывай таймер за таймером

Priver Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

И так, пока не дойдешь до 10 мин.
А АПИ таймер пробовал?
...
Рейтинг: 0 / 0
Проблема с таймером
    #33131516
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ладно, не майся с кучей басиковских таймеров :)

Бери АПИ функцию, чтобы запустить таймер
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

и эту, чтобы отключить
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

ByVal lpTimerFunc As Long - сюда передаёшь AddressOf функции, которая должна что-то сделать по истечению таймера.
Эту функцию обязательно объяви в модуле.

Проверил на 2 минуты, тобишь 120000 милисек. Сработало нормально. Опробуй 10 минут и скажешь результат.
...
Рейтинг: 0 / 0
Проблема с таймером
    #33131949
Фотография rrrrrrrrrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
arsenyВызывай таймер за таймером

Priver Sub Timer1_Timer()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

И так, пока не дойдешь до 10 мин.
А АПИ таймер пробовал? Или переменную глобально повесить и в таймере проверять ее значение и менять:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public i As Integer 'срабатываем только на i=30
'в таймере:
If i <  30  then 
      i = i + 1  
else
     'обработка таймерного события
     i =  0 
End If
Тогда если таймерный интервал задан как 99999м/сек, то событие будет происходить каждые 99999*30м/сек :)
...
Рейтинг: 0 / 0
Проблема с таймером
    #33132161
Kifir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Благодорю всех,кто проявил бдительность в помощь мне.СПАСИБО!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с таймером
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]