VPF::посроение графика - Форум программистов

wertklop

Дата 8.12.2008, 03:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.9.2008

Репутация: нет
Всего: нет

читал статьи на даном форуме и на других сайтах, вроде что то нашёл........,но до конца не получается..
хочу построить график значений, которые беруться из некоторой БД.пробую 2 способами:
1) использую стандартые средства

Код


void __fastcall Tgraph::FormPaint(TObject *Sender)
{
int n; // количество точек
while(!Form1->Table1->Eof)Form1->Table1->Next();
Form1->Label1->Caption=Form1->Table1->Fields->Fields[0]->AsInteger;// количество строк
Form1->Table1->First();
n=StrToInt(Form1->Label1->Caption);
float *data;
data = new float[n];
int i=0;
while(!Form1->Table1->Eof){
Form1->Label1->Caption=Form1->Table1->Fields->Fields[1]->AsFloat;
data[i]=StrToFloat(Form1->Label1->Caption);
i++;
Form1->Table1->Next();
}

int x,y; // координаты точки
int dx; // шаг по X
int x0,y0; // координаты левого нижнего угла области
// построения графика
// заголовок
Canvas->Font->Name = "Tahoma";
Canvas->Font->Size = 12;
x0 = (ClientWidth - Canvas->TextWidth(Title)) /2;
Canvas->Brush->Style = bsClear;
Canvas->TextOutA(x0,10,Title);
//n = sizeof(data) / sizeof(float);
// найти минимальное и максимальное значение данных
int min,max; // индекс миним. и максим, элемента
min = 0 ; // пусть первый элемент минимальный
max = 0 ; // пусть первый элемент максимальный
for (int i = 1; i < n; i++){
if (data[i] < data[min]) min = i;
if (data[i] > data[max]) max = i;
}
/* Если отклонение значений ряда от среднего значения
незначительное, то диаграмма получается ненаглядной.
В этом случае можно построить не абсолютные значения,
а отклонения от минимального значения ряда. */

bool frmin = true; // true - отсчитывать от минимального
// значения
dx= (ClientWidth - 20) / (n-1);
Canvas->Font->Size -= 2;
Canvas->Pen->Color = clGreen;
Canvas->Pen->Width = 1;
x0 = 10;
y0 = ClientHeight - 10;
x = x0;
dx= (ClientWidth-10) / (n-1);
for ( int i = 0; i < n; i++)
{
/* максимальному значению соответствует
точка с координатой ClientHeight - 90 */

if (! frmin)
y = y0 + (ClientHeight - 90) * data [i]/data[max] ;
else
// Отсчитывать от минимального значения
y = y0 -(ClientHeight - 90) * (data[i] - data[min])/(data[max] - data[min])-10;
// поставить точку
Canvas->Rectangle(x-2,y-2,x+2,y+2);
if(i!=0)
Canvas->LineTo(x,y);
// ** подпись данных **
/* т.к. метод TextOutA изменит положение точки
привязки (точки, из которой рисует метод LineTo, то
после вывода текста надо будет переместить
указатель в точку (х,у) */

if ( ( i == 0) || (data[i] != data[i-1]))
st = FloatToStrF(data[i] , ffGeneral, 5,2);
Canvas->Brush->Style = bsClear; // область вывода
// текста - прозрачная
if(GraphSettings->RadioButton1->Checked){
Canvas->TextOutA(x,y-20,st);
Canvas->MoveTo(x,y);
x += dx;
}
else {
Canvas->MoveTo(x,y);
x += dx;
}
}
delete[] data;
}

график выходит замечательно, но!
во-первых, и самое главное, для значений, больше 500(а мне неоходимо не менее 1000) график не похож сам на себя!
а во вторых, подскажите, как добавить оси коодинат

2) пробую использовать TChart.
для тестирования пишу

Код

Series1->Clear();
Series1->AddXY(5,4,"Barcelona", clBlue );
Series1->AddXY(5,10,"Barcelona", clBlue );
Series1->AddXY(4,15,"Barcelona", clBlue );

выводится какой то график, не пойми какой, без оси х, да и вообще неправильный, в чём может быть дело?

Superklug

Дата 8.12.2008, 05:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 16.6.2006

Репутация: нет
Всего: нет

wertklop, проверьте тип Series вашего Chart-а. Должно быть FastLine. Наличие осей также настраивается... (см. вкладку General)

wertklop

Дата 8.12.2008, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.9.2008

Репутация: нет
Всего: нет

а что па поводу 1 способа?

wertklop

Дата 9.12.2008, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.9.2008

Репутация: нет
Всего: нет

так что, никто мне не подскажет ничего конкретного?

Usper

Дата 10.12.2008, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 13.4.2007

Репутация: 15
Всего: 15

А если попробовать так:

Код


    Series1->Clear();
    Series1->XValues->Order=loNone; //отключаем сортировку
    Series1->AddXY(5,4);
    Series1->AddXY(5,10);
    Series1->AddXY(4,15);

--------------------

На посохе волшебном нехилый набалдашник, большой такой, огромный, нехилый набалдашник.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »