Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

evg123 © (2007-05-22 16:34:00)
Помогите плиз. Делаю что-то типа арканоида (мой первый проект)-сделал процедуру которая отвечает за "полет" шарика. Все ОК шарик летает, но через пару сек. начинает двигаться рывками-смотрю загрузку проца-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;

Belorus (2007-05-22 22:54:00) [1]
Судя по коду, я бы в такой арканоид играть точно не стал.

@!!ex (2007-05-22 21:50:00) [2]
А кто будет нормально переменные называть?
А то что проц на 100% загружен, так это нормально. Тыж его и грузиш.

evg123 (2007-05-22 19:29:00) [3]
че никто

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »