Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.17;
Скачать: 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 вся ветка

Текущий архив: 2009.05.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
10-1156501405
d_oleg
2006-08-25 14:23
2009.05.17
классы в библиотеке


15-1237360764
немо2
2009-03-18 10:19
2009.05.17
MSSQL2000 и Query Analyzer и управление изоляцией


3-1220820557
kaif
2008-09-08 00:49
2009.05.17
Автоинкрементные поля в MS SQL


15-1237388071
Denis__
2009-03-18 17:54
2009.05.17
Переопределение ввода/вывода CMD Windows


2-1232978119
anton shestakov
2009-01-26 16:55
2009.05.17
Фильтрация в базе