VB控件Mscomm控件与PLC进行RS485通讯源码.docx

VB 控件 Mscomm 控件与 PLC 进行 RS485(Modbus)通讯源码

本人用的是ModbusRTU通讯模式，通过计算机串口转RS485与外围设备通行通讯，读写外围设备指定地址里的数据，从而达到自动化控制远端设备。

DimHiByteAsByteDimLoByteAsByteDimCRC16LoAsByteDimCRC16HiAsByteDimReturnData(1)AsByteDimKAsIntegerDimCmdLenthAsIntegerPrivateSubCommand1_Click()

K=Text9.Text写

Text13.Text=

6个字节

===========数组赋值输入代码

===============================================================================

========

算法一DimWriteStr()AsByteDimuAsIntegerReDimWriteStr(K+2)Foru=0ToK

WriteStr(u)=Val(HText1(u).Text)

Next

算法二DimCRC_2()AsByteDimvAsIntegerReDimCRC_2(K)Forv=0ToK

CRC_2(v)=Val(HText1(v).Text)

Next==============================================================================

====================CallCRC161(CRC_2())

CallCRC16(WriteStr(),K)MSComm1.InBufferCount=0==========显示发送代码

===============================================================================

=========

DimmAsIntegerForm=0To23Ifm=KThen

Text8(m).Text=Hex(WriteStr(m))

ElseText8(m).Text=EndIf

Next==============================================================================

====================

WriteStr(K+1)=LoByteWriteStr(K+2)=HiByte发送代码Text4.Text=DimgAsIntegerForg=0ToK+2

Text4.Text=Text4.Text++Hex(WriteStr(g))

Next

写命令发送后,当接收到8个字节时中断CmdLenth=8MSComm1.RThreshold=CmdLenthMSComm1.Output=WriteStr

EndSubPrivateSubCommand2_Click()End

EndSubPrivateSubCommand3_Click()Label34.Caption==Text13.Text=

K=Text9.Text写 6个字节

===========数组赋值输入代码

===============================================================================

========算法

DimCRC_2()AsByteDimvAsIntegerReDimCRC_2(K)Forv=0ToK

CRC_2(v)=Val(HText1(v).Text)

Next==============================================================================

====================CallCRC161(CRC_2())

CallCRC16(WriteStr(),K)MSComm1.InBufferCount=0==========显示发送代码

===============================================================================

=========

DimmAsIntegerForm=0To23Ifm=KThen

Text8(m).Text=Hex(WriteStr(m))Els