Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужен компонент для построения графиком 
:(
    Опции темы
Delphist
  Дата 18.10.2004, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3
Нужен компонент для построения графиком наподобие как в MAthcad'e


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Akella
Дата 18.10.2004, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329
На странице ActiveX есть компонента VtChart1
PM MAIL   Вверх
Alex
Дата 18.10.2004, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162
А чем тебе Chart не нравится?


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Akella
Дата 18.10.2004, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329
согласен, на странице DataControls есть такой компонент, наверное даже лучше, чем VtChart1, и легче приложение распространять
PM MAIL   Вверх
Delphist
  Дата 18.10.2004, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: нет
Всего: 3
Цитата(Alex @ 18.10.2004, 12:32)
А чем тебе Chart не нравится?

Как им пользоваться?


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Satana
Дата 18.10.2004, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5
Ну примерно так:
выбираем тип графика двойным щелчком по чарту далее делаем это:

Chart1.series[0].clear; //Очищаем чарт
Chart1.series[0].AddXY(1,1); //ставим точку в точке 1;1 :)
Chart1.series[0].AddXY(2,1); //Ставим еще одну точку в точке 2;1 получаем отрезок из 1;1 в 2;1
вот собственно и все


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
Akella
Дата 18.10.2004, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 1
Всего: 329
в двух словах не объяснишь,
используй метод "научного тыка"


главное не лениться, терпение и труд все перетрут.

Код
procedure HelpZal;
var
 AnsTru: String[1];
 A, B, C, D: Integer;
Const
 E=1000;//100%
 Label AnsA, AnsB, AnsC, AnsD;
begin
with fmMain, fmHelpZal, Chart1, Series1 do
 begin
   AnsTru:=T.Fields[6].AsString;

   if AnsTru='A' then
    begin
      Clear;
      Randomize;
     AnsA:
      A:=450+Random(250);//
      if A<320 then Goto AnsA;
      B:=Random(E-A);//1000-400=500
      C:=Random(E-A-B);//1000-400-500=80
      D:=E-A-B-C;//1000-400-500-80=20

      Add(A,'A');
      Add(B,'B');
      Add(C,'C');
      Add(D,'D');
    end;

   if AnsTru='B' then
    begin
      Clear;
      Randomize;
     AnsB:
      A:=Random(300);//350
      B:=Random(E-A)+100;//1000-350=700
      if B<330 then goto AnsB;
      C:=Random(E-A-B);//1000-400-500=80
      D:=E-A-B-C;//1000-400-500-80=20

      Add(A,'A');
      Add(B,'B');
      Add(C,'C');
      Add(D,'D');
    end;

   if AnsTru='C' then
    begin
      Clear;
      Randomize;
     AnsC:
      A:=Random(300);//200
      B:=Random(E-A-500);//1000-200-500=250
      C:=Random(E-A-B)+100;//1000-200-250=80
      if C<333 then goto AnsC;
      D:=E-A-B-C;//1000-400-500-80=20

      Add(A,'A');
      Add(B,'B');
      Add(C,'C');
      Add(D,'D');
    end;

   if AnsTru='D' then
    begin
      Clear;
      Randomize;
      AnsD:
      A:=Random(300);//200
      D:=Random(E-A+100);//1000-150+100=700
      if D<325 then goto AnsD;
      B:=Random(E-A-D);//1000-200-700=100
      C:=E-A-D-B;//1000-200-700-100=0

      Add(A,'A');
      Add(B,'B');
      Add(C,'C');
      Add(D,'D');
    end;
end;//with
end;
PM MAIL   Вверх
Alex
Дата 18.10.2004, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162
Цитата(Delphist @ 18.10.2004, 13:54)
Как им пользоваться?

Вообще-то в в папке Demos, есть пример TeeChart


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0509 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.