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

Тема: Графические возможности Delphi. (6 часов)

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

 

Задание 1.

Создать проект, позволяющий просматривать и редактировать рисунки, а также просматривать простейшие геометрические фигуры

Примерный вид формы:

Выноска 3: Shape1Выноска 3: OpenPictureDialog1Выноска 3: SavePictureDialog1Выноска 3: Image1Выноска 3: MainMenu1image

image 

 


Выполнение задания:

1. Разместите на форме указанные компоненты.

2. Установите следующие свойства компонентов

Компонент

Свойство

Значение

ComboBox1

Items

квадрат

круг

Image1

AutoSuze

Stretch

true

false

 

3. Создайте главное меню формы

image

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

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. Сохраните проект и проверьте его работу.

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

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

1)                      добавьте в список ComboBox1 новые пункты: прямоугольник и эллипс и предусмотрите возможность изображения этих фигур;

2)                      запрограммируйте закраску фигуры  Shape1 цветом, выбранном в компоненте ColorBox1;

3)                      добавьте на форму две кнопки Button1 и  Button2. При щелчке мышью по Button1 размеры компонента Shape1 увеличиваются вдвое, а при щелчке по Button2 – уменьшаются вдвое.

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

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

1)                      тему лабораторной работы;

2)                      условие задачи;

3)                      листинг программы;

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

Компонент Chart

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

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

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

2.      

Выноска 3: Label2Выноска 3: Chart1Выноска 3: Edit1Выноска 3: ColorDialog1Выноска 3: Button1Выноска 3: StringGrid1Выноска 3: Edit1Выноска 3: Label1image

 

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

Компонент

Свойство

Значение

Label1

Caption

Пролив

Label2

Caption

Длина

Edit1

Text

 

Edit2

Text

 

Button1

Caption

Ввод

SrtingGrid1

ColCount

RowCount

FixedCols

2

10

0

 

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

imageimage

image 


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

imageimage

 

 

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. Создайте форму следующего вида

Выноска 3: Chart1Выноска 3: CheckBox1Выноска 3: Button1image

 

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

Компонент

Свойство

Значение

CheckBox1

Caption

3D

 

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

imageimageimage

 

 

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;

 


Ұқсас жұмыстар

Информатикадан зертханалық және практикалық жұмыстарды өткізу әдістемесі
Биотехнологияда қолданылатын биологиялық нысандар пәнінің жұмыс бағдарламасы
MS Word көмегімен медициналық құжаттарды дайындау барысында мәтінмен жұмыс
Иммунитеттің әлсіреу себептері
ҮЙДЕ ОҚЫТЫЛАТЫН БАЛАЛАРДЫ ЖАЛПЫ БІЛІМ БЕРУ МЕКТЕБІНІҢ ОҚУ БАҒДАРЛАМАЛАРЫМЕН ОҚЫТУ
Қоршаған ортаға антропогендік факторлардың әсері
Информатикадан практикалық жұмыстар
Плеврит - плевраның қабыну экссудатының плевралық қуысында жиналуымен қабынуы
Жалпы металлургия пәнінен дәрістер жинағы
Ірі қара малының гигиенасы