Delphi-6 - среда разработки программного обеспечения для систем промышленной автоматизации. Букреев В.Г - 90 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

Form1.Chart1.SeriesList[0].Clear;
Form1.Chart1.SeriesList[1].Clear;
Form1.Chart2.SeriesList[0].Clear;
For i:=0 to SpinEdit1.Value-1 do
begin
// Считывание данных из 3-го столбца таблицы в массив
InputQZ.Y.
InputQZ.Y[i]:=StrToFloat(StringGrid1.Cells[3,i+1]);
// Считывание данных из 4-го столбца таблицы в массив
InputQZ.X.
InputQZ.X[i]:=StrToFloat(StringGrid1.Cells[4,i+1]);
// Определение соответствующих точек на осях X и Y.
InputXY.X[i]:=DefineXY(InputQZ.X[i]);
InputXY.Y[i]:=InputXY.X[i];
// Заносим данные (координата X) в первый столбец таблицы
StringGrid1.Cells[1,i+1]:=FloatToStr(InputXY.X[i]);
// Заносим данные (координата Y) во второй столбец таблицы
StringGrid1.Cells[2,i+1]:=FloatToStr(InputXY.Y[i]);
// Ввод точек дискретно заданной функции в компонент Chart1
// и вывод их на рабочее поле графика.
Form1.Chart1.SeriesList[0].AddXY(InputQZ.X[i],InputQZ.Y[i],'
',clred);
end;
// Считать данные (число интервалов интерполяции) из компо-
нента
// SpinEdit3 в переменную AmountIntervals.
AmountIntervals:=SpinEdit3.Value;
// FullTime – переменная, отвечающая за полное время расчета
// при анализе быстродействия
FullTime:=0;
// Проверка - установлен ли анализ быстродействия.
// Если да, то переменной k присвоить значение количества
// циклов (повторного) пересчета. В противном случае количе-
ство
// пересчетов равно 1.
if CheckBox1.Checked then k:=SpinEdit2.Value Else k:=1;
// Установить максимальное значение компонента Progressbar1
// равное k. Progressbar1 отвечает за визуальное отображение
// процесса расчета быстродействия.
Progressbar1.Max:=k;
// Цикл для расчета быстродействия.
for i:=1 to k do
begin
// Засечь текущее время.
Timer:=GetTickCount;
// Если k<>1, то установить текущее положение компонента
// Progressbar1 равное i
if k<>1 then Progressbar1.Position:=i;
90

Страницы