用VB实现实时曲线的绘制和保存

小雨通讯

小雨通讯

2016-02-19 14:21

今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐用VB实现实时曲线的绘制和保存,希望大家看完后也有个好心情,快快行动吧!
在VB中绘制实时曲线是比较难的,一般要应用第三方控件或是WindowsAPI函数来完成,但是如果你对实时曲线的要求不是很高,只要能表示出当前的一般情况的话,我们可以直接应用VB提供给我们的空间来完成。
  
  原则上讲,直接在Form里绘制曲线都是可以的,MSDN上面很多例程就是直接在Form里面绘制图形的,Form作为绘制图形的容器,不过一般应用中Form中不可避免的会有很多其他控件,所以我们选择PictureBox作为绘制曲线的容器。
  
  实时曲线的绘制一般借助于Timer控件来完成,使用Timer控件,定期将串口或是其他仪器中监测到的数据送往PictureBox1,而曲线的绘制一般画成折线图,采用PictureBox1的Line方法绘制.具体实现如下:
  
  1.选择需要显示的窗体Picture1,加入图片框Picture1,根据实际需要设置图片的大小并移到合适的位置,并在图片的外面画好量程----时间坐标系;然后加上Timer控件以及两个CommandButton,界面就基本设置好了。
  
  2.建立坐标系,根据Picture1的大小和高度设置画出坐标系的X轴和Y轴:
  
  ->Picture1.ScaleMode=1‘以VB的基本单位作为建立坐标轴以及绘制图形的单位;
  Picture1.Refresh
  Picture1.CurrentX=Picture1.ScaleLeft 100
  Picture1.CurrentY=Picture1.ScaleTop
  Picture1.PrintPicture1.ScaleHeight-100
  Picture1.Line(Picture1.ScaleLeft 100,Picture1.ScaleTop 100)-(Picture1.ScaleLeft 100,Picture1.ScaleHeight-100)
  Picture1.CurrentX=Picture1.ScaleLeft 100
  Picture1.CurrentY=Picture1.ScaleHeight
  Picture1.Print“(0,0)”
  Picture1.Line(Picture1.ScaleLeft 100,Picture1.ScaleHeight-100)-(Picture1.ScaleWidth-100,Picture1.ScaleHeight-100)
  Picture1.CurrentX=Picture1.ScaleWidth
  Picture1.CurrentY=Picture1.ScaleHeight
  Picture1.PrintPicture1.ScaleWidth-100
  Picture1.AutoRedraw=True‘必要时,用存储在内存中的图象进行重绘->
  3.绘制曲线并保存,我们这里以正弦曲线作为绘制曲线的数据
展开更多 50%)
分享

猜你喜欢

用VB实现实时曲线的绘制和保存

编程语言 网络编程
用VB实现实时曲线的绘制和保存

使用Oracle实现实时通信

电脑网络
使用Oracle实现实时通信

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用VB实现聊天讨论室和点对点会话

编程语言 网络编程
用VB实现聊天讨论室和点对点会话

用VB实现浮动按钮

编程语言 网络编程
用VB实现浮动按钮

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用VB实现程序的隐形

编程语言 网络编程
用VB实现程序的隐形

用VB实现文件查找功能

编程语言 网络编程
用VB实现文件查找功能

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

jquery下操作HTML控件的实现代码

jquery下操作HTML控件的实现代码

VB环境多媒体压缩数据流播放技术

VB环境多媒体压缩数据流播放技术
下拉加载更多内容 ↓