基于組態(tài)王和VB的智能儀表實時監(jiān)控系統(tǒng)
加入技術交流群
該模塊中的OnComm 函數響應程序如下：
Private Sub Timer1 Timer
Timer1. Enabled = False
Text_SEND. Text = "" ∥清空發(fā)送文本框
MSComm. OutBufferCount = 0 ∥清除發(fā)送緩沖區(qū)數據
Dim OutByte （1 To 3） AsByte
IfNotMSComm. PortOpen Then ∥保證串口打開
MSComm. PortOpen = True
End If
'24臺積算儀循環(huán)數據采集
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 ∥清除接收緩沖區(qū)數據
MSComm. OutBufferCount = 0 ∥清除發(fā)送緩沖區(qū)數據
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 = "" ∥清空發(fā)送文本框
MSComm. OutBufferCount = 0 ∥清除發(fā)送緩沖區(qū)數據
Dim OutByte （1 To 3） AsByte
IfNotMSComm. PortOpen Then ∥保證串口打開
MSComm. PortOpen = True
End If
'24臺積算儀循環(huán)數據采集
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 ∥清除接收緩沖區(qū)數據
MSComm. OutBufferCount = 0 ∥清除發(fā)送緩沖區(qū)數據
MSComm. Output = OutByte
For j = 1 To 3
OutByte again （ j） = OutByte （ j）
Next
For i = 1 To 50000000
'延時Next
End Sub
④ 容錯模塊。通過增加數據采集容錯模塊，保證數據采集的實時性、準確性，提高系統(tǒng)工作可靠性。
⑤ 數據庫模塊。主要利用Access數據庫，實現對計算機采集數據存儲、管理、分析及歷史數據的查詢等。
⑥ 其他程序模塊。主要完成發(fā)送、接收文本框的清空工作等。
通過上述幾個模塊的協(xié)調工作，就可以較好地實現VB與智能儀表間的串行通信、數據分析及歷史數據查詢等。
3 結束語
通過VB與智能儀表間的串行通信及組態(tài)王與VB間的DDE通信，并利用組態(tài)王豐富的圖形和組態(tài)工藝，較好地完成了數據的實時刷新、各種曲線、報警的顯示。運行結果表明，該系統(tǒng)具有友好的人機界面，良好的穩(wěn)定性、可靠性，較好地解決了組態(tài)王與一般智能儀表間的實時通信問題，實現了組態(tài)王對智能化儀表的實時監(jiān)控。
評論