Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с таймером / 5 сообщений из 5, страница 1 из 1
23.06.2005, 14:56:46
    #33131427
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с таймером
Уважаемые программисты! Подскажите мне пожалуйста как сделать так, чтобы интервал таймера был 10 мин, то есть это получается 600000 секунд. Вся проблема в том, что больше 99999 м.с. сделать в таймере никак нельзя, а мне нужно именно чтобы таймер обновлялся каждые 10 мин. Сразу оговорюсь, что функцию sleep мне не советуйте ,так как она не подходит из за того, что другие функции во время "засыпания" не действуют.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2005, 15:01:58
    #33131439
arseny
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с таймером
Вызывай таймер за таймером

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

И так, пока не дойдешь до 10 мин.
А АПИ таймер пробовал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2005, 15:22:18
    #33131516
arseny
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
| Ответить | Цитировать | Написать  
23.06.2005, 17:36:49
    #33131949
rrrrrrrrrr
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
| Ответить | Цитировать | Написать  
23.06.2005, 19:34:37
    #33132161
Kifir
Kifir
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с таймером
Благодорю всех,кто проявил бдительность в помощь мне.СПАСИБО!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблема с таймером / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 319ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2167574]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 200ms
total:  319ms
x
x
Закрыть


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