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

V B 控 件 M s c o m m 控 件 与 P L C 进 行 R S 4 8 5 ( M o d b u s ) 通 讯 源 码 本人用的是 ModbusRTU 通讯模式，通过计算机串口转 RS485 与外围设备通行通讯，读写外围设备指定地址里的数据，从而达到自动化控制远端设备。 DimHiByteAsByte DimLoByteAsByte DimCRC16LoAsByte DimCRC16HiAsByte DimReturnData(1)AsByte DimKAsInteger DimCmdLenthAsInteger PrivateSubCommand1_Click() K=Text9.Text写 Text13.Text= 6 个字节 ===========数组赋值输入代码 =============================================================================== ======== 算 法 一 DimWriteStr()AsByte DimuAsInteger ReDimWriteStr(K+2) Foru=0ToK WriteStr(u)=Val(HText1(u).Text) Next 算 法 二 DimCRC_2()AsByte DimvAsInteger ReDimCRC_2