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

《VB编写的ModbusRTU协议通讯源程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB编写的ModbusRTU协议通讯源程序VB编写的ModbusRTU协议通讯源程序sunwu建议删除该贴！！丨收藏丨回复修改

2、2005-12-0912:37:09楼主modbusrtu协议叮以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。1)模块文件：modCRC,其中包含了CRC校验的函数。'delta待校验的数组名称'no数组中元素个数'btLoCRC算出的CRC高字节'btHiCRC算出的CRC低字节PublicFunction

3、CalCRC16Fast(data()AsByte,noAsInteger,btLoCRCAsByte,btHiCRCAsByte)AsStringDimCLAsByte,CHAsByte&HA001DimSaveHiAsByte,SaveLoAsByteDimiAsIntegerDimFlagAsIntegerbtHiCRC=&HFFbtLoCRC二&HFFCL=&H1CH二&HA0Fori=0To(no-1)btHiCRC器进行异或btHiCRCXordata(i)J每一个数据与CRC寄存ForFlag=0To7SaveHi=btLoCRCSaveLo=btHiCRCbtLoCRC=

4、btLoCRC2btHiCRC二btHiCRC2'高位右移一位'低位右移一位一位为1前面补1If((SaveHiAnd&H1)二&H1)Then'如果高位字节最后btHiCRC二btHiCRCOr&H80'则低位字节右移后EndIf'否则自动补0If((SaveLoAnd&II1)=&1I1)Then'如果LSB为1,则与多项式码进行异或btLoCRC=btLoCRCXorCHbtHiCRC二btHiCRCXorCLEndIfNextFlagNextiDimReturnData(l)AsByteReturnData(O)=btHiCRCReturnData(l)二btLoCRCCal

5、CRC16Fast=ReturnDataEndFunctionPublicFunctionCalCRC16Tbl(data()AsByte,noAsInteger,btLoCRCAsByte,btlliCRCAsByte)AsStringDimbtLoCRCAsByteDimbtlliCRCAsBytebtLoCRC二&HFFbtHiCRC=&HFFDimiAsIntegerDimilndexAsLongFori=0To(no一1)订ndex二btHiCRCXordata(i)btHiCRC二btLoCRCXorGetCRCLo(ilndex)'低位处理'高位btLoCRC=GetCRC

6、Hi(ilndex)处理NextiDimReturnData(1)AsByteReturnData(0)=btHiCRCReturnData(1)二btLoCRCCalCRC16Tbl=ReturnDataEndFunction'CRC低位字节值表FunctionGetCRCLo(IndAsLong)AsByteGetCRCLo=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,&H

7、0,&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,&H41,_

8、&H0,&HC1,&H81,&H40,&H1,&HC0,&H80,&II41,&1I1,&IIC0,_&II80,&II41,&II0,&IIC1,&II81,&II40,&II0,&HC1,&H81,&H40,_&II1,&IIC0,&II80,&II41,&II1,&IIC0,&II80,&H41,&H0,&HC1,&H81,&H40,&H1,&HCO,&H80,&H41,&H0,&HC1,&H81,&H40,&II0,&IIC