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