ModBUS协议通讯的应用

0x7C, 0xB4, 0x74, 0x75, 0xB5,

0x77, 0xB7, 0xB6, 0x76, 0x72, 0xB2, 0xB3, 0x73, 0xB1, 0x71,

0x70, 0xB0, 0x50, 0x90, 0x91, 0x51, 0x93, 0x53, 0x52, 0x92,

0x96, 0x56, 0x57, 0x97, 0x55, 0x95, 0x94, 0x54, 0x9C, 0x5C,

0x5D, 0x9D, 0x5F, 0x9F, 0x9E, 0x5E, 0x5A, 0x9A, 0x9B, 0x5B,

0x99, 0x59, 0x58, 0x98, 0x88, 0x48, 0x49, 0x89, 0x4B, 0x8B,

0x8A, 0x4A, 0x4E, 0x8E, 0x8F, 0x4F, 0x8D, 0x4D, 0x4C, 0x8C,

0x44, 0x84, 0x85, 0x45, 0x87, 0x47, 0x46, 0x86, 0x82, 0x42,

0x43, 0x83, 0x41, 0x81, 0x80, 0x40

｝ ;　

（3）、Modbus消息帧：

传输设备将Modbus消息转为有起点和终点的帧，这就允许接收的设备在消息起始处开始工作，读地址分配信息，判断哪一个变量被选中，判知何时信息已完成。部分消息也能侦测到错误并且能设置为返回结果。使用RTU模式，消息发送至少要以3.5个字符时间的停顿间隔开始。传输的第一个域是变量地址。可以使用的传输字符是十六进制的0...9,A...F。网络设备不断侦测网络总线，包括停顿间隔时间内。当第一个域（地址域）接收到，每个设备都进行解码以判断是否发往自己的。在最后一个传输字符之后，一个至少3.5个字符时间的停顿标定了消息的结束。一个新的消息可在此停顿后开始。

整个消息帧必须作为一连续的流转输。如果在帧完成之前有超过1.5个字符时间的停顿时间，接收设备将刷新不完整的消息并假定下一字节是一个新消息的地址域。同样地，如果一个新消息在小于3.5个字符时间内接着前个消息开始，接收的设备将认为它是前一消息的延续。这将导致一个错误，因为在最后的CRC域的值不可能是正确的。所以在通讯端口初始化时，Timer1定时间隔设置为500ms（根据PLC传输字的延迟时间决定）。

（4）、代码实现过程：

在公共模块做下面函数声明：

Declare Function W_checkCRC Lib "checkCRC.dll" （ByVal data0 As String,_ ByVal data1 As Integer ） As String

以下是设置/读取开关量状态：

Private Sub Timer1_Timer（）

Dim inbyte（） As Byte, outbyte（） As Byte

Dim ReturnB As Boolean

If ReturnB Then

ReturnB = False

If MSComm1.InBufferCount > 0 Then

inbyte = MSComm1.Input

n = UBound（inbyte）

If n >= 1 and inbyte（3）>”03” Then ‘判断是否有有数据读取及功能代码是否含有错误

If inbyte（5） and 1 then ‘开关量位处理

If inbyte（5） and 2 then ‘开关量位处理

If inbyte（5） and 4 then ‘开关量位处理

……

End If

End If

Else

‘发送主设备查询消息

ReDim outbyte（6）

outbyte（0） = addr1 ‘设备地址

outbyte（1） = option ‘功能代码

outbyte（2） = 1 ‘数据量

outbyte（3） = data1 ‘数据

‘以下是校验码

outbyte（4） = left（W_checkCRC（add1 add2 option “1” _ data1,2）

outbyte（5） = Mid（W_checkCRC（add1 add2 option “1” _ data1,3,2）

MSComm1.InBufferCount = 0

MSComm1.Output = outbyte

End If

End Sub

三、结束语

ModBus协议在工业控制系统中已经应用十分广泛，但在多数系统中使用的是由专业供应商提供的组态软件，有时候使用组态软件提供的数据格式并不能达到要求，直接使用ModBus协议进行数据通讯是十分有用的。

参考书目：

1、AC31 SOFTWARE www.abb.com/lowvoltage
2、《VB开发人员指南》 Eric Brierley 1999-01 机械工业出版社