Программирование delphi. Использование компьютерных технологий в медицине

• Название: Использование компьютерных технологий в медицине
• Анкор: Программирование delphi.doc
• Дата: 28.01.2017
• Размер: 2.83 Mb.
• Имя файла: Программирование delphi.doc
• Тип: Документы; #795
• страница: 11 из 16

5.2. Создание программы «Графические примитивы»

Задача. Написать программу, формирующую графическое изображение, используя графические примитивы.

О
кно программы представлено на рис. 5.4.

Процесс создания программы происходит по следующему алгоритму:

1. 
   Запустить Delphi.
   
2. 
   Сохранить проект («work5.dpr», «main.pas»).
   
3. 
   Настроить вид экрана:
   

• 
  настроить размеры формы: ширину (свойство Width) установить в 600, а высоту (свойство Height) – в 370;
  
• 
  форма содержит всего 2 элемента: видимый элемент – кнопка (Button) и элемент таймер (Timer) для создания мультфильма. Все остальные элементы создаются программно: изменить заголовок окна: Графические примитивы (Caption);
  
• 
  поместить кнопку для программирования выхода (Button, Standard, ): назвать кнопку BQuit (Name);
  
• 
  поместить на форму элемент таймера (Timer, System, ); установить время обращения к этому элементу – 1 раз в секунду (1000 мс); так как значения таймера задаются в миллисекундах, убедиться, что значение Interval равно 1000.
  

4. 
   Форма настроена!
   
5. 
   Запрограммировать выход из программы: команда «Close» при нажатии на кнопку BQuit.
   
6. 
   Чтобы осуществить прорисовку изображения сразу при запуске программы, настроить событие прорисовки окна – onPaint (щелкнуть на форму (Form1), выбрать свойство onPaint, вкладка Events в Инспекторе объектов), щелкнуть на этом событии.
   
7. 
   Запрограммировать правую часть окна на рис. 5.4:
   

• 
  назначить область рисования Canvas – набрать после begin текст:
  

with canvas do //Обращаемся к свойствам холста

begin

{Область рисования}

end;

• 
  для вывода текста настроить цвет фона и свойства шрифта (набрать текст после строки {Область рисования}):
  

Brush.Color := clBtnFace; //Цвет фона – цвет кнопки в стандарте Windows

with Font do //Обращаемся к свойствам шрифта

begin

Name := 'Times New Roman'; //Имяшрифта

Size := 12; //Размершрифта

Style := [fsBold,fsItalic]; //Стиль – жирныйкурсив

end;

{Настройка шрифта закончена}

• 
  набрать текст программирования примитивов:
  

TextOut(410,22,'(TextOut)'); //Выводтекста

Pen.Color := clBlack; //Цвет карандаша – черный

Brush.Color := clWhite; //Цвет кисти – белый

Pixels[350,80] := clRed; //Выводточки

Brush.Color := clBtnFace;

{Смена цвета на цвет фона (цвет кнопки в стандарте Windows)

для вывода текста-подсказки}

TextOut(335,85,'(Pixels)');

Brush.Color := clWhite;

MoveTo(400,80); //Переместитькурсор

LineTo(450,80); //Соединить с точкой – получится линия

Brush.Color := clBtnFace;

TextOut(405,85,'(MoveTo)');

TextOut(405,100,'(LineTo)');

Brush.Color := clWhite;

PolyLine([Point(480,100),Point(505,50),Point(530,100)]); //Ломанаякривая

Brush.Color := clBtnFace;

TextOut(480,105,'(PolyLine)');

Brush.Color := clWhite;

Rectangle(325,125,375,175); //Прямоугольник

Brush.Color := clBtnFace;

TextOut(325,180,'(Rectangle)');

Brush.Color := clWhite;

RoundRect(400,125,455,175,20,20); //Прямоугольниксзакругленнымиуглами

Brush.Color := clBtnFace;

TextOut(400,180,'(RoundRect)');

Brush.Color := clWhite;

PolyGon([Point(480,175),Point(505,125),Point(530,175)]); //Многогранник

Brush.Color := clBtnFace;

TextOut(480,180,'(PolyGon)');

Brush.Color := clWhite;

Ellipse(325,210,375,260); //Эллипс

Brush.Color := clBtnFace;

TextOut(335,270,'(Ellipse)');

Brush.Color := clWhite;

Arc(400,210,455,260,427,210,455,235); //Дуга

Brush.Color := clBtnFace;

TextOut(420,270,'(Arc)');

Brush.Color := clWhite;

Pie(480,210,530,260,530,234,504,210); //Сектор

Brush.Color := clBtnFace;

TextOut(500,250,'(Pie)');

• 
  для демонстрации мультипликации запрограммировать перемещение глаз у кота «влево – вправо». Добавить начальную прорисовку глаз:
  

Pen.Color := clWhite; //Цвет глаз – белый – карандаш

Brush.Color := clWhite; //Цвет глаз – белый – кисть

//Таким образом, рисуем и закрашиваем одним цветом

Ellipse(73,105,113,147); // Левый глаз

Ellipse(138,105,178,147); // Правый глаз

Pen.Color := clGreen; //Цвет зрачков – зеленый

Brush.Color := clGreen; //Цвет зрачков – зеленый

Pie(85,115,110,145,90,135,60,145); // Левый зрачок

Pie(150,115,175,145,155,135,75,145); // Правый зрачок

end; // Конец рисования на холсте

Замечание. При программировании сложного изображения следует располагать элементы послойно – сначала те, что расположены на нижнем фоне, а затем те, что выше.

8. 
   Запрограммировать изменение положения зрачков:
   

• 
  необходимо ввести глобальную переменную, которая будет отвечать за сторону, куда смотрят глаза: в программе найти строчку implementation (необходима глобальная переменная) и ввести в разделе переменных переменную B логического типа:
  

var

B : Boolean;

• 
  вернуться на изображение формы (нажать <F12>) и выбрать событие onActivate у формы, щелкнуть на нем и ввести следующий текст:
  

B := true; // Начальное значение переменной B

• 
  снова вернуться на изображение формы, выбрать объект Timer и запрограммировать его свойство onTimer – перерисовка, набрать следующий текст:
  

with Canvas do //Снова обращаемся к холсту

begin

If B then //Если глаза смотрят вправо

begin

//Закрашиваем правые зрачки цветом глаза ­– белым

Pen.Color := clWhite;

Brush.Color := clWhite;

Pie(85,115,110,145,90,135,60,145); // Левый зрачок

Pie(150,115,175,145,155,135,75,145); // Правый зрачок

// Цвет зрачка – зеленый

Pen.Color := clGreen;

Brush.Color := clGreen;

//Рисуем левые зрачки

Pie(75,115,100,145,80,135,50,145); // Левый зрачок

Pie(140,115,165,145,145,135,65,145); // Правый зрачок

B := False; //Глаза смотрят влево

end

else

begin

//Аналогично, если глаза смотрели влево

//Закраска фоном

Pen.Color := clWhite;

Brush.Color := clWhite;

Pie(75,115,100,145,80,135,50,145); // Левыйзрачок

Pie(140,115,165,145,145,135,65,145); // Правый зрачок

//Рисуем правые зрачки

Pen.Color := clGreen;

Brush.Color := clGreen;

Pie(85,115,110,145,90,135,60,145); // Левый зрачок

Pie(150,115,175,145,155,135,75,145); // Правый зрачок

B := True; //Глаза смотрят вправо

end;

end;

• 
  программа завершена!
  

9. 
   Запустить программу – <F9>.
   

Индивидуальное задание

Придумать изображение средней сложности (не меньше 20 команд рисования) и запрограммировать его.

Итоги

В пятой теме были изучены: графические примитивы; основы печати графического изображения; способ программирования мультипликации; диалог настройки принтера; диалог настройки печати.

При создании демонстрационной программы получены навыки в работе: с визуальным компонентом «таймер»; в построении сложного изображения.