37827

Організація обробки графічної інформації

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

Информатика, кибернетика и программирование

При необхідності за допомогою убудованого редактора EditingChrt компонентові TChrt передаються дані про товщину стиль і колір ліній параметрах шрифту підписів кроках розмітки координатної сітки й інші настроювання. Для уведення вихідних даних використовуються вікна TEdit. З'явиться вікно редагування EditingChrt див. Натискаючи різні кнопки меню познайомитися з іншими можливостями EditingChrt.

Украинкский

2013-09-25

57.5 KB

6 чел.

ЛАБОРАТОРНА РОБОТА №7

Тема роботи: Організація обробки графічної інформації.

Мета роботи: вивчити властивості компонента відображення графічної інформації TChart. Створити програму з використанням TСhart.

Рекомендована література:

  1.  Бобровский С. И. Delphi 7. Учебный курс. - С.Пб. Питер, 2004. – 735 с.
  2.  Я. М. Глинский Інформатика. Алгоритмізація і програмування. Книжка 1. -  Львів, 2003. – 198 с.
  3.  Симонович С.В., Евсеев Г.А. Занимательное программирование:Delphi. – М.: АСТ-Пресс Книга; Издательство «Развитие», 2003. – 368 с.
  4.  Кен Хендерсон. Руководство Разработчика баз данных в Delphi 2. – К. Диалектика, 1997, - 543 с.

Контрольні запитання:

  1.  Які оператори мови Pascal описують процеси з розгалуженням?
  2.  В яких випадках доцільно викоритовувати оператор case?
  3.  Що називають кнопками-перемикачами?
  4.  Які види кнопок-перемикачів Ви знаєте?
  5.  За що відповдає компонент TcheckBox?
  6.  За що відповдає компонент TRadiogroup?
  7.  Що називають оброблювачем подій та як його створюють?

Теоретичні відомості.

Компонент Tchart.

Звичайно результати розрахунків представляються у виді графіків і діаграм. Система DELPHI має могутній пакет стандартних програм висновку на екран і редагування графічної інформації, що реалізується за допомогою візуально відображуваного на формі компонента TСhart (рис.1).

Рис.1

Побудова графіка (діаграми) виконується після обчислення таблиці значень функції y=f(x) на інтервалі [Xmin, Xmax] з даним кроком. Отримана таблиця передається в спеціальний двовимірний масив Seriesk (k-номер графіка) компонента TChart за допомогою методу Add. Компонент TChart здійснює всю роботу по відображенню графіків, переданих в об'єкт Seriesk: будує і розмічає осі, рисує координатну сітку, підписує назва осей і самого графіка, відображає передану таблицю у виді всіляких графіків або діаграм. При необхідності, за допомогою убудованого редактора EditingChart компонентові TChart передаються дані про товщину, стиль і колір ліній, параметрах шрифту підписів, кроках розмітки координатної сітки й інші настроювання. У процесі роботи програми зміна параметрів можливо через звертання до відповідних властивостей компонента TChart. Так, наприклад, властивість TChart.BottomAxis містить значення максимальної межі нижньої осі графіка і при його зміні під час роботи автоматично змінюється зображення графіка (див. нижчеподану програму).

Приклад написання програми.

Завдання: скласти програму, що відображає графіки функцій sin(x) і cos(x) на інтервалі [Xmin..Xmax]. Передбачити можливість зміни розмітки координатних осей, а також кроку побудови таблиці.

Настроювання форми

Панель діалогу програми організується у виді, представленому на рис.6.1.

Для уведення вихідних даних використовуються вікна TEdit. Компонент TChart вводиться у форму шляхом натискання піктограми в меню компонентів Standard.

Робота з компонентом TChart

Рис.2

Для зміни параметрів компонента TChart необхідно двічі клацнути по ньому мишею у вікні форми. З'явиться вікно редагування EditingChart (див. рис.2). Для створення нового об'єкта Series1 клацнути по кнопці Add на сторінці Sеries. У діалоговому вікні, яке з’явилося, TeeChartGalleri вибрати піктограму з написом Line (графік виводиться у виді ліній). Якщо немає необхідності представлення графіка в тривимірному виді, відключити  незалежний перемикач 3D. Після натискання на кнопку ОК з'явиться нова серія з назву Seriesl. Для зміни назви натиснути кнопку Title.

У однорядковому редакторі, що зявилося, ображуваної функції "sin(x)". Аналогічним образом створити об'єкт Series2 для функції cos(x).

Для зміни напису над графіком на сторінці Titles у багаторядковому набрати: “Графіки функцій".

Для розмітки осей вибрати сторінку Axis і навчитися встановлювати параметри настроювання осей. Натискаючи різні кнопки меню, познайомитися з іншими можливостями EditingChart.

Написання програми обробки події створення форми.

У даному місці програми встановлюються початкові межі і крок розмітки координатних осей. Коли властивість Chart1.BottomAxis Automatic має значення False, автоматична установка параметрів осей не працює.

Написання програм обробки подій натискання на кнопки.

Процедура TForm1.Button1Click обробляє натискання кнопки "Установити осі". Процедура TForm1.Bttnon2CIick обробляє натискання кнопки "Побудувати графік". Для додавання координат крапок (X, Y) з таблиці значень у двовимірний масив об'єкта Seriesk використовується процедура

Series1.AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor): Longint;

де AXValue, AYValue - координати крапки по осях X і Y;

AXLabel може приймати значення ‘’;

Acolor задає колір ліній (якщо дорівнює clTeeColor, те приймається колір, визначений при проектуванні форми).

Текст програми має вигляд:

Unit Unit1;

Interface

Uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type

 TForm1 = class(TForm)

   Chart1: TChart;

   Button1: TButton;

   Button2: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   Edit6: TEdit;

   Edit7: TEdit;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Series1: TLineSeries;

   Series2: TLineSeries;

   procedure FormCreate(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

 Xmin, Xmax, Ymin, Ymax, Hx, Hy, h : extended;

Implementation

{$R *.DFM}

Procedure TForm1.FormCreate(Sender: TObject);

begin

 Xmin := 0;

 Xmax := 2 * Pi;

 Ymin := -1;

 Ymax := 1;

 Hx   := pi/2;

 Hy   := 0.5;

 h    := 0.01;

 Edit1.Text := FloatToStr(Xmin);

 Edit2.Text := FloatToStr(Xmax);

 Edit3.Text := FloatToStr(Ymin);

 Edit4.Text := FloatToStr(Ymin);

 Edit5.Text := FloatToStr(Hx);

 Edit6.Text := FloatToStr(Hy);

 Edit7.Text := FloatToStr(h);

 Chart1.BottomAxis.Automatic := False;

 Chart1.BottomAxis.Minimum := Xmin;

 Chart1.BottomAxis.Maximum := Xmax;

 Chart1.LeftAxis.Automatic := False;

 Chart1.LeftAxis.Minimum   := Ymin;

 Chart1.LeftAxis.Maximum   := Ymax;

 Chart1.BottomAxis.Increment := Hx;

 Chart1.LeftAxis.Increment   := Hy;

end;

Procedure TForm1.Button1Click(Sender: TObject);

var

 x, y1, y2 : extended;

begin

 Series1.Clear;

 Series2.Clear;

 Xmin := StrToFloat(Edit1.Text);

 Xmax := StrToFloat(Edit2.Text);

 h := StrToFloat(Edit7.Text);

 x := Xmin;

 Repeat

   y1 := sin(x);

   Series1.AddXY(x, y1, '', clTeeColor);

   y2 := cos(x);

   Series2.AddXY(x, y2, '', clTeeColor);

   x := x + h;

 Until (x > Xmax);

end;

Procedure TForm1.Button2Click(Sender: TObject);

begin

 Halt //Exit

end;

end.

Хід виконання роботи.

Побудуйте графіки функцій для відповідних варіантів з роботи 3. Таблицю даних одержати шляхом зміни параметра X із кроком h. Висновок вихідних даних організувати через вікна TЕdit. Самостійно вибрати зручні параметри настроювання.


 

А также другие работы, которые могут Вас заинтересовать

43204. Разработка эскизного проекта автоматической линии 379.5 KB
  Технические требования к детали Технологичность конструкции детали с точки зрения обработки на автоматической линии. Технические требования к детали К данной детали вал-шестерня применяются следующие технические требования: 1. Масса детали 1.
43205. Разработка канала для комплексной скважинной аппаратуры 1.35 MB
  Основная погрешность канала измерения температуры Дополнительная погрешность канала измерения температуры Основная погрешность канала измерения влажности Дополнительная погрешность влагомера Влажность нефти является одним из важнейших технологических параметров. На разных этапах добычи и подготовки нефти она определяет правильность эксплуатации нефтяного пласта, интенсивность эмульгирования водо-нефтяной смеси в процессе ее перекачки, эффективность процессов деэмульсации и качество товарной нефти, поступающей на переработку. С влагосодержанием тесно связано также содержание солей, которые причиняют немалый вред оборудованию нефтеперерабатывающих заводов.
43206. АНДРЕЙ БИТОВ, ЗАХАР ПРИЛЕПИН, МИХАИЛ ЕЛИЗАРОВ: ХУДОЖЕСТВЕННЫЕ (ЛИТЕРАТУРНЫЕ) ПАРАЛЛЕЛИ 450.5 KB
  Объект нашей дипломной работы – литературный экстремизм всех трёх авторов, находящий выражение как в индивидуальных авторских стилях, так и во взаимодействии поэтических и прозаических элементов, так и в определённой философской системе, выстраиваемой в ходе повествования.
43207. Привод шаровой мельницы 2.03 MB
  Выбираем асинхронный электродвигатель закрытый обдуваемый единой серии АИР мощностью = 15 кВт и синхронной частотой вращения = 3000 об/мин
43208. Проектування привіду до стрічкового конвейєра за схемою та графіком навантаження 1.35 MB
  Закриті зубчасті передачі при коловій швидкості змащуються зануренням їх в мастило, а також за рахунок масляного туману, який утворюється за рахунок великої колової швидкості. Контактне напруження при швидкості дорівнює 475 МПа. За цими даними вибираємо необхідну в’язкість мастила і вибираємо мастило: індустріальне леговане, для зубчастих передач ИРП-150. одноступінчатого редуктора.
43209. Определение основных параметров бульдозера ДЗ-171 на базе трактора Т-170 957.5 KB
  Бульдозеры как навесное оборудование на тракторы, тягачи и другие базовые машины широко распространены, что объясняется простотой их конструкции, высокой производительностью, возможностью их использования в самых разнообразных грунтовых и климатических условиях и относитнльно низкой стоимостью выполненных работ. Применяются они в дорожном, железнодорожном, горнорудном, мелиоративном и ирригационном строительстве. Для большинства современных гусеничных бульдозеров экономически выгодная дальность дальность перемещений в настоящее время не превышает 60-80м, колесных 100-150м.
43210. Проектирование станочного приспособления 1.5 MB
  На основании этой комплексной детали будем разрабатывать и проектировать станочное приспособление. Технические характеристики для САТ630 Наибольший диаметр обрабатываемого изделия мм: над станиной 720 над суппортом 560 Расстояние между центрами мм 1 000 1 500 2 500 Максимальное перемещение суппорта мм: по оси Х 400 по оси Z 1 100 1 600 2 600 по оси Y 55 65 Максимальный вес обрабатываемой детали кг: в патроне 300 в центрах 800 Диаметр отверстия в шпинделе мм 102 166 Пределы частот вращения...
43211. Разработка автоматизированной системы анализа финансового состояния предприятия в условиях неопределенности 1.47 MB
  Основной целью проведения анализа финансового состояния организаций является получение объективной оценки их платежеспособности, финансовой устойчивости, деловой и инвестиционной активности, эффективности деятельности. Для проведения анализа финансового состояния используются следующие группы показателей, характеризующих различные аспекты деятельности организации...
43212. Деталь типа тело вращения – вал-шестерня 2.4 MB
  Изделие – редуктор зубчатый цилиндрический двухступенчатый предназначен для увеличения передаваемого крутящего момента и может быть использован во многих механизмах – лебёдка, станция приводная транспортёров, станция натяжная и др.