Практическая работа. ЗАДАЧА:Создать проект реализации системы управления точкой попадания в мишень без обратной связи, затем изменить проект

«Системы управления»

ЗАДАЧА: Создать проект реализации системы управления точкой попадания в мишень без обратной связи, затем изменить проект, добавив обратную связь.

1) Открыть Delphi. Поместить на форму компонент Image и 6 кнопок.

2) Расположить кнопки в виде креста джойстика и в центре поместить кнопку «о».

Кнопки направлений можно назвать «Вверх», «Вниз» и т.п. Кнопку точки можно назвать «Точка».

3) По кнопке «Задать цель» будем очищать поле Image1 и в случайном образом заданных координатах определять цель и положение нашей точки. Для этого необходимо сначала определить глобальные переменные x1,y1,x0,y0, которые будут отвечать за местоположение цели и точки попадания – нажмем F12, найдем слово implementation и в разделе var объявим:

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

4) F12, двойной щелчок по кнопке «задать цель» и создаем процедуру очистки поля Image и рисования цели и точки попадания:

(то, что по-русски после //, можно не вносить в код)

5) F12, два раза по любому месту формы и в процедуре ее создания (FormCreate) вызовем процедуру очистки поля Image и рисования наших цели и точки:

(«в любом месте формы» значит БУКВАЛЬНО в любом месте, исключая находящиеся на форме компоненты)

6) По кнопке с буквой «о» (точка) будем прорисовывать в текущих x0,y0 точку попадания.

7) Далее – по порядку: влево, вправо, вверх и вниз. При этом проверяем текущие значения x0 и y0 – если дошли до конца картинки, то уменьшать/увеличивать координаты нельзя:

7.1.

7.2.

7.3.

7.4.

ЗАПУСКАЕМ И ПОПАДАЕМ В ЦЕЛЬ. СДАЕМ РАБОТУ.

8. Добавляем в проект обратную связь. Будем получать от точки результат: попали ли мы в цель, ее координаты, а также координаты цели. На основе обратной связи попасть в цель будет гораздо легче. Добавим несколько меток (Label) на форму, расположим указанным образом и назовем соответственно (через свойство Caption):

(проверьте, чтобы у вас Label4, Label5, Label7, Label8 и Label2 расположены были точно также, либо учитывайте имена ваших меток (Label) при обращении к ним)

9) Изменим процедуры задания цели (кнопка «Задать цель») и «выстрела» - прорисовки точки (кнопка «о»): в них мы будем осуществлять обратную связь с управляемыми объектами. Процедура по кнопке «Задать цель» теперь будет такой:

(слово «ДОБАВИТЬ» НЕ вносить в код, строку зачеркнутую удалить)

10) Теперь по кнопке «о» - рисование точки попадания – будем прорисовывать нашу точку в заданных координатах и проверять, не попали ли в цель:

(отмеченная синим строка изменена!!! Остальные строки новые)

11) Осталось лишь осуществить обратную связь для точного попадания в цель: в процедурах обработки нажатия на кнопки влево, вправо, вверх и вниз внесем вывод текущих координат и рисование линии потенциального местоположения точки попадания:

(обратите внимание на порядок кнопок)

ПРОЕКТ ГОТОВ. ЗАПУСК, ПОПАДАНИЕ В ЦЕЛЬ И ОЦЕНКА В ЖУРНАЛ!

Дата добавления: 2015-04-29