Графика. Простые геометрические построения

Страницы работы

Фрагмент текста работы

управления значениями, по которым строится диаграмма, часто исполь­зуются Методы Add, Delete или  Clear.

Функция Add (Const AValue: Double; Const ALabel: String; AColor:

TColor) : Longint добавляет к диаграмме значение, указанное параметром AValue. Параметры ALabel и AColor содержат название значения и цвет, используемый при выводе, соответственно. В качестве результата функция возвращает номер значения в массиве значений диаграммы. Кроме Add, су­ществует несколько методов, также добавляющих к диаграмме значения.

Процедура Delete (Valuelndex : Longint) удаляет значение с номером, указанным параметром Valuelndex. Для удаления всех значений удобно ис­пользовать процедуру clear.

Задача 8.1.13. Вывод графика функции y=x3-x2+x с помощью компонента Chart Delphi.

1. Создайте новое приложение.


2.Поместим на Form1  компоненты указанные  в окне

                                   Макет окна решения задачи

3.  Выделим объект  Form1  (щелкнем  в окне формы) и для свойства Caption(заголовок) установим значение "Построение графиков и диаграмм".

4. Для кнопки Button1 установим значение  свойства Caption Вычислить,  кнопки Button2  - График,  для кнопки  Button3 – Очистить, а для кнопки

Button 4 -  Закрыть.

5. Для компонента Memo1(многострочный редактор) выберите свойство Lines и щелкнем по кнопке с тремя точками. В появившемся окне String list editor    удалите строку  'Memo1'. Нажмем ОК.

6. Выделите объект TChart,  нажмите в поле объекта правую кнопку и


выберем строку Edit Chart. Откроется окно редактирования Editing Chart.

В данном окне щелкните по кнопке  Add для выбора нужного типа диаграммы.


                                       Стандартные  диаграммы


                                         Трехмерные диаграммы   

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

Ниже приведены окно решения задачи и полный текст программы приложения.

7. Сохраните проект

8. Выполните проект


                                              Окно решения задачи 8.1.13.

Исполь­зуемые при построении графика значения вычисляются или вводятся вручную построчно в многострочный редактор Memo1, а после нажатия на кнопку График  отображаются. 

При нажатии кнопки Вычислить вычисляются значения функции y= x3-x2+x и заносятся в компонент Memo1.

При нажатии кнопки  График значения из многостроч­ного редактора Memo1 заносятся в компонент Chart1, отображающий график. Удаляется график нажатием кнопки Очистить.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls, Series;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Chart1: TChart;

    Button3: TButton;

    Button4: TButton;

    Series1: TLineSeries;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  x,y:real;

  n:integer;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

while  x<=10 do

         begin

         y:=x*x*x-sqr(x)+x;

         memo1.Lines.Add(floattostr(y));

         x:=x+1;

         end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

   n:integer;

begin

     {Chart1.Title.Text.Add('График') ;}

     for n:=1 to Memo1.Lines.Count-1 do

     Chart1.Series[0].Add(strtofloat(Memo1.Lines[n]),inttostr(n),clRed);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

     Chart1.Title.Text.Clear;

     Chart1.Series[0].Clear;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

close;

end;

end.

I Использование индикаторов

; Индикаторы представляют собой диаграммы простейшего вида и предназна­чены для отображения в текстовом и графическом виде, например, хода вы­полнения длительных операций. Такими операциями, например, могут быть

\ форматирование дискеты или печать больших документов. В Delphi индика­торы представлены компонентами progressBar и Gauge.

1 Индикатор хода работ ProgressBar расположен на странице Win32 палитры I компонентов и представляет собой полосу (рис. 10.11), показывающую ход : выполнения продолжительной операции. По мере выполнения операции эта ; полоса заполняется слева направо цветными полями. Длина цветных полей

соответствует тому, какой процент работы уже выполнен. Стиль компонента ProgressBar соответствует современному интерфейсу Windows.

(Замечание^

Компонент ProgressBar не имеет свойств, позволяющих управлять цветами фона и полей индикации. Цвет фона индикатора устанавливается равным цве­ту компонента-контейнера, на котором индикатор размещается. Графическая полоса окрашена в синий цвет.

К основным свойствам компонента ProgressBar относятся следующие свойства типа integer:

О Min и мах задают, соответственно, минимальное и максимальное значе­ния диапазона индикатора. По умолчанию значение свойства Min равно о, а значение свойства мах равно юо

П position определяет позицию индикатора, т. е. текущий объем выпол­ненной операции. Объем выполненной операции рассчитывается относи­тельно диапазона, заданного значениями свойств Min и мах. Например, если значение свойства Min равно о и значение свойства Min равно

Похожие материалы

Информация о работе