Урок 5 Мухобойка

УРОК5 Мухобойка Написать игру с подсчётом очков

Смысл игры заключается в следующем: на игровом поле случайным образом появляется на некоторое время муха, по которой нам нужно кликнуть мышкой. Если попали, начисляется 10 баллов. Для упрощения количество заработанных баллов будем выводить в заголовок окна.

Для этого нам понадобится таймер и кнопка с картинкой, а для подсчёта баллов нам нужно будет описать переменную целочисленного типа.

Таймер (TTimer1) находится на вкладке «System», а компонент для отображения картинок (TImage) — на вкладке «Additional».

1) С помощью инспектора объектов установим следующие свойства для всех компонентов как в таблице:

Для Form1 Caption – Мухобойка, Width-600, Height-400 Color - любой

Для Image1 Caption – очистить от текста AutoSize - True Picture - загрузите изображение мухи, файл в папке, где будет сохранен проект

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

Для этого с помощью инспектора объектов на Image1 зададим событие OnTimer, где напишем следующий код:

Image1.Left:=Random(Width); //передвигается случайно по горизонтали

Image1.Top:=Random(Height); //передвигается случайно по вертикали

Image1.Visible:=not Image1.Visible; //изменяется состояние видимости

3) Запустите игру и посмотрите, как будет себя вести «муха».

4) Добавить подсчёт баллов в игре по клику мышкой на «муху». Для этого понадобится дополнительная переменная, в которой мы будем сохранять текущий счёт чтобы отображать его в заголовке окна, например, с именем score. Объявить ее как Var score:Integer; в процедуре модуль unit1 ;

 var

Form1: TForm1;

Score : Integer;

5) Написать обработчик события по попаданию мышкой на «муху». На форме выберем компонент Image1 и в Инспекторе объектов на вкладке «События» напротив OnClick дважды щёлкнем мышкой. В редакторе кода в позиции курсора вставим следующие строчки:

Score:=Score+10;

Caption:=’Мухобойка: заработано баллов — ‘+IntToStr(Score);

Обратите внимание на вторую строчку: так как баллы у нас хранятся в переменной числового типа, а заголовок окна имеет текстовый тип, мы приводим количество баллов к текстовому представлению с помощью функции IntToStr(Score); - это означае перевод из типа Integer в тир String

 

Рисунок 3-1: Окно работающей игры «Мухобойка»

6) Сохраняем, запускаем, играем :). Если всё сделали правильно, то могу Вас поздравить: Вы написали свою первую игру! А теперь попробуем подвести итоги материалу, который мы сегодня освоили:

1. Использование изображений в программах.

2. Использование таймера.

3. Использование переменных.

4. Преобразование типов.