-
Интерфейс программы
Для реализации поставленой задачи необходим компонент для ввода данных, чтобы наглядно увидеть изменение ценового ряда будетиспользовано графическое отображение полученных данных. Результаты обработки массива будут отображены на отдельной форме.
Программа
состоит из двух форм. Рассмотрим главную
форму программы. На главной форме
распологаются таблица данных, график,
кнопки управления и главное меню.
Рис.1
Главное меню представляет собой набор следующих элементов:
строка меню — основная часть меню, которая постоянно находится в окне приложения (реже, скрывается и появляется при определённых действиях пользователя). Данная строка является так называемым главным меню окна или меню верхнего уровня всплывающее меню или подменю. Выбор элемента главного меню обычно приводит к вызову появляющегося под главным подменю, которое в свою очередь может содержать подменю;
пункт меню — отдельные опции приложения. Строка меню состоит из пунктов файл,массив и график.
Внесение данных в программе осуществляется с помощью таблицы, для её отображения используется компонент StringGrid
Рис.2
StringGrid - компонент для отображения различных данных в табличной форме. Как следует из названия, ячейки компонента StringGrid в Delphi могут содержать данные, имеющие тип String, а также отображать графику.
Таблица StringGrid состоит из выделенных серым FixedCols и FixedRows - зафиксированных ячеек-заголовков, и обычных, белых ячеек. Содержимое Fixed ячеек недоступно редактированию, и меняется только программно. За возможность редактирования обычных ячеек отвечает одно из значений свойства Компонент StringGrid имеет возможность адресации каждой отдельной ячейки по номеру столбца и строки. Содержимое ячейки (i, j), где где i - номер столбца, StringGrid1.Cells[i, j].
Графичесое
отображение данных осуществляется
посредством компонента Chart,
расположенного
в нижней части главной формы.
Рис.3
Chart-этот компонент позволяет строить различные диаграммы и графики.
Компонент Chart является контейнером объектов Series типа TChartSeries — серий данных, характеризующихся различными стилями отображения. Каждый компонент может включать несколько серий. Если вы хотите отображать график, то каждая серия будет соответствовать одной кривой на графике. Если вы хотите отображать диаграммы, то для некоторых видов диаграмм можно наложить друг на друга несколько различных серий, для других (например, для круговых диаграмм) это, вероятно, будет выглядеть некрасиво. Однако, и в этом случае вы можете задать для одного компонента Chart несколько серий одинаковых данных с разным типом диаграммы. Тогда, делая в каждый момент времени активной одну из них, вы можете предоставить пользователю выбор типа диаграммы, отображающей интересующие его данные.
Выбор периода для построения графика осуществляется с помощью компонентов RadioButton расположенных справа от таблицы. При этом выполняется код приведенный ниже:
var l,n:Integer;
m:string;
begin
lnsrsSeries1.Clear;
for n:=1 to 12 do
begin
m:=(strngrd1.cells[n,2]);
l:=StrToInt(m);
lnsrsSeries1.AddXY(n,l,'',clRed);
end;
end;
Также на форме расположены кнопки , выполненые спомощью компонента Button. Все кнопки продублированы в компаненте главного меню.
Кнопка ”Ввод в ручную” предназначена для ввода вручную цифровых данных в таблицу. При нажатии её компонент strngrd1 становится активным, что позволяет начать ручной ввод значений в таблицу.
begin
strngrd1.Enabled:=True;
btn4.Enabled:=True;
end;
Кнопка “Очистить” предназначена для удаления данных из таблицы. При этом кнопки выбора периода и расчёта статистических данных становятся неактивными.
var
i,j:Integer;
begin
for i:=1 to 12 do
for j:=1 to 4 do
strngrd1.Cells[i,j]:=' ';
rb1.Enabled:=False;
rb2.Enabled:=False;
rb3.Enabled:=False;
btn4.Enabled:=False;
end;
Кнопка ”Автозаполнение” предназначена для заполнеия таблицы произвольными числовыми данными. Ниже предоставлен её код:
begin
rb1.Enabled:=True;
rb2.Enabled:=True;
rb3.Enabled:=True;
btn4.Enabled:=True;
strngrd1.Enabled:=True;
for n:=1 to 12 do
for m:=1 to 4 do
strngrd1.Cells[n,m]:=IntToStr(random(l));
end;
Кнопка “очистить график” позволяет очистить данные с графика.
begin
lnsrsSeries1.Clear;
end;
Кнопка “Cтатистика” используется для получения статистики по информации введённой в таблицу, для обработки данных использовался линейный двумерный массив. Рассмотрим более подробно процесс обработки линейного массива.