Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.09;
Скачать: CL | DM;

Вниз

SetTimer   Найти похожие ветки 

 
Andre ©   (2003-08-02 02:44) [0]

Всем Привет!
Мне надо сделать два события, одно из которых повторяется через 4-5 секунд, второе через 0.3-0.5 секунд после первого. Я сделал так в главном цикле программы:
SetTimer (Handle, 0, 4000, nil);
Sleep (300);
( Handle, 1, 4000, nil)
Всем Привет!
Мне надо сделать два события, одно из которых повторяется через 4-5 секунд, второе через 0.3-0.5 секунд после первого. Я сделал так в главном цикле программы:
SetTimer (Handle, 0, 4000, nil);
Sleep (300);
SetTimer (Handle, 1, 4000, nil);

При загрузке прложения система подзависает на 0.3 секунды, но это не страшно. Плохо то, что второй таймер при сильной загрузке проца запускается через время дольшее, чем 0.3 сек. Может кто нить подкинет идейку, как это исправить (или вообще выкинуть Sleep()). Спасибо.


 
default ©   (2003-08-02 03:01) [1]

если второй таймер должен тикать каждую половину секунды, то можно обойтись одним таймером в твоём случае


 
D ick ©   (2003-08-02 03:15) [2]

На мой взгляд не плохой вариант выполнять через таймер, и активировать его если твое событие выполняется


 
Rouse_ ©   (2003-08-02 08:22) [3]

А зачем Sleep? Да еще в главном цикле??? Что за цикл такой?
Не проще: SetTimer (Handle, 1, 4300, nil);?
И переустановка интервалов при срабатывании первого?

А если система загружена, то сообщение о срабатывании таймера, к сожалению, вы не получите (точнее, получите, но не вовремя). Если критично, придется реализовывать другой метод.

Желаю успехов


 
andre ©   (2003-08-03 02:39) [4]

зы: а как активировать/деактивировать таймер? (извините меня неграмотного). Неужели KillTimer?


 
Dakis ©   (2003-08-03 08:59) [5]

Если тебе так важна точность типания, то советую заглянуть в Королевство дельфи www.delphikingdom.com Нам с свитках есть статья "Таймер который не подведёт". Сначала всё кажется сложным но потом как разберяшся тама такие финты делать можно(типа тикать каждые 4 секунды в понедельник с 12 ура до 4 ночи 18 чила 2003 года ;-))


 
andre ©   (2003-08-05 02:24) [6]

Зы : я сделал так:

WM_TIMER : case wParam of

0 : begin
......
SetTimer (Handle, 1, 300, nil);
end;

1 : begin
....... KillTimer (Handle, 1);
end;

end;

вроде даже работает:))



Страницы: 1 вся ветка

Текущий архив: 2003.10.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
1-27518
Cheater2k
2003-09-26 12:54
2003.10.09
Regionы


3-27360
Apollo
2003-09-19 13:01
2003.10.09
Фильтрация


3-27384
Lamer1
2003-09-18 16:17
2003.10.09
Проблемы с TClientDataSet


1-27525
User_OKA
2003-09-30 07:22
2003.10.09
TreeView


1-27500
Zhouck
2003-09-26 16:19
2003.10.09
Создание фреймов по типу фрейма