задержка

[beygul]

Привет всем! Нужно осуществить задержку в программе задержку. То есть чтобы после выполнения команды, прошла секунда и выполнялась вторая команда, Важно чтобы вторая команда выполнялась не сразу после первой, а ИМЕННО с задержкой, например в секунду... заранее всем спс...

[ex.cluz]

Язык какой?

На Delphi - Sleep(x);
где x-количество миллисекунд

[beygul]

Да на делфи... Но Sleep(x); - не канает... т. к. останавливает процесс работы всей проги... Надо что то другое, а что..........

[ex.cluz]

Тогда кидайте на форму TTimer и работайте с ним.

[beygul]

я не совсем понимаю как это осуществить через таймер... с ним практически не работал....

if key = ' ' then begin

yyy := yyy -1 * cos(angleX*pi/180);
yyy := yyy +2 * cos(angleX*pi/180);

end;

нужно чтобы между выполнением этих двух команд:
yyy := yyy -1 * cos(angleX*pi/180);
yyy := yyy +2 * cos(angleX*pi/180);
была задержка... Но даже с таймером не могу понять как это сделать...

[Grag]

Сообщение от beygul

Да на делфи... Но Sleep(x); - не канает... т. к. останавливает процесс работы всей проги... Надо что то другое, а что..........

чтобы после выполнения команды, прошла секунда и выполнялась вторая команда, Важно чтобы вторая команда выполнялась не сразу после первой, а ИМЕННО с задержкой, например в секунду...

Ну ты и сказал... Ты требуешь, чтобы очередная команда программы выполнялась не раньше одной секунды после предыдущей команды, а теперь говоришь о каком-то подвисании программы. Где логика-то???

[ex.cluz]

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

Timer1.Enabled:=true;

Теперь создайте событие OnTimer и напишите:

Timer1.Enabled:=false;

В свойстве Interval поставьте время задержки в миллесекундах.

Проверил. У меня не работает. Видимо первое же событие OnTimer происходит сразу при активизации таймера, а не по истечении некоторого времени. Сейчас соображу, как можно сделать по другому.

[beygul]

ошибок при компиляции не возникло, но программа всё равно работает не так как надо....

[ex.cluz]

Можно так:
объявляете глобальную переменную, например, i (в разделе private) типа byte.

теперь OnTimer корректируете так:

if i=2 then Timer.Enabled:=false;
i:=i+1;

А в событие OnCreate (у формы) пишите:

i:=0;

Все работает.

ЕСЛИ У ВАС ГДЕ-ТО ИСПОЛЬЗУЕТСЯ ПЕРЕМЕННАЯ i ТО ЗАМЕНИТЕ ЕЕ (В МОИХ ЗАПИСЯХ) НА КАКУЮ-НИБУДЬ ДРУГУЮ.

Ах да, прошу прощения, забыл, переправьте, пожалуйста:

if i=2 then begin i:=0; Timer.Enabled:=false; end;
i:=i+1;

[Serge_Bliznykov]

beygul, Вы явно "хотите странного"

Ну, если вариант с таймером не устраивает (не могу даже представить - ЧЕМ! Вы его просто применять не можете!) и большАя точность Вам не нужна,
можете попробовать так:

for i:=1 to 100 do begin
  Application.ProcessMessages;
  sleep(10);
end;

p.s. Мой способ использовать ТОЛЬКО в том случае, если не сможете разобраться с нормальным способом (например, как выше описал ex.cluz)