Modbus 通讯协议编程

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

1、Modbus 通讯协议编程本人最近为了实现电脑与Delta VFD-M变频器通讯，特意用VB6.0编了一个Modbus协议通讯软件，不过这只是一个测试版，但Modbus的ASCii协议和RTU协议都已经实现。现在将源程序上贴，希望可以帮助到有需要的朋友，谢谢！(我发现图片贴不上去）    另外，假如你觉得有更好的想法，欢迎E-mail指教。附：VB6源程序Option ExplicitPrivate Text1text As StringPrivate RTUCRC As String'串口选择Private Su

2、b Combo1_Click()              MSComm1.CommPort = Combo1.ListIndex + 1End Sub'数据位改变Private Sub Combo2_Click()        Call settingEnd Sub'波特率改变Private Sub Combo3_Click()        Call settingEnd Sub'奇偶校验改变Private Sub Combo4_Click()        Call settingEnd Sub'停止位改变

3、Private Sub Combo5_Click()        Call settingEnd SubPrivate Sub setting()         MSComm1.Settings = CStr(Combo3.Text) & "," & CStr(Combo4.Text) & "," & CStr(Combo2.Text) _                                          & "Modbus 通讯协议编程本人最近为了实现电脑与Delta VFD-M变频器通讯，特

4、意用VB6.0编了一个Modbus协议通讯软件，不过这只是一个测试版，但Modbus的ASCii协议和RTU协议都已经实现。现在将源程序上贴，希望可以帮助到有需要的朋友，谢谢！(我发现图片贴不上去）    另外，假如你觉得有更好的想法，欢迎E-mail指教。附：VB6源程序Option ExplicitPrivate Text1text As StringPrivate RTUCRC As String'串口选择Private Sub Combo1_Click()              MSComm1.Comm

5、Port = Combo1.ListIndex + 1End Sub'数据位改变Private Sub Combo2_Click()        Call settingEnd Sub'波特率改变Private Sub Combo3_Click()        Call settingEnd Sub'奇偶校验改变Private Sub Combo4_Click()        Call settingEnd Sub'停止位改变Private Sub Combo5_Click()        Call set

6、tingEnd SubPrivate Sub setting()         MSComm1.Settings = CStr(Combo3.Text) & "," & CStr(Combo4.Text) & "," & CStr(Combo2.Text) _                                          & "Modbus 通讯协议编程本人最近为了实现电脑与Delta VFD-M变频器通讯，特意用VB6.0编了一个Modbus协议通讯软件，不过这只是一个测试版，但Modbus

7、的ASCii协议和RTU协议都已经实现。现在将源程序上贴，希望可以帮助到有需要的朋友，谢谢！(我发现图片贴不上去）    另外，假如你觉得有更好的想法，欢迎E-mail指教。附：VB6源程序Option ExplicitPrivate Text1text As StringPrivate RTUCRC As String'串口选择Private Sub Combo1_Click()              MSComm1.CommPort = Combo1.ListIndex + 1End Sub'数据位改变Pr

8、ivate Sub Combo2_Click()        Call settingEnd Sub'波特率改变Private Sub Combo3_Click()        Call settingEnd Sub'奇偶校验改变Private Sub Combo4_Click()        Call settingEnd Sub'停止位改变Priv