И еще один вопросик...

Раздел посвящен программированию с использованием Power Basic.
Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

И еще один вопросик...

Сообщение Unstat » 09.12.2004 (Чт) 12:38

Как можно зделать так чтоб код постоянно выполнялся при запуске формы. Или есть ли здесь таймер.

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 09.12.2004 (Чт) 13:06

Эх, привыкли люди все-таки к Визуализации Визаульного Бэйсика..
Таймеры создаем/убиваем API-ф-ми SetTimer-KillTimer

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Сообщение Unstat » 09.12.2004 (Чт) 23:13

Всеровно не понял как его создать.

X-BOND
Реалист
Реалист
 
Сообщения: 944
Зарегистрирован: 19.08.2002 (Пн) 11:44
Откуда: Ukraine

Сообщение X-BOND » 10.12.2004 (Пт) 10:17

Unstat писал(а):Всеровно не понял как его создать.

Ленывый вы, однако... :)

Для начала объявляем глобальную переменную, которая определяет ID таймера, допустим так:
GLOBAL TimerID AS LONG

После создаем "субу" подобного типа:
SUB TimerProc(BYVAL HeWnd AS LONG, BYVAL nIDEvent AS LONG, BYVAL uElapse AS LONG, BYVAL lpTimerFunc AS LONG)
...
...
...
END SUB


Теперь таймер можно и запустить:
TimerID = SetTimer(HWND, 0, [интервал в милисекундах], CODEPTR(TimerProc))

Убивать так:
CALL KillTimer(HWND, TimerID)

Unstat
Реальный басяк
Реальный басяк
Аватара пользователя
 
Сообщения: 285
Зарегистрирован: 07.01.2004 (Ср) 22:19
Откуда: Нижний Новгород

Сообщение Unstat » 07.02.2005 (Пн) 13:56

Создаю я таймер ну считает он, а если мышкой по форме водить начинаешь то он несчитает перестаешь считает. Так же если маленькое время поставить считать будет, а на 1000 он ни как.


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

    TopList