Пояснения к подпрограмме

В разделе операторов процедуры Button1Click для вычерчивания автомобиля вызывается процедура FormClick с аргументом, обозначающим форму, в которой размещена кнопка Button1. Процедура SaveCar сохраняет в массиве CarImage цвета пикселей, расположенных в прямоуголь-нике, охватывающем изображение автомобиля. Далее в цикле последовательно происходит стирание изображенияавтомобиля, смещение влево на 1 пиксельпрямоугольника, охватывающего изображение автомобиля, и попиксельное восстановление изображенияавтомобиля из массива CarImage.

Чтобы проверить, как выполняется подпрограмма, нужно в форму для примера 1 добавить кнопку Button1,в инспекторе объектов перейти на закладкуEvents, на этой закладке дважды щелкнуть мышью на событии OnClick и набрать в текстовом редакторе подпрограмму, воспользовавшись автоматически сформированной заготовкой процедуры TForm1.Button1Click.

После запуска программы на выполнение кнопкой Run или клавишейF9 движущееся изображениеавтомобилявыводится на канву при щелчке покнопке Button1. Мигание на экране объясняется разной скоростью стирания и воспроизведения прямоугольной области с изображением автомобиля (стирается быстрее, чем воспроизводится). Можно избавиться от этого эффекта, если не вызывать в цикле процедуру EraseCar и увеличить на 1 пиксель константу CarLength, чтобы в окаймляющий прямоугольник попала узкая полоска фонового цвета, которая будет автоматически стирать заднюю часть изображенияавтомобиля присмещении на 1 пиксель влево (попробуйте сделать это изменение).

Лабораторное задание

1. Ознакомиться с примерами 1 и 2, рассмотренными в описании лабораторной работы.

2. Взять вариант задания (варианты приведены в таблице), соответствующий номеру ПК, за которым работает студент. Составить программу в системе Delphi для этого варианта. В программе использовать свойства и методы канвы.

3. Выбрать самый сложный вариант задания, который можете выполнить, и составить программу в системе Delphi для этого варианта.

Порядок выполнения лабораторной работы

1. Ознакомиться с описанием лабора­торной работы.

2. Воспроизвести на компьютере примеры 1 и 2, рассмотренные в описании лабора­торной работы.

3. Создать приложения (проекты) для двух вариантов, отладить их и пока­зать результаты преподавателю.

4. Оформить отчет.

Требования к отчету

Отчет должен содержать:

1) наименование и цель работы;

2) краткие сведения о свойствах и методах канвы;

3) тексты программ для вариантов заданий;

4) результаты выполнения приложений.

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

1. Как реализованы графические возможности в системе Delphi?

2. Как обеспечивается управление цветом вычерчиваемых линий?

3. Как обеспечивается управление стилем штриховки геометрических фигур?

3. Как задать вывод точек и линий?

4. Назовите свойства и методы, которые управляют стилем и расположением выводимого текста.

5. Как реализовать движение изображения по канве?

Таблица

Варианты заданий

N ва- рианта	З а д а н и е
1,20	Нарисовать мяч, состоящий из двух полуокружностей разного цвета. Обеспечить перемещение мяча, перекатывая его по "полу", рисуемому в виде коричневой области на светлом фоне. Обеспечить отскакивание его от границ пола.
2,21	На светлом фоне нарисовать вращающееся колесо на по­дставке, стоящей на "полу", рисуемом в виде темного прямоугольника. Подставку нарисовать в виде треугольника.
3,22	Схематично нарисовать парашютиста, "прыгающего" из верхней части экрана, обеспечить его перемещение во время падения и приземление на желтый песок.
4,23	Нарисовать качающиеся на подставке качели. Обеспечить выход из программы после 100 качаний.
5,24	Нарисовать голубую планету на фоне звездного неба и вращающийся вокруг ее по круговой орбите спутник.
6,25	Вывести в центре экрана надпись "TEXT" и обеспечить ее побуквенное увеличение до размеров экрана и последующее уменьшение с переключением на другой щрифт.
7	Нарисовать полет планера с вышки в правом верхнем углу экрана и посадку на песок в левом нижнем углу.
8	Показать движение звезд навстречу наблюдателю на фоне темного неба.
9	Схематично нарисовать аттракцион "чертово колесо" с двумя кабинками. Показать вращение колеса.
10	Нарисовать мячик, прыгающий между двумя плоскостями.

Окончание

N ва- рианта	З а д а н и е
11	Изобразить горизонт (коричневой нижней частью экрана землю и небо голубой верхней частью экрана), показать заход солнца, т.е. движение желтого круга по небу вниз до полного пропадания за землей.
12	Нарисовать звездное ночное небо и море. Имитировать мерцание звезд и перекатывающиеся волны на море.
13	Нарисовать пальму, растущую на желтом песке, с которой падают кокосовые орехи.
14	Нарисовать упрощенную модель атома водорода, т.е. большой красный круг в центре (имитирующий протон), и вращающийся вокруг него маленький синий круг (имитиру­ющий электрон).
15	Вывести текст "GO UP" внизу экрана и изобразить поочередное "всплывание" букв к середине экрана.
16	Нарисовать синию рамку на черном экране. Осуществить бесконечное прямолинейное равномерное движение мяча по полю экрана, который отскакивает от рамки.
17	Нарисовать движение красного круга из левого верхнего угла экрана в центр экрана, где он распадается на че­тыре равных сектора разного цвета.
18	Нарисовать настенные часы (типа ходики), с качающимся маятником.
19	Нарисовать пейзаж из ночного неба и земли. Осуществить горизонтальный полет по небу самолета.