基于VB 6．0智能电子自旋共振仪系统绘图模块实现
定制好了绘图区，为了绘图区的美观，绘图中区加了横纵相交的网格。横坐标固定只有5个细分格，纵坐标固定4个细分格。部分代码如下：
2．3 设置坐标
根据绘图区的大小与高度绘制x轴和y轴。
3 绘图模块实时曲线的生成
画好绘图区及坐标系后，就要在绘图区绘制实时曲线，实时曲线的绘制一般借助于Timer控件来完成，使用Timer控件，定期将串口或是其他仪器中监测到的数据送往pic_main，而曲线的绘制一般画成折线图，采用PictureBoxl的Line方法绘制。用Line方法可以在窗体或图片框上绘制一条直线或绘制一个矩形。
Line方法的一般格式：
[对象名．]Line(x1，y1)-(x2，y2)[，颜色]
其中：(x1，y1)为始点坐标；(x2，y2)为终点坐标；颜色可以使用RGB函数，规定画线或画矩形的颜色。代码如下：
3．1 曲线的生成
曲线的生成为：
3．2 时钟更新曲线
时钟更新曲线为：
这样，就完成了在绘图区中显示从单片机实时采集到的数据的任务。
4 双游标读取某两点的数值差
用4条线来描述双游标。首先在绘图区上放置4条直线控件，4条线放置成2对坐标形式(十字相交)。并设置4条线的属性：
4条直线的名称分别为线c0_x，c0_y，c1_x，c1_y。
颜色分别为c0_x．bordercolor＆H0000OOFF＆；c1_x．bordercolor＆HOOFFFF00＆。
4．1 获取任意点的坐标值
通过在曲线上单击鼠标左键来获得坐标值
4．2 任意点坐标值的显示
因为获取的是任意点的坐标值，所以鼠标放在曲线的任意位置时，坐标CO()与坐标C1()的值相应的要改变。
某点的坐标如图1所示。
评论