Порядок выполнения. В Delphi разрешается определять массивы объектов, что весьма удобно, если в программе имеются группы объектов

Пояснения к работе

В Delphi разрешается определять массивы объектов, что весьма удобно, если в программе имеются группы объектов, действующих примерно одинаково. Такие массивы позволяют «привязывать» разные элементы управления к одной процедуре обработки события.

Способ создания массива объектов:

· установить компонент (на его основе будет создаваться массив), изменить необходимые свойства;

· объявить массив объектов (имя массива не должно совпадать с именем ранее установленного компонента);

· написать программный код для создания объектов массива, «привязки» объектов к форме и определения их свойств (обычно код пишется в FormCreate);

· если предполагается, что объекты массива должны реагировать на внешние события, то создаются и объявляются соответствующие процедуры.

Элементы массива объектов имеют одинаковые имена, различаются по индексу, остальные свойства могут совпадать или отличаться. Для обращения к элементу массива объектов необходимо указать имя объекта и в квадратных скобках его номер.

Постановка задачи:

Разработать приложение «Игра в пятнашки».

Алгоритм игры следующий: в прямоугольной коробке находится 15 фишек, на которых написаны числа от 1 до 15. Размер коробки - 4х4, таким образом, в коробке одна пустая ячейка. В начале игры фишки перемешаны. Задача игрока состоит в том, чтобы, не вынимая фишки из коробки, выстроить фишки в правильном порядке (по возрастанию).

1. Создать новый проект. Установить на форме командную кнопку, задать имя для нее Pole.
2. Объявить массив объектов и переменные:

game:array[0..15] of TButton;

d,i:integer;

3. Для формы изменить свойство AutoSize - True, выбрать событие Сreate и ввести код:

Var

row,col:integer;

Begin

d:=50;// размер кнопки

For i:=0 to 15 do

Begin

game[i]:= TButton.Create(pole);

game[i].Parent:= Form1;

game[i].Width:=d; game[i].Height:=d;

game[i].Font.Style:=pole.Font.Style;

game[i].Font.Size:=pole.Font.Size;

game[i].Caption:=inttostr(i);

col:=i mod 4; //номер столбца для кнопки

row:=i div 4; //номер строки для кнопки

game[i].Top:=d*row;

game[i].Left:=d*col;

game[i].OnClick:=GameClick;

End;

game[0].Caption:=''; End;

4. Объявить процедуру

procedure GameClick(Sender: TObject);

1. Ввести код для этой процедуры:

Procedure TForm1.GameClick(Sender: TObject);

Var

x0,y0,x,y,index:integer;

Begin

//определение номера нажатой кнопки

For i:=0 to 15 do

If game[i].Focused =true Then index:=i;;

// координаты пустышки

x0:=game[0].left;

y0:=game[0].Top;

//координаты нажатой кнопки

x:=game[index].left;

y:=game[index].Top;

//если соседи по столбцу, то обмен

If (x0=x) and (abs(y-y0)=d) Then

Begin

game[0].Left:=x; game[0].Top:=y;

game[index].Left:=x0; game[index].Top:=y0;

End;

//если соседи по строке, то обмен

If (y0=y) and (abs(x-x0)=d) Then

Begin

game[0].Left:=x; game[0].Top:=y;

game[index].Left:=x0; game[index].Top:=y0;

End;

End;

1. Проверить работу программы.
2. Создать главное меню на форме из двух пунктов: Перемешать и Выход. Для пункта Перемешать ввести следующий код:

randomize;

For v:=1 to 20 Do

Begin

row:=random(15)+1;

game[row].SetFocus;

gameclick(game[row]);

End;

1. Предложить способ, как можно определить что задача решена и вывести соответствующее сообщение.

Задания для самостоятельного выполнения

Задание №1

Доработайте созданное приложение «Пятнашки»:

• добавить пункты в главное меню, позволяющие:
• выполнять настройку игрового поля (3х2, 4х4, 5х5);
• менять уровень сложности игры (степень перемешивания)
• вести счет количества результативных ходов пользователя.

Задание №2

Разработайте приложение «Клавиатура». Приложение должно работать следующим образом:

-

при щелчке по одной из «клавиш» в текстовое окно добавляется выбранная буква или пробел;

- при щелчке по кнопке «Очистить», текст полностью исчезает.

Кнопки с буквами – это массив объектов (командные кнопки или метки). Примерный вид окна представлен на рисунке.

Задание №3

Разработать игровое приложение, которое работает следующим образом:

- после загрузки приложения картинки (массив объектов) меняют свои координаты случайным образом (скорость перемещения отрегулируйте сами)

- при щелчке по любой картинке, она становится невидимой;

- работа программы заканчивается тогда, когда все изображения становятся невидимыми. Примерный вид окна представлен на рисунке.

Задание №4

Модифицировать приложение «Пятнашки»:

• создать массив объектов Image;
• разработать код для размещения на каждом объекте фрагмента одного рисунка.

Задача игрока – восстановить изображение картинки из фрагментов.

Контрольные вопросы

1. Из каких объектов можно создать массив объектов?

2. Какова последовательность создания массива объектов?

3. Если в приложении используется массив из 10 объектов, каждый из которых должен реагировать на двойной щелчок мыши, сколько процедур необходимо при этом создать?

4. Могут ли объекты, входящие в массив, реагировать на несколько событий?

Дата добавления: 2014-10-23