| Вопрос: Как вызвать задержку в выполнении программы? | Добавлено: 03.10.05 11:47 |
Автор вопроса:  programmer1
|
|
Есть ли в бейсике аналог Delphi функции delay(2000)?
Перерыла весь help и не нашла, неужели в бейсике нет такой необходимой вещи? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 03.10.05 11:54 |
|
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
|
||
|
Номер ответа: 2 Автор ответа:  programmer1 Вопросов: 11 Ответов: 13 |
Профиль | | #2 | Добавлено: 03.10.05 12:08 |
| Спасибо ) | ||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 03.10.05 21:37 |
|
Public Function Delay(Pause As Single)
'Пауза в секундах Dim Start As Single Start = Timer Do While Timer < Start + Pause Loop End Function |
||
|
Номер ответа: 4 Автор ответа: -=Fenix=-Вопросов: 33 Ответов: 81 |
Профиль | | #4 | Добавлено: 10.10.05 17:54 |
| есть хороший контрол - Timer | ||
Страница: 1 |