У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 22 Графические компоненты План работы- Проект ldquo;Декартова система координатr

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 4.4.2025

Лабораторная работа №22

Графические компоненты

План работы:

  1.  Проект Декартова система координат

Разработать проект, рисующий декартову систему координат. На этапе выполнения форма должна иметь следующий вид:

  1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Декартова система координат”;
  2. Разместите на форме со страницы System компонент PaintBox. Данный компонент имеет канву – пространство для создания графических объектов – и позволяет рисовать на ней, а также облегчает располагать рисунки в области формы.
  3. Разместите на форме кнопку “Оси координат”, в событии OnCreate этой кнопки реализуйте рисование декартовой системы координат на компоненте PaintBox, подпись осей и начала системы координат, используя следующие методы класса TCanvas:
  4.  MoveTo(x, y) – перемещение в точку с указанными координатами;
  5.  LineTo(x', y') – рисование линии от текущей точки (x, y) до следующей точки с координатами (x', y');
  6.  TextOut(x, y, ‘текст’) – вывод текста в указанную позицию (x, y);

Пример рисования оси y:

PaintBox1.Canvas.MoveTo(round(PaintBox1.Width/2), 0);

PaintBox1.Canvas.LineTo(round(PaintBox1.Width/2),

                                           PaintBox1.Height);

Для изменения цвета осей и заливки использовать свойства Pen и Brush класса TCanvas.

  1. Разместите на форме кнопку “Мигающая точка”. В обработке события OnClick  этой кнопки установить символ мигающей 10 раз точки в первой четверти декартовой системы координат следующим образом:

for i := 1 to 10 do

 begin

{Используем свойство Pixels для установки точки с     определенными координатами и определенным цветом, метод     random используем для случайного выбора цвета}

  PaintBox1.Canvas.Pixels[X, Y] := random(16077100);

{Устанавливаем временную задержку}

  sleep(500);

{“Гасим” точку}

  PaintBox1.Canvas.Pixels[X, Y] := PaintBox1.Color;

  sleep(500);

 end;  

  1. Поместите на форму компонент RadioGroup, оформите его внешний вид в соответствии с требуемым.
  2. Измените стиль линий при рисовании декартовой системы координат, используя метод Style класса TPen, для этого процедуру обработки события OnClick по кнопке “Оси координат” дополнить следующим фрагментом:

case RadioGroup1.ItemIndex of

   0: PaintBox1.Canvas.Pen.Style := psSolid;

   1: PaintBox1.Canvas.Pen.Style := psDash;

   2: PaintBox1.Canvas.Pen.Style := psDot;

   3: PaintBox1.Canvas.Pen.Style := psDashDot;

end;  

  1. Проверьте работу проекта.
  2.  Проект “Летающая тарелка”

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

  1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Летающая тарелка”;
  2. Разместите на форме компонент Image, кнопки “Звездное небо”, “Тарелка”, “Полет”;
  3. В обработке события OnClick кнопки “Звездное небо” нарисуйте на компоненте Image аналог звездного неба по следующим этапам:
  4. Установить темно-синий цвет заливки для компонента Image;
  5. Нарисовать по всему параметру компонента Image прямоугольник методом Rectangle;
  6. Нарисовать 400 точек, координаты и цвет которых выбираются случайным образом;
  7. В обработке события OnClick кнопки “Тарелка” нарисуйте в верхнем левом углу компонента Image аналог летающей тарелки по следующим этапам:
  8. Установить серебристый цвет заливки компонента Image;
  9. Установить черный цвет пера компонента Image;
  10. Нарисовать эллипс с помощью метода Ellipse класса TCanvas:

Ellipse(x1, y1, x2, y2) – рисует эллипс, где x1, y1, x2, y2 – точки, определяющие прямоугольник, описывающий эллипс;

  1. Нарисовать дугу с помощью метода Arc класса TCanvas:

Arc(x1, y1, x2, y2, x3, y3, x4, y4) – рисует дугу, где x1, y1, x2, y2 – точки, определяющие прямоугольник, описывающий эллипс, x3, y3 – точка начала дуги, x4, y4 – точка конца дуги, дуга рисуется против часовой стрелки;

  1. Установить красный цвет заливки компонента Image;
  2. Левый “глаз” (прямоугольник) нарисовать с помощью метода Rectangle класса Canvas;
  3. Средний “глаз” нарисовать с помощью метода Rectangle и залить методом FloodFill желтым цветом;
  4. Нарисовать правый “глаз” зеленым цветом;
  5. Нарисовать две серебристые антенны с фиолетовым и голубым шариком;
  6. Для организации перемещения тарелки из верхнего левого угла в нижний правый угол компонента Image выполнить следующее:
  7. Скопировать все операторы процедуры обработки события OnClick по кнопке “Тарелка” в отдельную процедуру Polet, в которой описать 2 входных параметра для задания смещения по оси x и y соответственно:

procedure Polet(x, y: integer);

  1. В каждом операторе процедуры Polet, содержащем координаты, прибавить к аргументам значения x или y соответственно;
  2. В обработке события OnClick кнопки “Полет” организовать перемещение тарелки из верхнего левого угла в нижний правый угол компонента Image следующим образом:

{dx, dy - локальные переменные процедуры, рассматриваемой выше, содержащие смещения тарелки по оси x и y соответственно}

 dx := 0;

 dy := 0;

{пока dx меньше определенной величины (такой, чтобы тарелка не вылетала за рамки компонента Image), выполнять следующие действия}

 while dx <  do

 begin

{рисуем звездное небо}

   Button1Click(Sender);

{рисуем тарелку, учитывая смещение}

   Polet(dx, dy);

{обновляем содержимое компонента Image}

   Image1.Refresh;

{уделичиваем смещение по x и y соответственно}

   dx := dx + 10;

   dy := dy + 10;

{делаем задержку}

   sleep(100);

 end;

  1. Проверьте работу проекта.




1. ов приобрет компанией за ден
2. Задачи службы маркетинга в процессе организации создания нового товара
3. Сталинградская битва
4. плансделай сам Консультации по составлению Бизнесплана промышленного предприятия Инвестиц
5. За особые успехи в общественной деятельности
6. ракетных поездов прототипов многоступенчатых ракет
7.  Бюджетный федерализм его содержание 1
8. дівку чорноброву
9. ЛАБОРАТОРНАЯ РАБОТА 2.2
10. Еврооблигации в России