谁能共享一下VB语言编写RS485串口通讯源代码？

If MSComm1.PortOpen = True Then MSComm1.PortOpen = False

MSComm1.CommPort = i1

MSComm1.PortOpen = True

MSComm1.InputMode = comInputModeBinary

MSComm1.InBufferCount = 0

MSComm1.InputLen = 0

MSComm1.Settings = "9600,N,8,1"

MSComm1.RThreshold = 1

MSComm1.OutBufferCount = 0

无论您是否了解MODBUS通讯协议，拥有了本源码，都可以快速编制VB6.0的MODBUS RTU方式通讯程序，当然，您也可以利用本源码学习MODBUS通讯协议

此源码为本店主编制。

店主在上位机与PLC、仪表等控制器通讯方面有十多年的实践经历，编程经验丰富，通讯处理思路独特，编制的通讯程序稳定，快速！

我的源码都是敬派清开放的，您完全可以看到发送与接收的信息，完全可以利用源码学会MODBUS通讯协议！

购买本程序，店主提供一个月的技术帮助（从您购买之日算起），帮助您理解MODBUS通讯协议！

发货方式：发到您的QQ信箱或是直接用阿里旺旺传送！

学会本源码，您可以编制MODBUS通讯协议的羡余：

01 、02 、03 、04 、05 、06、0F、10 这八种功能码的MODBUS通讯协议VB6.0程序亮前。

RS485通讯程序的孝顷编程和RS232类似，对于你采用的是半双工通讯，那老族么就是接收巧含陆时不能发送，

按照你的图纸，你发送的U4的2,3管脚接在什么地方了？这个脚是控制接收还是发送的管脚。

在这里你要规定通讯协议，RS485只是一个物理层协议。通讯程序和RS232通讯程序基本相同，只是要对U4的2,3连接的口进行置高为发送，低为接收。

---