VB.net 2010 视频教程 VB.net 2010 视频教程 c#入门经典教程
当前位置:
主页 > 编程开发 > vb >
  • vb教程之应用VB4.0实现工业控制的实时曲线和历史

  • 2017-06-16 21:16 来源:未知
作者:梁维彪

在大型的工业现场控制中,一般用DCS(集散控制系统)来实现过程控制。在DCS中,实时曲线可显示该控制点的当前趋势,以监测该点在现场工况变化的情况下的控制稳定性,历史曲线可观察过去一段时间内某一点的变化趋势,并供工艺人员分析工艺流程的稳定性和故障原因。然而在小型的工业控制中,由于控制规模小,控制回路少,因此可用PC机就能完成整个过程控制,在实时曲线和历史曲线方面,可用VB4.0就能实现,并可与大型的DCS相媲美。
[实时曲线]
实时曲线反映的是现场数据的实时性和当前趋势,因此在实现时需显示曲线的动态变化,参考DCS,当前点在曲线的最右端显示,而整个曲线动态地向左移动。

具体实现如下:
1、选择需要显示的窗体Form1,加入图片框Picture1,根据实际需要设置图片的大小并移到合适的位置,并在图片的外面画好量程----时间坐标系;
2、 在全局模块中定义位块传输API函数BitBlt( )和全局变量:
Declare Function BitBlt Lib "GDI32" (ByVal hDestDC AS Long,ByVal X As Long,ByVal Y As Long,ByVal nWidth As Long,ByVal nHeight As Long,ByVal hSrcDC As Long,ByVal xSrc As Long,ByVal ySrc As Long,ByVal DrawStyleAs Long) As Long
Gobal S As Long `量程
Gobal L As Long `上一次的纵坐标值
Gobal T As Integer `上一次时间值(分)
3、 Private Sub Form1_Load()
Picture1.AutoRedraw = False `曲线不重画
Picture1.ScaleMode = 3 `以象素方式(Pixel)
L = -1 `设置初值
S = 400
T = -1
End Sub
4、根据现场数据采集的采样频率,设置定时器Timer1的定时值,曲线移动就

Timer1实现:
Private Sub Timer1_Time()
Dim w As Long, h As Long, y1 As Long, Data As Long
Dim hBmp As hDC, ShowMode As Long, ii As Long, t1 As Integer
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))
If T < > t1 Then `在曲线下方显示时间(用分表示)
Picture1.CurrentX = w - 16
Picture1.CurrentY = h - 8
Picture1.Print Mid$(Time$,1,5)
T = t1
End If
End Sub
[历史曲线]
历史曲线反映的是过去一段时间内某个监测点的变化趋势,其曲线走向是从左向右方向发展的,与实时曲线走向正好相反。由于历史数据库保存的时间长,一般为一个月、三个月或者更长,因此其数据量特别大,在实现时只能显示其中的一段曲线,而不能在图片上一次画好,否则其显示速度将非常慢。

具体实现如下:
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、 在窗体级变量中定义以下变量:
Dim S As Long `被测点的量程
Dim FileNo As Long `历史数据库的记录号
Dim Htime As Date `被测点对应的历史时间
4、 Private Sub Form2_Load( )
t$ = FileDateTime("C:\HDB\HistoryData.dat") `获得历史数据库存储时间
Htime = TimeValue(Mid$(t$, Len(t$)-8, 8))
Open "C:\HDB\HistoryData.dat" For Random As #1 Len = 4
`打开历史数据库,
每个记录存放一 个单精度数
S = 400 `设置量程
End Sub
5、Private Sub Command1_Click( )
`曲线右移4个小时
Dim w As Long. H As Long, I As Long, j As Long
Dim y1 As Long, y2 As Long, y As Single
Picture2.Picture = LoadPicture("") `清曲线
w = Picture2.Width
h = Picture2.Height
Picture2.Line (0,0) - (w-1,h -20 -1) ,RGB(127,127,127),B `用灰色在图片上
画网格
For I = 1 To 4
Picture2.Line(0,I*20) - (w-1,I*20),RGB(127,127,127)
Next I
For I = 1 To 7
Picture2.Line(I*60,0) - (I*60,h-20-1),RGB(127,127,127)
Next I
y1= -1
I = 0
j=0
Do While Not EOF(#1 ) AND I < w
Get #1,y
y2 = (S -y)/S*h `根据量程转换为具体坐标值
If y1 < > -1 Then
Picture2.Line (I , y1) - (I+2, y2) , RGB(0,255,0) `用绿色画曲线
I = I+2
y1 = y2
End IF
j = j+1
If j = 60 Then 注释:显示时间(用小时显示)
Htime = TimeValue(Htime)+TimeValue("01:00:00")
j = 0
Picture2.CurrentX= I -10
Picture2.CurrentY= h -20
Picture2.Print Hour(Htime)
End If
End Do
FileNo = Seek(#1) `获得历史数据库的记录号
End Sub
6、Private Sub Command3_Click( )
`曲线左移4个小时
Dim w As Long. H As Long, I As Long, j As Long
Dim y1 As Long, y2 As Long, y As Single
Picture2.Picture = LoadPicture("") `清曲线
w = Picture2.Width
h = Picture2.Height
Picture2.Line (0,0) - (w-1,h -20 -1) ,RGB(127,127,127),B `用灰色在图片上
画网格
For I = 1 To 4
Picture2.Line(0,I*20) - (w-1,I*20),RGB(127,127,127)
Next I
For I = 1 To 7
Picture2.Line(I*60,0) - (I*60,h-20-1),RGB(127,127,127)
Next I
y1= -1
I = 0
j=0
If FileNo >240 Then `记录指针往前移240个记录
FileNo = FileNo - 240
Seek #1,FileNo
Htime = TimeValue(Htime) - TimeValue("04:00:00") `时间左移4个小时
End If
Do While Not EOF( #1) AND I < w
Get #1,y
y2 = (S -y)/S*h
If y1 < > -1 Then
Picture2.Line (I , y1) - (I+2, y2) , RGB(0,255,0) `用绿色画曲线
I = I+2
y1 = y2
End IF
j = j+1
If j = 60 Then 注释:显示时间(用小时显示)
Htime = TimeValue(Htime)+TimeValue("01:00:00")
j = 0
Picture2.CurrentX= I -10
Picture2.CurrentY= h -20
Picture2.Print Hour(Htime)
End If
End Do
FileNo = Seek(#1) `获得历史数据库的记录号
End Sub
至于曲线左移8小时和右移8小时,可以参考上述的方法,在画两点之间的直线时,以一个像素点为一小段直线,这里不一一举例。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。

相关教程
关于我们--广告服务--免责声明--本站帮助-友情链接--版权声明--联系我们       黑ICP备07002182号