| Вопрос: Сделай паузу... | Добавлено: 19.04.08 18:33 |
Автор вопроса:  gekko | Web-сайт: kalamfur.ru
|
|
Добрый вечер.
Такой вопрос, как в цикле в определенный момент притормозить его на пару секунд, а затем продолжить его выполнение? |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  МП41А Вопросов: 0 Ответов: 13 |
Профиль | | #1 | Добавлено: 19.04.08 19:10 |
| API-функция Sleep не подойдет? | ||
|
Номер ответа: 2 Автор ответа: gekko Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | | #2 | Добавлено: 19.04.08 19:24 |
| sleep подвешивает всю программу, а мне только цикл | ||
|
Номер ответа: 3 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #3 | Добавлено: 19.04.08 20:02 |
| doevents + sleep | ||
|
Номер ответа: 4 Автор ответа: МП41АВопросов: 0 Ответов: 13 |
Профиль | | #4 | Добавлено: 19.04.08 22:32 |
|
Ну, в таком случае, можно написать вот такую процедуру:
Private Sub Delay(ByVal strSecond As String)
Dim lngNow As Long lngNow = Timer Do While Timer < lngNow + strSecond DoEvents Loop End Sub И использовать ее вместо Sleep. |
||
|
Номер ответа: 5 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #5 | Добавлено: 19.04.08 23:48 |
| Я не считаю складывание строк с 4байтными числами нормальным))) | ||
|
Номер ответа: 6 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #6 | Добавлено: 20.04.08 00:45 |
User Unknown, сам-то понял, что сказал?  )))
Winand, аналогично
|
||
|
Номер ответа: 7 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #7 | Добавлено: 20.04.08 09:41 |
|
Умно
Private Sub Delay(ByVal strSecond As Double)
Dim lngNow As Double lngNow = Timer Do While Timer < Abs(lngNow + strSecond) DoEvents Loop End Sub Ку или не ку? |
||
|
Номер ответа: 8 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #8 | Добавлено: 20.04.08 10:54 |
| Timer, как и TickCount счас не рулят, ибо не точны. Юзаем QueryPerfomance's API's :D | ||
|
Номер ответа: 9 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #9 | Добавлено: 20.04.08 20:57 |
| VBD, типы данных может Single лучше сделать? И еще, зачем нужно Abs? | ||
|
Номер ответа: 10 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #10 | Добавлено: 21.04.08 08:50 |
|
VBD, типы данных может Single лучше сделать? И еще, зачем нужно Abs? можно и Single, а вот Abs - я точно не знаю, но почему-то без него иногда эта вся и подобные бадяги не срабатывают.
|
||
|
Номер ответа: 11 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #11 | Добавлено: 21.04.08 15:18 |
| хмм.. Но мы ведь понимаем все, что Abs это получение модуля числа? Значит иногда там отрицательные числа получаются? | ||
|
Номер ответа: 12 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #12 | Добавлено: 22.04.08 11:32 |
| Да | ||
|
Номер ответа: 13 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #13 | Добавлено: 22.04.08 12:56 |
| Интересно, как это там может отрицательное число получится... Разве что, если ты сам в аргументе его передашь | ||
|
Номер ответа: 14 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #14 | Добавлено: 22.04.08 14:43 |
| А фиг его знает)). Получается и все... | ||
|
Номер ответа: 15 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #15 | Добавлено: 22.04.08 16:25 |
| ну, знаете, иногда время идет в обратную сторону. а такие люди как мы, пишут Abs и никто не замечает подобных аномалий | ||