基于组态王和VB的智能仪表实时监控系统
该模块中的OnComm 函数响应程序如下：
Private Sub Timer1 Timer
Timer1. Enabled = False
Text_SEND. Text = "" ∥清空发送文本框
MSComm. OutBufferCount = 0 ∥清除发送缓冲区数据
Dim OutByte （1 To 3） AsByte
IfNotMSComm. PortOpen Then ∥保证串口打开
MSComm. PortOpen = True
End If
'24台积算仪循环数据采集
If k = 1 Then
OutByte （1） = HCA
OutByte （2） = 0
OutByte （3） = 1
End If
If k = 2 Then
OutByte （1） = HCA
OutByte （2） = 0
OutByte （3） = 2
End If
k = k + 1
If k > 24 Then
k = 1
End If
MSComm. InBufferCount = 0 ∥清除接收缓冲区数据
MSComm. OutBufferCount = 0 ∥清除发送缓冲区数据
MSComm. Output = OutByte
For j = 1 To 3
OutByte again （ j） = OutByte （ j）
Next
For i = 1 To 50000000
'延时Next
End Sub
Private Sub Timer1 Timer
Timer1. Enabled = False
Text_SEND. Text = "" ∥清空发送文本框
MSComm. OutBufferCount = 0 ∥清除发送缓冲区数据
Dim OutByte （1 To 3） AsByte
IfNotMSComm. PortOpen Then ∥保证串口打开
MSComm. PortOpen = True
End If
'24台积算仪循环数据采集
If k = 1 Then
OutByte （1） = HCA
OutByte （2） = 0
OutByte （3） = 1
End If
If k = 2 Then
OutByte （1） = HCA
OutByte （2） = 0
OutByte （3） = 2
End If
??
k = k + 1
If k > 24 Then
k = 1
End If
MSComm. InBufferCount = 0 ∥清除接收缓冲区数据
MSComm. OutBufferCount = 0 ∥清除发送缓冲区数据
MSComm. Output = OutByte
For j = 1 To 3
OutByte again （ j） = OutByte （ j）
Next
For i = 1 To 50000000
'延时Next
End Sub
④ 容错模块。通过增加数据采集容错模块，保证数据采集的实时性、准确性，提高系统工作可靠性。
⑤ 数据库模块。主要利用Access数据库，实现对计算机采集数据存储、管理、分析及历史数据的查询等。
⑥ 其他程序模块。主要完成发送、接收文本框的清空工作等。
通过上述几个模块的协调工作，就可以较好地实现VB与智能仪表间的串行通信、数据分析及历史数据查询等。
3 结束语
通过VB与智能仪表间的串行通信及组态王与VB间的DDE通信，并利用组态王丰富的图形和组态工艺，较好地完成了数据的实时刷新、各种曲线、报警的显示。运行结果表明，该系统具有友好的人机界面，良好的稳定性、可靠性，较好地解决了组态王与一般智能仪表间的实时通信问题，实现了组态王对智能化仪表的实时监控。
评论