 |
| Главная |
| Программы |
| Статьи |
| Разное |
| Форум |
| Контакты |
Как в программе переждать паузу между выполнениями команд
Предположим, вам надо подождать несколько секунд перед выполнением каких-либо действий в вашей программе. Вашему вниманию предлагается два решения проблемы. Первое решение прислали из группы SOOBCHA_VB, второе - где-то нашел в бесконечных примерах на моем жестком диске.ВАРИАНТ 1. Если вам нужно переждать несколько СЕКУНД
| CODE NOW! |
| Function Delay(Pause As Single) Dim Start As Single Start = Timer Do While Timer < Start + Pause DoEvents Loop End Function |
ВАРИАНТ 2. Если вам нужно переждать несколько МИНУТ
| CODE NOW! |
| Public Sub Sleeping(NumberOfMinute As Double) Dim FinishTime As Date FinishTime = DateAdd("n", NumberOfMinute, Now) Do Until FinishTime <= Now DoEvents Loop End Sub |
ПРОВЕРКА ВЫПОЛНЕНИЯ КОДА ВАРИАНТА 1 ИЛИ 2
| CODE NOW! |
| Private Sub Form_Paint() Print Time ’выберите, какой вариант вам больше по душе Delay (5) ’или Sleeping (5) ’и в том, и в другом случае указывается время в секундах Print Time End Sub |
ВАРИАНТ 3. Если вам нужно переждать несколько СЕКУНД...
| CODE NOW! |
| Private Declare Sub sapiSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) Private Sub Form_Paint() Print Time() Call sapiSleep(1000) ’в миллисекундах Print "Прежде чем напечататься, прошло 1000 миллисекунд" Print Time() End Sub |
| отсутствуют |
| :: Последние обновления :: |
| 04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках. |
| 20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году! |
| 28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами. |
| 21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений. |
| 16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка. |
Движок сайта: DotFix Engine v0.2 Администрация сайта: |