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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> "Живой" график на основе компонента Chart 
:(
    Опции темы
Orakul
  Дата 20.5.2005, 06:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Предпосылки:
Снимаю показания с прибора и в реальном режиме времени отображаю значения в графическом виде. Постоянно на графике должен быть период, установленный в настройках. Соответственно с самого начала идет накопление, а затем, алгоритм читайте ниже.
Задача:
Рисовать график на компоненте Chart следующим образом. Добавлять в конец графика точку с помощью функции Add и удалять первую функцией Delete. ПО логике все путем, а на деле получается шняга.
Помогите разобраться с этим компонентом.
PM MAIL   Вверх
Satana
Дата 20.5.2005, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



не понимаю в чем проблема то? вот даю пример юнита по нажатию на кнопку добавляется точка и удаляется первая.
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TLineSeries;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y:integer;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
Chart1.Series[0].AddXY(0,1);
Chart1.Series[0].AddXY(1,2);
Chart1.Series[0].AddXY(2,3);
Chart1.Series[0].AddXY(3,4);
Chart1.Series[0].AddXY(4,5);
x:=4;
y:=5;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
x:=x+1;
y:=y+1;
Chart1.Series[0].AddXY(x,y); //Добавляем х и у
Chart1.Series[0].Delete(0,1); //Удаляем начиная с первой точки(0), количеством 1 точка.
end;

end.



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


Новичок



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

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



Все, да не все... При удалении первая точка удаляется, но последняя не дорисовывается, для интереса попробуй... Было бы так просто не спрашивал...
PM MAIL   Вверх
Satana
Дата 20.5.2005, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



OrakulЭтот код рабочий я у себя его проверял перед тем как сюды запостил. Сначала добавляешь потом удаляешь.


--------------------
 Работай на себя 
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




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


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

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