,内蒙古包头014010;21久益环球(包头)采矿设备有限公司,内蒙古包头014010)
    Jan12009Vol137No11
    第1期
    乔文刚等:关于用VB实现实时测试曲线的动态显示研究
    ?127?
    用的RGB颜色;在选用Line方法绘制曲线时,B和F属性都不选。3动态实时曲线的绘制曲线的动态显示采用Line方法来绘制,下面为曲线的实现过程。311图形初始化程序初始化程序包括绘制实时曲线背景矩形框(本例为图片框),依据具体参数确定数据极值范围、坐标轴刻度范围,绘制坐标网格线、刻度、标签部分等。
    图1函数模拟实时动态曲线
    PrivateSubForm_Load()Picture11Cls′清屏Picture11Scale(-4,-4)-(100,100)′定义坐标Picture11ClsEndSubPicture11CurrentX=0:Picture11CurrentY=0Picture11BackColor=vbBlack
    系
    DimjAsInteger
    312为绘图数据数组赋值依次将实时数据赋给数组,当前点数超出数组范围时,数组中的值前移一列,实时值赋给数组最后一个数。313进行曲线动态绘制图1为一给定函数的曲线绘制图,从图中可以看到曲线的形状,并可从列表框中分别找到对应的横坐标与纵坐标值,可对任意时刻的变量值进行查询。314曲线分析的其它相关功能在采集完曲线后,菜单栏上有打开、保存、缩放以及界面打印菜单项。打开、保存菜单下有二级子菜单,可以分别对数据、图像进行相关操作;缩放菜单下有2倍缩小、2倍放大、4倍放大二级子菜单,可以根据用户需求对图像进行缩放操作;界面打印菜单可以将图像和数据做成一张综合报告单,以便打印使用。标变量315相关程序代码(1)对图片框进行初始化
    Dimi,jk,tasintegerDimyassingle′y分别设为横坐标变量与纵坐t、
    Nextj
    标
    画横坐标上的刻度线画纵坐标上的刻度线′写刻度值
    Picture11Print″压力值P/(MPa)″Fork=0To100Step10Nextk
    ture11Print″间t/(s)″时
    ture11CurrentY=-4:Picture11Printk/10
    ture11CurrentY=k-1:Picture11Printk31
    ′画网格线Picture11ForeColor=vbBlue
    Picture11ForeColor=vbRedPicture11ForeColor=vbRedPicture11ForeColor=vbRed
    Forj=0To100Step4Picture11Line(0,j)-(100,j)Picture11Line(j,0)-(j,100)Picture11Line(0,0)-(0,100)
    Picture11Font1Bold=False′设置字体
    Picture11Font1Size=10Picture11Line(0,0)-(100,0)′画横坐标与纵坐Picture11CurrentX=8:Picture11CurrentY=100:
    Picture11CurrentX=80:Picture11CurrentY=4:Pic2
    ′写坐标原点Picture11ForeColor=vbRedPicture11Font1Size=9Picture11CurrentX=-4Picture11CurrentY=-4Picture11Print″原点0″Picture11CurrentX=0′定义坐标原点Picture11CurrentY=0
    Ifk<>0ThenPicture11Line(k,1)-(k,0)′Ifk<>0ThenPicture11Line(0,k)-(1,k)′Ifk<>0ThenPicture11CurrentX=k-1:Pic2Ifk<>0ThenPicture11CurrentX=-615:Pic2
    (下转第123页)
    第1期
    钟绍俊等:汽车发动机冷却水泵可靠性测试系统设计
    ?123?
    控制、报警处理模块等,这对程序的编写、系统的调试和维护非常有利。
    【3】彭立国,闫蓓.水箱配件寿命自动检测动作系统设计与实现[J].科学技术与工程,2007(3).【4】关醒凡.现代泵技术手册[M