用chart空间动态绘出120分钟内没分钟的温度变化(100分)

  • 主题发起人 主题发起人 jnleis
  • 开始时间 开始时间
J

jnleis

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要用pc机读单片机的数据,做温度采样的小程序,现有两个问题请大虾指教
1:动态绘出120分钟内每分钟的温度变化,每1分钟采样一次,横坐标为时间,纵坐标为温度
0--500度,如何做;
2:要用到哪些空间如何用?

请大虾们帮忙给点建议,越详细越好,做好有类似的源码!!谢谢!
分不够可再加!!
 
TImage控件和TTimer控件就可以,有时间帮你写一个简单例子。
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyTime:Integer;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MyTime>120 then begin
image1.Canvas.Rectangle(0,0,Width,height);
image1.Canvas.MoveTo(10,10);
image1.Canvas.LineTo(10,260);
image1.Canvas.LineTo(250,260);
image1.Canvas.MoveTo(10,260);
MyTime:=1;
Randomize;
end;
image1.Canvas.LineTo(10+2*MyTime,Random(250)+10);
inc(MyTime);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
myTime:=200;
Timer1.Interval:=6000;
end;

end.

 
在delphi中有个例子,你可以看一下。是动态绘图
 
to panyongze:
谢谢你的指点,我要求能在坐标图内画出(温度,时间)的坐标,而且我的温度取自单片机,
image1.Canvas.MoveTo(10,10);
image1.Canvas.LineTo(10,260); 他们的数据从何而来??何解??听说要用TChart空间
image1.Canvas.LineTo(250,260);
image1.Canvas.MoveTo(10,260);
 
image1.Canvas.MoveTo(10,10);
image1.Canvas.LineTo(10,260);
image1.Canvas.LineTo(250,260);
image1.Canvas.MoveTo(10,260);
以上是我画的坐标轴,没画具体刻度线和坐标名称,你自己画就可以了。
时间是每分钟一格,温度我是用随机函数,你可以用读出的温度代替就可以了。
 
如何画?
温度是用随机函数??什么意思??如何把读出的温度和坐标联系,也就是说如何定位每一
分钟与温度所在的点??
(对不起,这一块我是新手!)请指教!!
 
谢谢大家,我已经自己用Tchart做出来了!不过分数还是给的!!Fpack,panyongze每人50
呵呵~~~~~~
 
后退
顶部