Главная страница
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.013 c
3-27370
P0tia
2003-09-18 19:51
2003.10.09
Проблема с Excel


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


14-27636
Devil
2003-09-19 18:51
2003.10.09
Корсары 2 - Как замочить форт Гринфорд???


14-27697
DelphiX
2003-09-21 18:57
2003.10.09
Макросы в EXEL


1-27489
Max_
2003-09-26 17:43
2003.10.09
Освобождение памяти VarArray!!!