движение авто со скоростью

[saltonik]

Здравствуйте! Помогите пожалуйста найти ошибку. Запускаю программу на выполнение - зависает((

procedure TForm2.Timer3Timer(Sender: TObject);
begin
k:= (100*v) div 36; // Это на сколько пикселей будет передвигаться автомобиль, v=скорость авто км/ч
// shape1 - автомобиль, s - остановочный путь
while shape1.left< s do
begin
shape1.left:= shape1.left+k;
end;
timer3.Enabled:=false;
end;

[MyLastHit]

Что этот код делать должен?)) И кто в таймер цикл сует?)

procedure TForm2.Timer3Timer(Sender: TObject);
begin
k:= (100*v) div 36;
if shape1.left< s then
shape1.left:= shape1.left+k 
else
timer3.Enabled:=false;
end;

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

[saltonik]

shape1 то есть автомобиль должен двигаться. в таймере нельзя использовать цикл??

[saltonik]

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

Что этот код делать должен?)) И кто в таймер цикл сует?)

procedure TForm2.Timer3Timer(Sender: TObject);
begin
k:= (100*v) div 36;
if shape1.left< s then
shape1.left:= shape1.left+k 
else
timer3.Enabled:=false;
end;

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

shape1 то есть автомобиль должен двигаться. в таймере нельзя использовать цикл??

[MyLastHit]

Можно, но помоему тебе нужно чтобы машинка плавно ехала и приложение не вешалось? Цикл While здесь не к чему. Тебе нужно чтобы каждую секунду машинка двигалась на несколько пикселей вправо если ее положение не равно S.
В общем вот код для таймера:

procedure TForm2.Timer3Timer(Sender: TObject);
begin
if shape1.left< s then
shape1.left:= shape1.left+k 
else
timer3.Enabled:=false;
end;

А это помести в ОнКриэйт формы: k:= (100*v) div 36;

[saltonik]

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

Можно, но помоему тебе нужно чтобы машинка плавно ехала и приложение не вешалось? Цикл While здесь не к чему. Тебе нужно чтобы каждую секунду машинка двигалась на несколько пикселей в лево если ее положение не равно S.

дада точно чтобы плавно ехала. а как можно сделать чтобы машинка остановилась, как только проедет дорогу равную s?

[MyLastHit]

if shape1.left< s then //если машинка не приехала до отметки S то 
shape1.left:= shape1.left+k //двигать ее на к-пикселей вправо
else //иначе
timer3.Enabled:=false;//выключить таймер=остановить движение

и это все выполнять каждые timer3.interval миллисекунд

[saltonik]

что то не двигается машинка=((( k,s и shape1.left проверила, они равны определеному значению, не ноль. в чем же тогда проблема?

[saltonik]

получилось!

procedure TForm2.Timer3Timer(Sender: TObject);
begin
       shape1.left:= shape1.left+k;
if shape1.left > s then  timer3.Enabled:=false;

end;

спасибо=)

[saltonik]

Здравствуйте! Помогите плиииз: когда выходит шоумессидж, ок нужно нажимать неск раз чтобы окошко мессиджа закрылось. в чем ошибка.

procedure TForm2.Timer3Timer(Sender: TObject);
begin
       shape1.left:= shape1.left+k;
       shape2.top:= shape2.top-l;
if shape1.left+shape1.width > ostput then
begin
timer3.Enabled:=false; timer4.Enabled:=false;  timer1.Enabled:=false;
end;
 if ((shape1.Left+shape1.Width)>shape2.Left) and (shape2.top< shape1.top+shape1.height)
 then
 begin
case i of
1: p:='ÊÎËIÊ';
2: p:='ÊÎËIÊ';
3: p:='ÊÎËIÊ';
4: p:='ÊÎËIÊ';
5: p:='ÆÀßÓ ÆÓÐÃIÍØI';
 END;
 p:= 'Ñîãûï êåòó îðûíäàëàäû! Åðåæåíi áóçóøû - '+#13#10+p;
 showmessage(p);
 end;
end;