Движущийся график

@Резинка · Регистрация: 30.03.2009

Author24 — интернет-сервис помощи студентам

Господа!
Я столкнулся с задачей, в которой нужно рисовать график постоянно меняющейся величины (например скорость вращения механизма). Данные принимаются непрерывно через порт, т.е. в каждый момент времени у меня есть новое значение.
Теперь собственно вопрос: как можно в делфи строить движущийся график, как например хронология загрузки ЦП в "Диспетчере задач" Windows, т.е. последнее принятое значение размещается справа на координатной плоскости а предыдущие значения при этом смещаются на одну точку влево и т.д.
Заранее спасибо..

@Vladiator · 30.03.2009, 11:53

Создай таймер и вот что:

Delphi

var
 ind,pind:integer; //Значение графика
 bm:TBitMap;
...
 
procedure TForm1.FormCreate(Sender:TObject);
begin
 bm:=TBitMap.create;
end;
 
procedure TForm1.Timer1Timer(Sender:TObject);
var
 fw:integer;
begin
 fw:=Image1.Height;
 with Image1.Canvas do begin
  bm.assign(BitMap);
  brush.color:=clWhite;
  rectangle(0,0,1000,1000);
  draw(-10,0,bm);
  ind:={значение графика};
  moveto(Image1.width-10,fw-pind);
  pind:=ind;
  lineto(Image1.Width,fw-ind);
 end;
end;

Простой вид

var
ind,pind:integer; //Значение графика
bm:TBitMap;
...

procedure TForm1.FormCreate(Sender:TObject);
begin
bm:=TBitMap.create;
end;

procedure TForm1.Timer1Timer(Sender:TObject);
var
fw:integer;
begin
fw:=Image1.Height;
with Image1.Canvas do begin
bm.assign(BitMap);
brush.color:=clWhite;
rectangle(0,0,1000,1000);
draw(-10,0,bm);
ind:={значение графика};
moveto(Image1.width-10,fw-pind);
pind:=ind;
lineto(Image1.Width,fw-ind);
end;
end;

@Резинка 0 / 0 / 0 Регистрация: 30.03.2009 Сообщений: 15
		1
	Движущийся график 30.03.2009, 11:45. Показов 3216. Ответов 1 Метки нет (Все метки) Господа! Я столкнулся с задачей, в которой нужно рисовать график постоянно меняющейся величины (например скорость вращения механизма). Данные принимаются непрерывно через порт, т.е. в каждый момент времени у меня есть новое значение. Теперь собственно вопрос: как можно в делфи строить движущийся график, как например хронология загрузки ЦП в "Диспетчере задач" Windows, т.е. последнее принятое значение размещается справа на координатной плоскости а предыдущие значения при этом смещаются на одну точку влево и т.д. Заранее спасибо.. 0

	30.03.2009, 11:53

Движущийся график

Решение