以前有几个用户问如何使用VB编程来与我们的KND-K3系.docVIP

modbus?rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。1）????模块文件：modCRC，其中包含了CRC校验的函数。data?????待校验的数组名称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?=?btHiC