55 Лабораторная работа №3

Цель работы: изучение основных компонентов для работы с табличной и графической информацией в среде Delphi.

Последовательность действий при выполнении лабораторной работы:

56 Создать новый проект (команда File|New|Application) и сохранить его файлы в папке <Папка группы>\<Фамилия студента>\ЛР3\ (команда File|Save Project As).

57 Задать название проекта: 'Лабораторная работа №3' (команда Project|Options, закладка Application, параметр Title).

58 Установить свойства главной формы проекта Form1 в Инспекторе Объектов:

Свойство	Обозначение	Значение
Заголовок окна	Caption	Лабораторная работа №3, <Фамилия студента>
Положение на экране (при первом показе)	Position	poDesktopCenter или poScreenCenter

59 Разместить на форме компонент класса TTabbedNotebook (закладка Win 3.1 Палитры Компонентов) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient
Страницы блокнота	Pages	Таблица Диаграмма*

* значения свойства задаются в Notebook Editor.

60 Разместить на странице Таблица компонент класса TStringGrid (закладка Additional) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient
Число колонок	ColCount	3
Число строк	RowCount	11
Цвет фиксированных ячеек	FixedColor	<по усмотрению студента>
Цвет обычных ячеек	Color	<по усмотрению студента>
Возможность изменения содержимого ячеек	Options - goEditing	True

61 Разместить на странице Диаграмма компонент класса TChart (закладка Additional) и установить его свойства:

Свойство	Обозначение	Значение
Выравнивание	Align	alClient

62 Открыть Редактор Свойств Диаграммы (двойной щелчок на компоненте Chart1).

На закладке Chart-Series редактора создать два объекта типа TChartSeries. Для создания объекта типа TChartSeries необходимо нажать на кнопку Add и выбрать вид объекта из галереи. Вид объекта определяется номером варианта (компьютера, на котором работает студент):

Номера вариантов	Вид объекта
1, 6, 11, 16, 21, 26	Line
2, 7, 12, 17, 22, 27	Bar
3, 8, 13, 18, 23, 28	Area
4, 9, 14, 19, 24, 29	Point
5, 10, 15, 20, 25, 30	Fast Line

На закладке Chart-Titles снять пометку с опции Visible.

На закладке Chart-Legend установить у опции Legend Style значение Series Names.

63 Создать обработчик события OnCreate компонента Form1. Для этого необходимо выбрать компонент Form1 из списка компонентов в Инспекторе Объектов, выбрать закладку Events и дважды щелкнуть справа от свойства OnCreate.

В обработчике события TForm1.FormCreate ввести код:

procedure TForm1.FormCreate(Sender: TObject);

var

i: integer;

begin

StringGrid1.Cells[0, 0] := 'x';

StringGrid1.Cells[1, 0] := 'f1(x)';

StringGrid1.Cells[2, 0] := 'f2(x)';

for i := 1 to StringGrid1.RowCount-1 do

begin

StringGrid1.Cells[0, i] := IntToStr(i);

StringGrid1.Cells[1, i] := FloatToStr(<Функция 1>);

StringGrid1.Cells[2, i] := FloatToStr(<Функция 2>);

end;

TabbedNotebook1.PageIndex := 0;

end;

Вместо выражений <Функция 1> и <Функция 2> ввести выражения (зависят от номера варианта):

Номера вариантов	Функция 1	Функция 2
1, 6, 11, 16, 21, 26	i*i	2*i
2, 7, 12, 17, 22, 27	i*i*i	-2*i*i+4
3, 8, 13, 18, 23, 28	10*sin(i)	5*cos(i)
4, 9, 14, 19, 24, 29	100*random	100*random
5, 10, 15, 20, 25, 30	1/i	ln(i)

64 Создать обработчик события OnChange компонента TabbedNotebook1. В обработчике события TForm1.TabbedNotebook1Change ввести код:

procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;

var AllowChange: Boolean);

var

i: integer;

begin

if (NewTab = 1) then

begin

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

for i := 1 to StringGrid1.RowCount-1 do

begin

try

Chart1.Series[0].AddXY(i,

StrToFloat(StringGrid1.Cells[1, i]));

except

end;

try

Chart1.Series[1].AddXY(i,

StrToFloat(StringGrid1.Cells[2, i]));

except

end;

end;

end;

end;

65 Сохранить изменения проекта (команда File|Save All).

66 Запустить проект на выполнение (клавиша F9).