Метод Ellipse рисует окружность или эллипс с помощью текущих параметров пера Pen. Фигура заполняется текущим значением Brush. Точки (X1, Y1) и (X2, Y2) определяют прямоугольник, описывающий эллипс.
procedure Rectangle(X1, Y1, X2, Y2: Integer);
Рисует на канве текущим пером Pen прямоугольник верхний левый угол, которого имеет координаты (X1, Y1), а нижний правый - (X2, Y2). Прямоугольник закрашивается текущей кистью Brush.
Приложение А
Министерство образования и науки РФ
ФГБОУ ВПО «Волгоградский государственный архитектурно-строительный университет»
Себряковский филиал
Кафедра математических и естественно-научных дисциплин
Пояснительная записка к курсовой работе
по дисциплине
«Объектно-ориентированное программирование»
Тема работы:
« Динамическое распределение памяти и его значимость в реализации ООП парадигмы»
Выполнил студент гр. <группа>
Иванов И.И.
Проверил <должность >:
Иванов И.И.
Михайловка 2013
Приложение Б
Создаем новый проект:
1.Проект → Создать проект
2.Выбираем тип проекта приложение:
3. Добавляем в проект обработчик события нажатия кнопок мыши : OnMouseDown
где sizeObj - глобальную константу определяющую размер фигуры: const sizeObj=20;
5. Запускаем созданный нами проект (F9) и тестируем, что у нас получилось.
Вне зависимости от того какой кнопкой мыши мы щелкаем, происходит добавление нового круга на экран.
Но как только вы пробуйте изменить размеры окна. Ваша форма перерисовывается заново и изменения не сохраняются.
Закомментируем код рисования эллипса.
6. Создадим объекты, которые будут оставаться в программе в течение всего времени жизни главного окна. Добавляем в проект обработчик события рисования окна : OnPaint.
Создадим прямоугольники, которые будут располагаться в верхней части окна. Так как размеры окна могут меняться, то пусть количество нарисованных прямоугольников меняется в зависимости от ширины окна (Form1.Width).
7. Теперь у нас есть проблема. Так как окно может быль любых размеров, то нарисованные прямоугольники помещаются в окне не целое количество раз. Сделаем так, чтобы размеры окна были только кратными переменной sizeObj. Для этого добавляем в проект обработчик события изменения размера окна : OnResize
Добавим в модуль реализации :
Form1.Width :=sizeObj*round(Form1.Width/sizeObj);
8. Создайте такую же границу из прямоугольников с обоих боков окна.
Результат:
Обратите особое внимание, что для боковых границ последнее значение счетчика цикла рассчитывается с помощью значения высоты окна(Form1. Height/sizeObj).
Теперь процедура FormPaint выглядит так:
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
for i:=0 to Round(Form1.Width/sizeObj) do {create Top Windows}
for i:=0 to Round(Form1. Height/sizeObj) do {create Right Windows}
Form1.canvas.Rectangle(Form1.Width,sizeObj*i,
Form1.Width- sizeObj, sizeObj*(i+1));
end;
9. Сделайте такое же, как в пункте 7 ограничение, но еще для высоты окна (Form1. Height)
10. Создадим три прямоугольника, которые будут управляться с помощью клавиатуры. Для обработки событий клавиатуры добавляем в проект обработчик события нажатия клавиши: OnKeyDown:
Для управления будут использоваться стрелки.
Обратим внимание, что в нашу процедуру передается параметр Key типа Word. Это некоторое цифровое значение клавиш, чтобы узнать его можно воспользоваться какой-нибудь справочной литературой. Но если таковой под рукой нет, поступим следующим образом: Напишем в этой процедуре код:
ShowMessage(IntToStr(Key)) ;
И теперь запустим нашу программу и нажимая необходимую нам клавишу увидим сообщение с ее кодом . Так определяем «←» = 37, «→» =39. Если же вам нужна какая-то английская буква то можно воспользоваться функцией Ord ('S').
При нажатии на клавишу объект должен перемешаться, т.е. должны изменяться его координаты. Для этого необходимо чтобы значение координат где-то хранилось. Создадим глобальную переменную coorXObj хранящую значение по Х. Тип этой переменной будет Integer, при этом присвоим значение по умолчанию coorXObj:integer=sizeObj;
11. Продолжаем работу в обработчике события нажатие клавиши.
При Key=37 значение coorXObj уменьшаем, а при Key=39 значение coorXObj увеличиваем.
if Key=37 then coorXObj:=coorXObj-sizeObj ;
if Key=39 then coorXObj:=coorXObj+sizeObj ;
12. Для того чтобы наш объект изображался, необходимо его рисовать в процедуре FormPaint :
13. Запустим проект на тестирование. Обнаружим, что наш объект не реагирует на нажатия клавиш. Это связано с тем, что при нажатии клавиш не происходит перерисовка окна. Значит, в процедуре FormKeyDown наверное необходимо вызывать процедуру рисования окна.
FormPaint(Sender);
14. Запустим проект на тестирование. Наблюдаем ошибку, предыдущее положение объекта не стирается с окна. Поэтому необходимо вызывать не процедуру рисования, а процедуру перерисовки окна
Form1.Repaint
15. Однако некоторые аномалии поведения еще остались. Например если объект вывести за приделы экрана, то обратно он возвращается не сразу. Поэтому на значение этой переменной coorXObj должны быть наложены ограничения.
sizeObj <=coorXObj and coorXObj <= (Form1.Width – 2*sizeObj).
Выразим это следующим способом
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );
begin
if (Key=37) and not (sizeObj =coorXObj) then coorXObj:=coorXObj-sizeObj ;
if (Key=39) and not (coorXObj = (Form1.Width - 2*sizeObj)) then
coorXObj:=coorXObj+sizeObj ;
Form1.Repaint;
end;
16. Преобразуйте этот объект в три последовательных прямоугольника, и исправьте ограничения переменной coorXObj для этого случая.
17. Необходимо реализовать следующее
1. Перемещение шарика по окну программы через определенные промежутки времени.
2. Отражение шарика от стенок.
3. В случае попадания в нижнюю часть окна он должен либо отразиться от передвигаемой пользователем стенки либо упасть, и во втором случае работа программы должна завершаться.
18. Теперь создадим объект - шарик, который будет перемешаться самостоятельно. Для этого нам необходим специальный системный компонент таймер располагающийся на выкладке System
Добавим его в наш проект.
Для этого добавляем в проект обработчик события времени OnTimer
19. У самостоятельного объекта пусть будет две меняющиеся координаты, два коэффициента, для определения направления движения. Для этого создадим сначала класс, а потом переменную этого типа.
type TBall=class
X,Y, dx,dy:integer;
procedure SetDefault;
end;
procedure TBall.SetDefault;
begin
X:=sizeObj;
Y:=sizeObj;
dx:=1;
dy:=2;
end;
var
Ball:TBall;
Для того чтобы событие перемещения, не начинались сразу после создания формы, выключим таймер в его свойствах.
Для того чтобы запустить игру опишем в обработчике событий нажатия клавиши следующее действие:
If key = 116 then { код клавиши - F5}
StartNewGame;
где StartNewGame – процедура, которую мы добавим в класс TForm1.
И реализуем процедуру:
procedure TForm1.StartNewGame;
begin
Ball:= TBall.Create; {создаем экземпляр класса}
Ball.SetDefault;
Timer1.Enabled:=True; {запускаем таймер}
end;
20. Добавим в модуль реализации обработчика событий времени Timer1Timer алгоритм изменения координат нового объекта - Шарика.
Ball.X:= Ball.X+ Ball.dx;
Ball.Y:= Ball.Y+ Ball.dy;
И сразу же изменим интервал времени через который будет происходит запуск этой процедуры Поставим 100.
21. Для более удобного обозначения размеров рабочей области введем переменные и создадим функцию её вычисляющую.
Переменная будет особого типа record
Который опишем
Type TMinMax=record
min,max:integer;
End;
Type TField=record
X,Y: TMinMax;
End;
Var
WorkField: TField;
22. Добавим метод procedure CalculationWorkField; в класс TForm1;.
Его реализация будет:
procedure TForm1.CalculationWorkField;
begin
WorkField.X.min:=sizeObj;
WorkField.Y.min:=sizeObj;
WorkField.X.max:=Form1.Width-sizeObj;
WorkField.Y.max:=Form1.Height-sizeObj;
end;
23. Будем вызывать процедуру CalculationWorkField при каждом изменении размеров окна т.е. в процедуре FormResize.
24. Благодаря только что созданной процедуре есть возможность улучшить читабельность нашей программы в уже написанном коде. Если вспомните что у нас написано в процедуре FormKeyDown. Именно там мы использовали плохо читаемые прямые указания ограничений.
if (Key=37) and not (coorXObj= sizeObj) then coorXObj:=coorXObj-sizeObj ;
if (Key=39) and not (coorXObj = (Form1.Width - 4*sizeObj)) then
coorXObj:=coorXObj+sizeObj ;
Так что теперь напишем:
if (Key=37) and not (coorXObj = WorkField.X.min) then coorXObj:=coorXObj-sizeObj ;
if (Key=39) and not (coorXObj = (WorkField.X. max - 3*sizeObj)) then
coorXObj:=coorXObj+sizeObj ;
Дело в том, что мы храним координату самой левой точки объекта, поэтому вычитаем 3* sizeObj – теперь это стало хорошо видно ( с четверкой было не понятно).
Смотрим дальше в процедуре FormPaint мы тоже использовали прямые значения от края окна, поэтому перепишем:
старое
По-новому
Form1.Width/sizeObj
WorkField.X.max/sizeObj
Form1.Height/sizeObj
WorkField.Y.max/sizeObj
Вместо:
for i:=0 to Round(Form1.Height/sizeObj) do {create Right Windows}
25.Добавим возможность отражения от стенок шарика реализуем в процедуре Timer1Timer.
If (Ball.X= WorkField.X.min) or (Ball.X= WorkField.X.max- sizeObj) then
Ball.dx:= -1*Ball.dx;
Аналогично можно написать для координаты Y, но необходимо проверять наличие стенки перемещаемой пользователем, на пути движения шарика.
If (Ball.Y= WorkField.Y.min) then Ball.dy:= -1*Ball.dy; {отражение от верхней границы}
If (Ball.Y= WorkField.Y.max -sizeObj) then begin {с пользовательской стенкой}
if ((coorXObj<= Ball.X) and (coorXObj+3* sizeObj >= Ball.X)) then
Ball.dy:= -1*Ball.dy
Else begin
ShowMessage('Game over');
Timer1.Enabled:=false; { останавливаем таймер}
GameIsStart:=false;
Ball.Free;{уничтожить шарик}
end;
end;
Дело в том, что мы храним координату самой левой точки объекта, поэтому от максимального вычитаем sizeObj
26. Теперь всю реализацию, связанную с шариком в процедуре Timer1Timer, спрячем в метод класса (TBall) function Move():Boolean; возвращающий значение по которому можно определить вышел ли наш шарик за приделы рабочей области или нет. Для удобства чтения создадим глобальную константу: BallInOutWorkField=true; {- шарик вышел за приделы}
function TBall.Move():Boolean;
begin
result:=not BallInOutWorkField;
X:= X+ dx;
Y:= Y+ dy;
If (X= WorkField.X.min) or (X= WorkField.X.max- sizeObj) then
dx:= -1*dx;
If (Y= WorkField.Y.min) then dy:= -1*dy;
If (Y= WorkField.Y.max- sizeObj) then begin {с пользовательской стенкой}
if ((coorXObj<= X) and
(coorXObj+3* sizeObj >= X)) then
dy:= -1*dy
Else result:=BallInOutWorkField;
end;
end;
27. Делаем соответствующие исправления в процедуре Timer1Timer.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Ball.Move()=BallInOutWorkField then begin
ShowMessage('Game over');
Timer1.Enabled:=false; { останавливаемтаймер}
GameIsStart:=false;
Ball.Free;
end;
Form1.Repaint;
end;
28. Теперь необходимо рисовать объект –шарик. Создадим специальный метод Draw()
procedure TBall.Draw();
begin
Form1.canvas.Ellipse(X, Y, X+sizeObj, Y+sizeObj);
end;
Будем вызывать её в процедуре FormPaint.
Ball.Draw();
29. Запускаем и видим ошибку. Дело в том, что мы еще не запускали процедуру StartNewGame, а значит, у нас еще нет объекта Ball.. Нужно как то ограничить запуск строчки Ball.Draw(), поэтому создадим глобальную переменную (GameIsStart) несущую значение началась наша игра или нет.
Var GameIsStart: Boolean=false;
и в процедуре StartNewGame добавляем GameIsStart:=true; {игра началась}
Исправляем процедуре FormPaint
If GameIsStart then TBall.Draw();
30. При тестировании программы обнаруживаются недочеты. Это происходит, потому что левая координата шарика не находится в приделах нашей стенки и соответственно отражение не происходит. Поэтому для более корректного условия стоит выбрать проверять координату середины шарика:
if ((coorXObj<= X+sizeObj/2 ) and
(coorXObj+3* sizeObj >= X+sizeObj/2)) then …
31. В работе программы есть аномалия. При уменьшении размеров окна пользовательская стенка остается на своем месте и поэтому выходит за приделы рабочей области. Необходимо исправить эту ошибку.
32. Добавить возможность подсчета очков заработанных пользователем в зависимости от :
а. количества столкновений
б. места столкновения с вашей стенкой (средний или крайний квадраты)
в. размеров рабочей области.
и выведение этого значения во время игры.
33. Реализовать все функциональные возможности, указанные в индивидуальном задании на курсовую работу.
3. Добавляем в проект обработчик события нажатия кнопок мыши : OnMouseDown
7. Теперь у нас есть проблема. Так как окно может быль любых размеров, то нарисованные прямоугольники помещаются в окне не целое количество раз. Сделаем так, чтобы размеры окна были только кратными переменной sizeObj. Для этого добавляем в проект обработчик события изменения размера окна : OnResize
10. Создадим три прямоугольника, которые будут управляться с помощью клавиатуры. Для обработки событий клавиатуры добавляем в проект обработчик события нажатия клавиши: OnKeyDown:
20. Добавим в модуль реализации обработчика событий времени Timer1Timer алгоритм изменения координат нового объекта - Шарика.
Var GameIsStart: Boolean=false;
