| Вопрос: запуск через интервал времени | Добавлено: 26.05.05 20:46 |
Автор вопроса:  MARCUS | Web-сайт: www.talbica.narod.ru
|
| нужно замутить прогу, к-рая запускалась бы через каждые, допустим, 15 минут. очень надо, хто нить памагите!!! :((((((((((((((((((((((((, буду очень благодарен!!! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  MARCUS Вопросов: 24 Ответов: 13 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 26.05.05 20:47 |
|
ой, извините, не так выразился!
нужно, чтобы программа вызывала определённую процедуру через заданный интервал. во! |
||
|
Номер ответа: 2 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 26.05.05 20:55 |
|
??????????????????????????????????
Const YourInterval = 15 '15 min.
Dim i As Long Private Sub Form_Load() Timer1.Interval = 60000 'interval = 1 min i = 0 End Sub Private Sub Timer1_Timer() i = i + 1 If i = YourInterval Then i = 0 YourSub End If End Sub Sub YourSub() MsgBox "Opa!", vbInformation End Sub |
||
|
Номер ответа: 3 Автор ответа: MARCUSВопросов: 24 Ответов: 13 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 26.05.05 21:59 |
|
нет, так не выйдет:
1. очень много ресурсов жрёт 2. интервал 15 минут не держит решение уже нашёл в виде API функции MsgWaitForMultipleObjects Всем спасибо!  )
|
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #4 | Добавлено: 26.05.05 22:19 |
|
интервал 15 минут не держит
половину минуты держит, счётчик + 1, если = 30, то куку... хотя наверное MsgWaitForMultipleObjects будет лучше. |
||
Страница: 1 |