Программирование (стр. 16 )

procedure TForm1.N2Click(Sender: TObject);

begin

  if OpenPictureDialog1.Execute then Image1.Picture. LoadFromFile(OpenPictureDialog1.FileName);

end;

5. Запрограммируйте выбор пункта меню сохранить:

procedure TForm1.N3Click(Sender: TObject);

begin

if SavePictureDialog1.Execute then Image1.Picture. SaveToFile(SavePictureDialog1.FileName);

end;

6. Запрограммируйте выбор цвета для рисования с помощью компонента ColorBox1:

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

Image1.Canvas. Pen. Color:=ColorBox1.Selected;

end;

7. Запрограммируйте установку графического указателя при нажатии клавиши мыши в пределах компонента Image1:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

  Image1.Canvas. MoveTo(X, Y);

end;

8. Запрограммируйте рисование линии при нажатии левой клавиши мыши и ее перемещении по компоненту Image1:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

  if ssLeft in Shift then Image1.Canvas. LineTo(X, Y);

end;

9. Запрограммируйте выбор простой геометрической фигуры с помощью компонента ComboBox1:

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case ComboBox1.ItemIndex of

  0:  Shape1.Shape:=stSquare;

  1:  Shape1.Shape:=stCircle;

end;

end;

10. Сохраните проект и проверьте его работу.

Задание для самостоятельной работы

Доработайте проект следующим образом:

добавьте в список ComboBox1 новые пункты: прямоугольник и эллипс и предусмотрите возможность изображения этих фигур; запрограммируйте закраску фигуры  Shape1 цветом, выбранном в компоненте ColorBox1; добавьте на форму две кнопки Button1 и  Button2. При щелчке мышью по Button1 размеры компонента Shape1 увеличиваются вдвое, а при щелчке по Button2 – уменьшаются вдвое.

Форма представления отчета:

       Отчет о выполненной самостоятельной работе должен содержать:

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

Компонент Chart

Компонент Chart позволяет строить графики, диаграммы различных видов. Компонент Chart расположен на палитре Additional.

Круговая диаграмма

Создайте форму следующего вида

2. Присвойте компонентам следующие значения

Компонент	Свойство	Значение
Label1	Caption	Пролив
Label2	Caption	Длина
Edit1	Text
Edit2	Text
Button1	Caption	Ввод
SrtingGrid1	ColCount RowCount FixedCols	2 10 0

3. Дважды щелкните по объекту Chart и в появившемся  окне добавьте элемент Series (Add) и выберите тип Pie

4. Выделите объект Form1 в диспетчере объектов и перейдите на закладку Events в Object Inspector и дважды щелкните в поле справа от события OnCreate

5. Запрограммируйте событие создания формы.

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Пролив';

StringGrid1.Cells[1,0]:='Длина';

Chart1.Title. Text. Clear;

Chart1.Title. Text. Add('Диаграмма');

Series1.Clear;

Series1.Marks. Visible:=false;

end;

6. Запрограммируйте событие onClick для button1

procedure TForm1.Button1Click(Sender: TObject);

var A, A1:integer;

begin

A:=Edit1.tag;

inc(A);

Edit1.tag:=A;

StringGrid1.Cells[0,A]:=Edit1.Text;

StringGrid1.Cells[1,A]:=Edit2.Text;

A1:=StrToInt(Edit2.Text);

if ColorDialog1.Execute then Series1.Add(A1,Edit1.text, ColorDialog1.Color)

else Series1.Add(A1,Edit1.text, clYellow);

end;

7. Запустите программу на исполнение. Помните в поле Edit2 нужно вводить только числа

Построение графиков функций

1. Создайте форму следующего вида

2. Присвойте компонентам следующие значения

Компонент	Свойство	Значение
CheckBox1	Caption	3D

3. Дважды щелкните по объекту Chart и в появившемся  окне добавьте элемент Series (Add) и выберите тип Line

4. Запрограммируйте событие onClick для button1

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

Series1.Clear;

Chart1.View3D:=false;

Series1.Title:='Sin';

for i := 0 to 100 do

begin

  Series1.AddXY(0.02 * Pi * i, sin(0.02 * Pi * i), '', clRed);

end;

end;

Задания для самостоятельной работы

1. Добавьте еще один элемент Series и постройте график функции Sin, программа должна выглядеть так

2. Настройте вывод графиков в зависимости от выключателя 3D в двухмерном или трехмерном варианте. Изменения должны также происходить и при включении и выключении 3D/

Форма представления отчета:

       Отчет о выполненной самостоятельной работе должен содержать:

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

Построение графиков функций в декартовых координатах

Пример 1.

Создать в среде DELPHI проект, позволяющий построить график функции 

у = х2 - 2,  x∈[-10 ; 10].

Для перехода от естественных координат к экранным воспользуемся формулами: 

х1 = Ox + Мx*х.

у1 = Oy - Мy*у,

где  х, у -  естественные координаты,  х1 , у1 -  экранные координаты, (Ox, Oy) – экранная точка, выбранная в качестве начала координат, Mx, My - масштаб, т. е. длина единичных отрезков в пикселях.

Разработка проекта:

1. Разместить на форме компоненты PaintBox1, Label1, Label2, Edit1, Edit2, Button1, Button2 следующим образом:

2. Создать процедуру для построения графика функции (двойной щелчок мышкой по Button1)

procedure TForm1.Button1Click(Sender: TObject);

var

  x1, y1, ox, oy, mx, my, i : integer;

  x, y: real;

begin

  paintbox1.Canvas. Pen. Color:=clblue;  {устанавливаем синий цвет пера}

  ox:=paintbox1.Width div 2;  {начало координат размещаем в центре

  oy:=paintbox1.Height div 2;  компонента paintbox1}

  mx:=StrToInt(Edit1.Text);  {масштаб по оси x}

  my:=StrToInt(Edit2.Text);  {масштаб по оси x}

  paintbox1.Canvas. moveto(0, oy);  {строим оси координат}

  paintbox1.Canvas. LineTo(640, oy);

  paintbox1.Canvas. moveto(ox, 0);

  paintbox1.Canvas. LineTo(ox, 480);

  for  i:= -10  to  10 do  begin  {разметка оси ox}

  x1:=ox+mx*i;

  paintbox1.Canvas. moveto(trunc(x1), oy-5);

  paintbox1.Canvas. LineTo(trunc(x1), oy+5);

end;

for  i:= -10  to  10 do  begin  { разметка оси oy }

  y1:=oy-my*i;

  paintbox1.Canvas. moveto(ox-5, trunc(y1));

  paintbox1.Canvas. LineTo(ox+5, trunc(y1));

end;

  paintbox1.Canvas. Pen. Color:=clred;  {устанавливаем красный цвет пера}

  x:= -10;  y:=sqr(x)-2;  {вычисляем координаты начальной точки графика}

  x1:= trunc(ox+mx*x); y1:= trunc(oy-my*y);  {перевод в экранные координаты}

  paintbox1.Canvas. moveto(x1, y1);  {перемещаем перо в эту  точку}

  while  x<=10  do  { построение графика функции}

  begin

  y:=sqr(x)-2;  x1:= trunc(ox+mx*x); y1:= trunc(oy-my*y); 

  paintbox1.Canvas. LineTo(x1, y1);

  x:=x+0.1;

  end;

end;

3. Создать процедуру для очистки изображения графика (двойной щелчок мышкой по Button2)

procedure TForm1.Button2Click(Sender: TObject);

begin

  paintbox1.Canvas. Pen. Color:=clblack;

  paintbox1.Canvas. Brush. Color:=clwhite;

  paintbox1.Canvas. Rectangle(0,0,paintbox1.Width, paintbox1.Height);

end;

4. Запустить проект на исполнение и проверить его работу, задавая различный масштаб.

Задание для самостоятельной работы

Доработать данный проект следующим образом:

а) разместить на форме компонент RadioGroup, позволяющий выбирать для построения графика одну из функций  у = х2 – 2, y=sin x,  y = sin(ex). y= ecos x ;

б) разместить на форме кнопку Выход, при щелчке по которой проект завершает работу.

Форма представления отчета:

       Отчет о выполненной самостоятельной работе должен содержать:

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

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

Тема: Мультимедиа возможности Delphi.

Цель: Отработка практических навыков  создания DELPHI-приложения с использованием компонентов  TImage, TChart, TMediaPlayer.

Средства создания мультимедийных приложений

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