Скачать: CL | DM;

Загрузка ЦП 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% загружен, так это нормально. Тыж его и грузиш.

---

← →
Belorus ©   (2007-05-22 22:54) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c