delphi Canvas 画实时曲线图（我的第一个博客）

最新推荐文章于 2022-11-07 19:28:35 发布

u014467974

最新推荐文章于 2022-11-07 19:28:35 发布

阅读量2k

点赞数 1

本文链接：https://blog.csdn.net/u014467974/article/details/104082717

版权

delhi Cavas 画实时曲线图

工作中需要将采集到的 实时数据以曲线图的形式呈现给大家。我们设计以 实时数据为Y轴，时间为 X轴。
窗体内添加一下控件：
PaintBox ,设置width=400,height=200; //作为画布使用
Timer , interval=100; //将实时数据呈现到画布上
定义 dp:array[0…39] of TPoint ; //记录40个实时数据

procedure TForm1.FormCreate(Sender: TObject); //初始化实时数据
begin
for i:= 0 to 39 do
begin
dp[i].x:= i10;
dp[i].y:=100;
end;
end;*

procedure TForm1.tmr1Timer(Sender: TObject); //timer事件,将实时数据画到pb上
begin
if j< 100 then ///模拟采集到的实时数据
inc(j,5)
else
j:=0;
pb1.Canvas.Brush.Color := clYellow; {设置画刷颜色, 也就是填充色}
pb1.Canvas.FillRect(ClientRect); {填充窗体客户区}
pb1.Canvas.Pen.Color := clRed; {设置画笔颜色}
pb1.Canvas.Pen.Width :=1; {设置画笔宽度}
for i:=39 downto 1 do
begin
dp[i].Y:=dp[i-1].Y ;
end;
dp[0].Y:=j-1+100;
for I:=0 to 38 do {画线}
begin
pb1.Canvas.MoveTo(dp[i].X,dp[i].y); {画线起点}
pb1.Canvas.LineTo(dp[i+1].x,dp[i+1].y);{连线}
end;
end;*

u014467974

关注

1
点赞
踩
5

收藏

觉得还不错? 一键收藏
0
评论
delphi Canvas 画实时曲线图（我的第一个博客）

delhi Cavas 画实时曲线图工作中需要将采集到的实时数据以曲线图的形式呈现给大家。我们设计以实时数据为Y轴，时间为X轴。窗体内添加一下控件：PaintBox ,设置width=400,height=200; //作为画布使用Timer , interval=100; //将实时数据呈现到画布上定义 dp:array[0...
复制链接

扫一扫