Описание плана разработки программы

WithCanvas dobegin

// полотнище

Canvas.Pen.Width:= 1; Canvas.Pen.Color:= clBlack; Canvas.Brush.Color:= clCream; Rectangle(30,30,150,115);

// кольца

Pen.Width:= 2;

Brush.Style:= bsClear; // область внутри круга

// не закрашивать

Pen.Color:= clBlue; Ellipse(40,40,80,80); Pen.Color:= clBlack; Ellipse(70,40,110,80); Pen.Color:= clRed; Ellipse(100,40,140,80); Pen.Color:= clYellow; Ellipse(55,65,95,105); Pen.Color:= clGreen; Ellipse(85,65,125,105);

end; end;

end.

Практическая работа № 12 «Узоры»

Цель работы -создать программу,выполняющую следующие действия без участияпользователя:

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

2. Картинка обновляется «сама собой». Интервал таймера может быть любым. Он зависит от компьютера, на котором работает программа.

3. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

Рис. 55.

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: область рисования PaintBox, таймер Timer.

3. Область рисования представить в виде клеток (точек или пикселов). Каждая клетка покрашена в свой цвет. В ходе программы цвета меняются.

4. Описать предварительно константы в окне кода пред ключевым словом: Const size = 40;

csize = 12;

Colors: array [1..16] of TColor =

(clRed, clGreen, clYellow, clBlue, clWhite, clGray, clFuchsia, clTeal, clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua, clBlack);

Константа size задает число клеточек по каждому направлению, константа csize – число используемых цветов. Массив Colors (константа) определяет цвета.

В разделе описаний после ключевого слова var описывается массив клеток

Points: array[1..size, 1..size] of Integer; 5. Выполнить следующие действия:

			Таблица 25.
Выделенный объект	Вкладка окна	Имя свойства/	Действие
Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «Узор»
	Events	OnCreate	В процедуре обеспечить неповторимость
			случайных чисел с помощью процедуры
			Randomize. Провести инициализацию
			массива пикселов.
PaintBox1	Properties	Height	Задать значение 320
(Вкладка System)		Width	Задать значение 320

			Продолжение таблицы 25.
Выделенный объект	Вкладка окна	Имя свойства /	Действие
Object Inspector	имя события
		Canvas	Свойства и методы этого свойства
			обеспечивают рисование.
			Метод Rectangle рисует прямоугольник с
			заданными вершинами. Цвет контура
			задается свойством Pen.Color, а цвет
			закраски – свойством Brush.Color.
Timer1	Properties	Interval	Задать значение 100 (одна десятая
(Вкладка System)			секунды)
	Events	OnTimer	В созданной процедуре-заготовке
			Timer1Timer описать переменные c (color),
			up (up), d (down), l (left), r (right). Новые
			значения цветов записываются в
			отдельном массиве NewPoints. Написать
			правила, по которым будут меняться цвета.

6. Сохраните проект, запустите и протестируйте его.

Дата добавления: 2017-02-01