VB程序 - 基于Modbus协议的串口通讯程序_RS485总线系统应用

VB语言设计的上述实例的串口通讯程序清单

Private Declare Function timeGetTime Lib “winmm.dll” （） As Long

Public btLoCRC As Byte， btHiCRC As Byte， t0 As Long， t1 As Long， t2 As Long， t3 As Long

Public Rnumber As Integer， ii As Integer， i As Integer， j As Integer， k As Integer， ReadT， Crc

Dim TemperatureData（10）， HumidityData（10）

Private Sub Form_Load（）

Me.Height = 6660

Rnumber = 10 ‘房间数量（每个房间装1块温湿度表）

ReadT = 10 ’每10秒读一轮温湿度表数据

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False ‘如果串口1是打开状态则关闭它

With MSComm1 ’设置串口参数

.CommPort = 1 ‘指定使用串口1

.Settings = “9600，N，8，1” ’波特率9600bit/s，无校验，8个数据位，1个停止位

.InputMode = comInputModeBinary ‘发送二进制数值（=comInputModeText为发送字符）

.InputLen = 50 ’从接收缓冲区中可一次性读取的数据个数

.InBufferCount = 0 ‘清空接收缓冲区

.OutBufferCount = 0 ’清空发送缓冲区

.RThreshold = 5 + 2 * 2 ‘设置成接收9个字节就产生OnComm事件

.InBufferSize = 512 ’设置接收缓存区容量

.OutBufferSize = 512 ‘设置发送缓存区容量

MSComm1.PortOpen = True ’打开串口1

End With

Timer1.Interval = 100 ‘定时器1定时100毫秒

Timer1.Enabled = True ’定时器1开始计时

End Sub

Private Sub Timer1_Timer（） ‘定时发送（读数据的）命令

Timer1.Enabled = False ’定时器1停止计时

t0 = timeGetTime ‘从系统取得当前 （开始读温湿度表） 时刻

Dim tbisend（7） As Byte ’定义发送数据的数组

If MSComm1.PortOpen = True Then

For k = 1 To Rnumber ‘依次向各个房间的温湿度表发送读命令

ii = k