Загрузка ЦП 100%

← →
evg123 (2007-05-22 16:34) [0]

Помогите плиз. Делаю что-то типа арканоида (мой первый проект)-сделал процедуру которая отвечает за "полет" шарика. Все ОК шарик летает, но через пару сек. начинает двигаться рывками-смотрю загрузку проца-100%.Че я не так замутил?Код ниже.Спасибо.
procedure My.Go;
var sp,ang:real;so:bool;
begin
sp:=2; ang:=3;
so:=false;
if dir_x>0 then x:=x+sp
else x:=x-sp;
if dir_y>0 then y:=y+sp
else y:=y-sp;
with Form1 do
begin
if x>width-30 then begin
so:=true;
dir_x:=-1
end;
if y>height-90 then begin
so:=true;
dir_y:=-1
end;
if x<10 then begin
so:=true;
dir_x:=1
end;
if y<10 then begin
so:=true;
dir_y:=1
end;

if so then beep;

px:=trunc(x);
py:=trunc(y);
// Application.ProcessMessages;sleep(0);
Shape1.Left:=px;
Shape1.Top:=py;
Shape1.Update;
end; //with
// Application.ProcessMessages;

end;

← →
evg123 (2007-05-22 19:29) [1]

че никто

← →
@!!ex © (2007-05-22 21:50) [2]

А кто будет нормально переменные называть?
А то что проц на 100% загружен, так это нормально. Тыж его и грузиш.

Судя по коду, я бы в такой арканоид играть точно не стал.

Загрузка ЦП 100% Найти похожие ветки