应用VB4.0实现工业控制的实时曲线和历史曲线

在大型的工业现场控制中，一般用DCS（集散控制系统）来实现过程控制。在DCS中，实时曲线可显示该控制点的当前趋势，以监测该点在现场工况变化的情况下的控制稳定性，历史曲线可观察过去一段时间内某一点的变化趋势，并供工艺人员分析工艺流程的稳定性和故障原因。然而在小型的工业控制中，由于控制规模小，控制回路少，因此可用PC机就能完成整个过程控制，在实时曲线和历史曲线方面，可用VB4.0就能实现，并可与大型的DCS相媲美。
　　[实时曲线]
　　实时曲线反映的是现场数据的实时性和当前趋势，因此在实现时需显示曲线的动态变化，参考DCS，当前点在曲线的最右端显示，而整个曲线动态地向左移动。
　　
　　具体实现如下：
　　1、选择需要显示的窗体Form1，加入图片框Picture1,根据实际需要设置图片的大小并移到合适的位置，并在图片的外面画好量程----时间坐标系；
　　2、在全局模块中定义位块传输API函数BitBlt()和全局变量：
　　DeclareFunctionBitBltLib"GDI32"(ByValhDestDCASLong,ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValDrawStyleAsLong)AsLong
　　GobalSAsLong`量程
　　GobalLAsLong`上一次的纵坐标值
　　GobalTAsInteger`上一次时间值（分）
　　3、PrivateSubForm1_Load()
　　Picture1.AutoRedraw=False`曲线不重画
　　Picture1.ScaleMode=3`以象素方式(Pixel)
　　L=-1`设置初值
　　S=400
　　T=-1
　　EndSub
　　4、根据现场数据采集的采样频率，设置定时器Timer1的定时值，曲线移动就
　　在
　　Timer1实现：
　　PrivateSubTimer1_Time()
　　DimwAsLong,hAsLong,y1AsLong,DataAsLong
　　DimhBmpAshDC,ShowModeAsLong,iiAsLong,t1AsInteger
　　w=Picture1.Width
　　h=Picture1.Height
　　hBmp=Picture1.hDC
　　ShowMode=&HCC0020`ROP模式（复制）
　　Data=Get_RealDatabase()`从实时数据库取当前监控值
　　y1=(S-Data)/S*h`根据量程转变成具体坐标
　　ii=BitBlt(hBmp,0,0,w-1,h,hBmp,1,0,ShowMode)`整个曲线右移一个像素点
　　Picture1.Line(w-1,y)-(w,y1),RGB(0,255,0)
　　y=y1
　　t1=Val(Mid$(Time$,3,2))
　　IfT<>t1Then`在曲线下方显示时间（用分表示）
　　Picture1.CurrentX=w-16
　　Picture1.CurrentY=h-8
　　Picture1.PrintMid$(Time$,1,5)
　　T=t1
　　EndIf
　　EndSub
　　[历史曲线]
　　历史曲线反映的是过去一段时间内某个监测点的变化趋势，其曲线走向是从左向右方向发展的，与实时曲线走向正好相反。由于历史数据库保存的时间长，一般为一个月、三个月或者更长，因此其数据量特别大，在实现时只能显示其中的一段曲线，而不能在图片上一次画好，否则其显示速度将非常慢。
　　
　　具体实现如下：
　　1、
　　在窗体Form2中加入图片框Picture2，在图片框的下方加入四个按钮，分别为曲线右移4小时按钮Command1、曲线右移8小时按钮Command2、曲线左移4小时按钮Command3和曲线左移8小时按钮Command4。
　　2、设历史曲线一分钟存储一个数据，并设一个像素点画一小段直线，因此对于8小时的曲线，图片的宽度为480Pixel，而对于4个小时的曲线，则两个像素点画一小段直线，具体设置如下：
　　Picture2.ScaleMode=3:Picture2.AutoRedraw=False
　　Picture2.Width=480:Picture2.Height=120
　　3、在窗体级变量中定义以下变量：
　　DimSAsLong`被测点的量程
　　DimFileNoAsLong`历史数据库的记录号
　　DimHtimeAsDate`被测点对应的历史时间
　　4、PrivateSubForm2_Load()
　　t$=FileDateTime("C:HDBHistoryData.dat")`获得历史数据库存储时间
　　Htime=TimeValue(Mid$(t$,Len(t$)-8,8))
　　Open"C:HDBHistoryData.dat"ForRandomAs#1Len=4
　　`打开历史数据库，
　　每个记录存放一个单精度数
　　S=400`设置量程
　　EndSub
　　5、PrivateSubCommand1_Click()
　　`曲线右移4个小时
　　DimwAsLong.HAsLong,IAsLong,jAsLong
　　Dimy1AsLong,y2AsLong,yAsSingle
　　Picture2.Picture=LoadPicture("")`清曲线
　　w=Picture2.Width
　　h=Picture2.Height
　　Picture2.Line(0,0)-(w-1,h-20-1),RGB(127,127,127),B`用灰色在图片上
　　画网格
　　ForI=1To4
　　Picture2.Line(0,I*20)-(w-1,I*20),RGB(127,127,127)
　　NextI
　　ForI=1To7
　　Picture2.Line(I*60,0)-(I*60,h-20-1),RGB(127,127,127)
　　NextI
　　y1=-1
　　I=0
　　j=0
　　DoWhileNotEOF(#1)ANDI<w
　　Get#1,y
　　y2=(S-y)/S*h`根据量程转换为具体坐标值
　　Ify1<>-1Then
　　Picture2.Line(I,y1)-(I 2,y2),RGB(0,255,0)`用绿色画曲线
　　I=I 2
　　y1=y2
　　EndIF
　　j=j 1
　　Ifj=60Then'显示时间（用小时显示）
　　Htime=TimeValue(Htime) TimeValue("01:00:00")
　　j=0
　　Picture2.CurrentX=I-10
　　Picture2.CurrentY=h-20
　　Picture2.PrintHour(Htime)
　　EndIf
　　EndDo
　　FileNo=Seek(#1)`获得历史数据库的记录号
　　EndSub
　　6、PrivateSubCommand3_Click()
　　`曲线左移4个小时
　　DimwAsLong.HAsLong,IAsLong,jAsLong
　　Dimy1AsLong,y2AsLong,yAsSingle
　　Picture2.Picture=LoadPicture("")`清曲线
　　w=Picture2.Width
　　h=Picture2.Height
　　Picture2.Line(0,0)-(w-1,h-20-1),RGB(127,127,127),B`用灰色在图片上
　　画网格
　　ForI=1To4
　　Picture2.Line(0,I*20)-(w-1,I*20),RGB(127,127,127)
　　NextI
　　ForI=1To7
　　Picture2.Line(I*60,0)-(I*60,h-20-1),RGB(127,127,127)
　　NextI
　　y1=-1
　　I=0
　　j=0
　　IfFileNo>240Then`记录指针往前移240个记录
　　FileNo=FileNo-240
　　Seek#1,FileNo
　　Htime=TimeValue(Htime)-TimeValue("04:00:00")`时间左移4个小时
　　EndIf
　　DoWhileNotEOF(#1)ANDI<w
　　Get#1,y
　　y2=(S-y)/S*h
　　Ify1<>-1Then
　　Picture2.Line(I,y1)-(I 2,y2),RGB(0,255,0)`用绿色画曲线
　　I=I 2
　　y1=y2
　　EndIF
　　j=j 1
　　Ifj=60Then'显示时间（用小时显示）
　　Htime=TimeValue(Htime) TimeValue("01:00:00")
　　j=0
　　Picture2.CurrentX=I-10
　　Picture2.CurrentY=h-20
　　Picture2.PrintHour(Htime)
　　EndIf
　　EndDo
　　FileNo=Seek(#1)`获得历史数据库的记录号
　　EndSub
　　至于曲线左移8小时和右移8小时，可以参考上述的方法，在画两点之间的直线时，以一个像素点为一小段直线，这里不一一举例。->