3.2 通信功能的編程實(shí)現(xiàn)

　　程序框圖如下：

圖2 串口通信程序框圖

串口初始化：MSComm1.CommPort = 1
MSComm1.SThreshold = 1
MSComm1.Settings = 9600,N,8,1
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 1024
MSComm1.InputMode = comInputModeBinary
打開(kāi)串口并定時(shí)發(fā)送數(shù)據(jù)命令：Private Sub Timer1_Timer（）
Dim bytearray（0 To 7） As Byte
bytearray（0） = &H1
bytearray（1） = &H3
bytearray（2） = &H0
bytearray（3） = &H2
bytearray（4） = &H0
bytearray（5） = &H8
bytearray（6） = &HE5
bytearray（7） = &HCC
MSComm1.InputLen = 21
MSComm1.InBufferCount = 0
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then
MSComm1.Output = bytearray
End If
End Sub
接受數(shù)據(jù)：Private Sub MSComm1_OnComm（）
Do
DoEvents
Loop Until MSComm1.InBufferCount = 21
Dim dataread（） As Byte
Dim tempdata As Variant
Dim str As String
If MSComm1.CommEvent = comEvReceive Then
tempdata = MSComm1.Input
ReDim dataread（UBound（tempdata）） As Byte
For i = 0 To UBound（tempdata）
dataread（i） = tempdata（i）
End Sub
同理利用以上程序框圖和通信協(xié)議可以完成下圖的所有功能：

圖3 基于VB的D08-8CZM型流量積算儀

4、結(jié)束語(yǔ)

　　利用VB6.0的MSComm 控件和MODBUS協(xié)議，實(shí)現(xiàn)了工控機(jī)與帶RS－232輸出接口的智能數(shù)字流量積算儀之間的串口通信功能，使其能夠?qū)崟r(shí)的采集瞬時(shí)流量，并成功的應(yīng)用于底吹氬流量閉環(huán)控制系統(tǒng)。這種通信方式靈活方便，結(jié)構(gòu)簡(jiǎn)單，可靠性高，完全達(dá)到了預(yù)期的要求，具有較好的實(shí)際價(jià)值和使用性。