Вывод графика основываясь на данных базы Oracle

[Hallo]

Вообщем есть выборка из таблицы.
Нужно основываясь на данных из столбца (числовые выражения ест-но) построить график.
Подскажите как это реализовать или где можно почитать об этом можно..

[Konst_One]

MSChart Control

[Hallo]

Спасибо Сейчас почитаю об этом....

[Andrey Fedorov]

MSChart Control

Или - он поудобней:

http://www.componentone.com/products.as ... ryTypeID=0

И для NET:

http://www.datadynamics.com/Products/Pr ... ph%20Types

http://www.dotnetcharting.com/overview.aspx

[Hallo]

Вроде бы разобрался c Ms... Но пара вопросов (некоторые общие):

1. rs.RecordCount - глючит с Oracle? Все время выдает значение -1, причем rs.Fields.Count при этом прекрасно работает.

2. Из-за первого чтобы посчитать строки, получается надо второй Sql запрос c count() писать и открытие\закрытие базы делать?

Второй компонент посмотрю обязательно.

[GSerg]

Странно... я поискал слово "recordcount" и сразу нашёл ответ... Наверное, я сделал что-то совсем неправильно...

[Hallo]

О, сорь... Спс

[Hallo]

Все что мог попробовал, но так и не понял как легенду переименовать?
С1 немного не то, что мне нужно

И второй вопрос, когда выбираю тип area у меня заливается вся область ниже верхнего графика его цветом, включая и те графики что под ним... как сделать чтобы каждая область своим цветом была?

[Konst_One]

вот пример, может поможет:

[Hallo]

Я это видел, когда искал инфу... На самом деле там это не проясняется.

В настройках поля, есть такие парамерты, как:
Column (выбираешь номер столбца), ColumnCount(задаешь сколько столбцов всего должны отображаться) и ColumnLabel(название столбца и соответсвенно название его в легенде)... но как их использовать в коде я не понял.

И еще вопрос, кто нибудь делал чтобы при наведении на какой либо участок графика, появлялось его значение? Детализировать надо бы...

[Nicky]

...В настройках поля, есть такие парамерты, как:
Column (выбираешь номер столбца), ColumnCount(задаешь сколько столбцов всего должны отображаться) и ColumnLabel(название столбца и соответсвенно название его в легенде)... но как их использовать в коде я не понял...

Вот так. Только это секрет!

Код: Выделить всё

With Chart1
  .Column = 1
  .ColumnLabel = "Привет"
End With

[Hallo]

Скажу по секрету, я это сразу попровал... Не вышло
Плохо смотрел в том файле, что Konst_One прикрепил. Получилось так:

Код: Выделить всё

With mschart1.plot.
       .SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set 0, 0, 255
       .SeriesCollection(1).LegendText = ""
End with

Никто не подскажет, как вывести в текстовое поле значение, при нажатии на одну из точек графика?

[Hallo]

Вообщем дописал я это... Дали еще одну задачу. Не знаю реально ли это сделать с MsChart или проще ручками.

Вообщем есть столбцы start_date, end_date, max, min, id.
Нужно на одной оси вывести все start_date, end_date, а на второй все max и min, отобранные по id.
При этом зав-ть не нужна... нужно чтобы от каждой даты\ выходила линия и от каждой max\min тоже. Там где они пересекают образуются прямоугольники, которые нужно закрасить.

Реально ли такое сделать в mschart?

[Konst_One]

вряд ли, нужно искать профессиональный чарт-контрол

[Hallo]

Они денег наверное стоят... Если знаете такие бесплатные, подскажите...
Можно ли с помощью стандартных так сделать?

Например сделать массив со всеми датами и массив со всеми значениями, которые отбираются при выборе id из combobox.
Можно ли сначала сделать линии разграфки, а потом вывести на них значения из массивов?

[Konst_One]

можно самому рисовать на Picture с помощью: PSet, Line, Circle - попробуй, алгоритм у тебя уже есть

[Hallo]

А зачем circle?
Так как не рисовал, то прошу помощи... Расчерчил я график, число линий = RecordSet.

Но... как вывести названия на ними? И закрасить область с помощью PSet.
Нарисовал рисунок, для наглядности... http://surreal-clan.com/1.jpg

[alibek]

PSet (X,Y), Color - поставить точку цвета Color в X,Y
Line (X1,Y2)-(X2,Y2), Color - нарисовать линию
Line (X1,Y2)-(X2,Y2), Color, B - нарисовать прямоугольник
Line (X1,Y2)-(X2,Y2), Color, BF - нарисовать заполненный прямоугольник
Circle (X,Y), Radius, Circle - нарисовать окружность

[Hallo]

Ну окружность мне не нужна... Остальное в MSDN читал.
Попробую, конечно, строки базы перерисовать как заполненный прямоугольник, или на крайний случай разберусь как заливать точками область... но без примеров все равно тяжеловато.

А как вывести текст не написал А я не нашел такой метод... Print'ом что ли делать?

А лучше подскажите chart-control, который это делает...

[Алексей К.]

Твоя диаграмма напоминает диаграмму Ганта, только в гантовской по оси ординат нет возможности изменять высоту закрашенного прямоугольника отдельно для каждого - у всех одинаковая высота. Если для тебе не критично то, чтобы у каждого прямоугольника была своя высота (в соответствии с макс и мин) - то юзай диаграмму ганта, а значения макс и мин выводи на оси ординат вместо подписей для каждого прямоугольника (вместо Market Research, Define Specification,... смотри диаграмму по первой нижней ссылке). Вот как выглядит диаграмма Ганта:

http://www.advsofteng.com/gallery_gantt.html

Это компонент ChartDirector, скачать его можно здесь:

http://www.advsofteng.com/download.html

В незарегистрированной версии снизу любой диаграммы выводится надпись "Unregistered ...." которую легко закрыть пустым фрэймом поместив его в нужно место

[alibek]

Да, текст выводится Print-ом.
А позиционируется CurrentX, CurrentY.

[Konst_One]

вот мой примерчик, может что для себя возьмешь:

[Hallo]

Все скачал. Спасибо. Пошел разбираться..

Если для тебе не критично то, чтобы у каждого прямоугольника была своя высота

В принципе нет... Надо будет узнать.

[Алексей К.]

Вот наваял примерчик на вышеуказанном контроле.

[Hallo]

C этим чартом проблемка возникла, кто пользовался объясните:
Есть массив всех дат(открытия и закрытия), есть массив всех глубин(top и base), есть массивы отдельно по датам открытия и закрытия. Если работы еще ведутся, то дата закрытия в базе = 01.01.3000.

Первые два массива вывожу на оси...

Код: Выделить всё

Call c.xAxis().setLabels(start_close_d)
Call c.yAxis().setLabels(top_base)

Далее пишу

Код: Выделить всё

Call c.addBoxWhiskerLayer(start_d, close_d, Empty, Empty, Empty, &H00cc00, cd.SameAsMainColor, cd.SameAsMainColor)

Он рисует х.з. что...

Пробовал иначе (по примеру из документации Floating Box Chart)... top_t и base_t массивы глубин по столбцам. Обзываю оси:

Код: Выделить всё

Call c.xAxis().setLabels(start_close_d).setFontStyle("arialbd.ttf")
Call c.yAxis().setLabelStyle("arialbd.ttf")

Далее

Код: Выделить всё

Call c.addBoxLayer(top_t, base_t, &H00ff00, "")

Все отлично... Пытаюсь поменять местами даты и глубины... опять х.з что рисует. То есть вместо отметок дат на оси, он выводит огромные числа (10кк, 20кк, 30кк и т.д.)

[Алексей К.]

Пытаюсь поменять местами даты и глубины... опять х.з что рисует.

Где поменять???? в коде или где???

То есть вместо отметок дат на оси, он выводит огромные числа (10кк, 20кк, 30кк и т.д.)

На какой оси, их две X и Y???

P.S. Формулируй четко: какую диаграмму ты хочешь постоить, и как хочешь чтобы она выглядела (т.е. что на оси X а что на оси Y), скриншоты приветствуются:)

[Hallo]

1. Я вывожу на X глубины. Блоки рисует, только гранчные значения это (диапазон глубин). Когда пытаюсь вывести на X даты и соот-но сделать диапазон по датам... вместо дат появляются огрмоные значения.

Не понятный он какой то, а в примере (в док-ции) вместо массива дат выводят на X их граничные значения...

Код: Выделить всё

Call c.yAxis().setDateScale(DateSerial(2004, 8, 16), DateSerial(2004, 11, 22), 86400 * 7)

Когда я пытался в том же примере вместо них подставить массив... все блоки исчезли.

2. Пример того что нужно получить, я прикрепил в посте чуть раньше.

Вообщем забил я пока. Продолжил ручками... Сделал оси, вывел на них даты\глубины (все как надо). Расчерчил. Осталось самое гемморное - залить нужное. В индексах застрял...
[/code]

[Hallo]

Блин.. народ подтолкните меня.. Я уже не соображаю

Смотрите, есть даты на координатной оси OX (выбранные из двух столбцов с помощью union):

Код: Выделить всё

08.01 ; 26.02 ; 03.03 ; 04.03; 13.03 ; 18.03 ; 21.03; 01.01.3000

Границы по OX:

Код: Выделить всё

21.03 - 01.01.3000;
04.03 - 18.03;
13.03 - 18.03;
08.01 - 03.03;
26.02 - 03.03;

Заливка делается таким образом:
x0 = 1000 + h(шаг через который проходят линии)*i1(индекс даты столбца открытия)
x1 = 1000 + h(шаг через который проходят линии)*i2(индекс даты столбца закрытия)

Я так понимаю надо сформировать массивs из всех дат открытия\закрытия и их индексов. То есть, если 26.02 - 03.03, то i1=2, а i2=3... и т.д.:

Код: Выделить всё

select comp_date, close_date from таблица
for i=0 to rs.recordcount - 1
     ind_1=ind_1+1
     comp_array(i) = rs.fields("comp")
     comp_ind(ind_1) = ind_1
next i
---------------------------
for i=0 to rs.recordcount - 1
     ind_2 = ind_1+1
     close_array(i) = rs.fields("close")
     close_ind(ind_2)=ind_2
nex i


То есть стало так:

Код: Выделить всё

08.01 - 1;
26.02 - 2;
04.03 - 3;
13.03 - 4;
21.03 - 5;

и

Код: Выделить всё

03.03 - 6;
03.03 - 7;
18.03 - 8;
18.03 - 9;
01.01.3000 - 10;

Что дальше? Как сделать, чтобы при 08.01-03.03 (и также с остальными повторяющимися, взять минимальный индекс)

Код: Выделить всё

x0 = 1000+h*1
x1 = 1000+h*6

и при 26.02-03.03

Код: Выделить всё

x0 = 1000+h*2
x1 = 1000+h*6(а не 7)...

[Hallo]

Тьфу... случайно процитировал.

[Алексей К.]

Замени:

Код: Выделить всё

03.03 - 6;
03.03 - 7;
18.03 - 8;
18.03 - 9;
01.01.3000 - 10;

на

Код: Выделить всё

03.03 - 6;
03.03 - 6;
18.03 - 7;
18.03 - 8;
01.01.3000 - 9;

Т.е. ты добиваешься того, чтобы у тебя правая граница (дата закрытия) для совпадающих дат в одном месте рисовалась а не в разных местах (из-за разных индексов)?
Если да, то алгоритм тебе такой: когда ты индексируешь пару дат (дата открытия и дата закрытия ) перед тем как присвоить ей индекс=индекс+1 проверь на совпадение с предыдущей парой и если совпадает - то индекс не увеличиваешь, а оставляешь текущем (как у пред. пары)