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