VB编写的ModbusRTU协议通讯源程序.docxVIP

VB编写的Modbus RTU协议通讯源程序 VB编写的Modbus RTU协议通讯源程序 sunwu建议删除该贴！！丨收藏丨回复 修改 | 2005-12-09 12:37:09楼主modbus rtu协议叮以算是一种事实上 的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如 何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo 程序。这次把这个demo共享，希望能给大家一点帮助。 1) 模块文件：modCRC,其中包含了 CRC校验的函数。 delta 待校验的数组名称 no 数组中元素个数 btLoCRC 算出的CRC高字节 btHiCRC 算出的CRC低字节 Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String Dim CL As Byte, CH As Byte HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer btHiCRC = HFF btLoCRC 二 HFF CL = H1 CH 二 HA0 For i = 0 To (no - 1) btHiCRC 器进行异或 btHiCRC Xor data(i) J 每一个数据与 CRC 寄存 For Flag = 0 To 7 SaveHi = btLoCRC SaveLo = btHiCRC btLoCRC = btLoCRC \ 2 btHiCRC 二 btHiCRC \ 2 高位右移一位 低位右移一位 一位为1 前面补1 If ((SaveHi And H1)二 H1) Then 如果高位字节最后 btHiCRC二btHiCRC Or H80 则低位字节右移后 End If 否则自动补0 If ((SaveLo And II1) = 1I1) Then 如果 LSB 为 1,则 与多项式码进行异或 btLoCRC = btLoCRC Xor CH btHiCRC 二 btHiCRC Xor CL End If Next Flag Next i Dim ReturnData(l) As Byte ReturnData(O) = btHiCRC ReturnData(l)二 btLoCRC CalCRC16Fast = ReturnData End Function Public Function CalCRC16Tbl(data() As Byte, no As Integer, btLoCRC As Byte, btlliCRC As Byte) As String Dim btLoCRC As Byte Dim btlliCRC As Byte btLoCRC 二 HFF btHiCRC = HFF Dim i As Integer Dim ilndex As Long For i = 0 To (no 一 1) 订ndex 二 btHiCRC Xor data(i) btHiCRC 二 btLoCRC Xor GetCRCLo(ilndex) 低位 处理 高位 高位 处理 Next i Dim ReturnData(1) As Byte ReturnData(0) = btHiCRC ReturnData (1)二 btLoCRC CalCRC16Tbl = ReturnData End Function CRC低位字节值表 Function GetCRCLo(Ind As Long) As Byte GetCRCLo = Choose(Ind + 1, H0, HC1, H81, H40, H1, HC0, H80, H41, H1, HC0, _ H80, H41, H0, HC1, H81, H40, H1, HC0, H80, H41, _ H0, HC1, H81, H40, H0, HC1, H81, II40, 1I1, IIC0, _ II80, II41, II1, IIC0, II80, 1I41, II0, HC1, H81, H40, _ II0, IIC1, II81, II40, II1, IIC0, II80, H41, H0, HC1, _ H81, H40, H1, HC0, H80, H41, H1, IIC0, 1I80, II41, _ H0, HC1, H81, H40, H1, HC0, H80, H41, H0, HC1, _ II81, II40, II0, IIC1, II81, II40, II1, HC0, H80,