Modbus 通讯协议编程.doc

Modbus?通讯协议编程本人最近为了实现电脑与Delta?VFD-M变频器通讯，特意用VB6.0编了一个Modbus协议通讯软件，不过这只是一个测试版，但Modbus的ASCii协议和RTU协议都已经实现。现在将源程序上贴，希望可以帮助到有需要的朋友，谢谢！(我发现图片贴不上去）????另外，假如你觉得有更好的想法，欢迎E-mail指教。附：VB6源程序Option?ExplicitPrivate?Text1text?As?StringPrivate?RTUCRC?As?String串口选择Private?Sub?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停止位改变Private?Sub?Combo5_Click()????????Call?settingEnd?SubPrivate?Sub?setting()?????????MSComm1.Settings?=?CStr(Combo3.Text)??,??CStr(Combo4.Text)??,??CStr(Combo2.Text)?_???????????????????????????????????????????,??CStr(Combo5.Text)End?Sub打开关闭串口Private?Sub?Command1_Click()????????On?Error?Resume?Next????????If?MSComm1.PortOpen?=?False?Then????????????MSComm1.PortOpen?=?True????????Else???????????????MSComm1.PortOpen?=?False????????End?If????????????????If?MSComm1.PortOpen?Then????????????????????????????????打开关闭按钮显示文字及combo1使能?????????????Command1.Caption?=?关闭串口?????????????Combo1.Enabled?=?False????????Else??????????????Command1.Caption?=?打开串口??????????????Combo1.Enabled?=?True????????End?If??????????????????If?Err?Then??????????????????????????????????????????????????????????打开串口失败，则显示出错信息???????????????MsgBox?Error$,?48,?错误信息????????????????Exit?Sub???????????End?IfEnd?Sub10转16进制Private?Sub?Command2_Click(Index?As?Integer)?????On?Error?Resume?Next?????????Text4.Text?=?Hex(Text3.Text)???????????If?Err?Then??????????????????????????????????????????????????????????则显示出错信息???????????????MsgBox?Error$,?48,?错误信息????????????????Exit?Sub???????????End?IfEnd?Sub16转10进制Private?Sub?Command3_Click()?????????Dim?a?As?Long?????????a?=?Val(H??CStr(Text4.Text))?????????Text3.Text?=?aEnd?Sub手动串口发送Private?Sub?Command4_Click()?????????If?MSComm1.PortOpen?=?False?Then??????????????????MsgBox?请先打开串口,?,?错误信息????