Modbus 通讯协议编程 WW.W_PLC※JS_C,OM－PL,C－技.术_网
本人最近为了实现电脑与Delta VFD-M变频器通讯，特意用VB6.0编了一个Modbus协议通讯软件，不过这只是一个测试版，但Modbus的ASCii协议和RTU协议都已经实现。现在将源程序上贴，希望可以帮助到有需要的朋友，谢谢！(我发现图片贴不上去） WWW.PLCJS.COM——可编程控制器技术门户
另外，假如你觉得有更好的想法，欢迎E-mail指教。 P.L.C.技.术.网——可编程控制器技术门户
附：VB6源程序 WWW_PL※CJS_COM－PLC－技.术_网
Option Explicit WWW.PLCJS.COM——可编程控制器技术门户
Private Text1text As String P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
Private RTUCRC As String WW.W_PLC※JS_C,OM－PL,C－技.术_网
串口选择 W1WW_P4LCJS_COM－PLC－技.术_网
Private Sub Combo1_Click() ——可——编——程——控－制－器－技——术——门——户
MSComm1.CommPort = Combo1.ListIndex + 1 ——可——编——程——控－制－器－技——术——门——户
End Sub WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
数据位改变 WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
Private Sub Combo2_Click() WWW.PLCJS.COM——可编程控制器技术门户
Call setting WWW_P※LCJS_COM－PLC－)技.术_网
End Sub WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
波特率改变 plcjs.技.术_网
Private Sub Combo3_Click() WWW_PLCJS_COM－PLC－技.术_网
Call setting plcjs.技.术_网
End Sub WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
奇偶校验改变 WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
Private Sub Combo4_Click() WWW_PL※CJS_COM－PLC－技.术_网
Call setting WWW.PLCJS.COM——可编程控制器技术门户
End Sub ——可——编——程——控－制－器－技——术——门——户
停止位改变 P.L.C.技.术.网——可编程控制器技术门户
Private Sub Combo5_Click() WWW_PLC※JS_COM－PmLC－技.术_网
Call setting WW.W_PLC※JS_C,OM－PL,C－技.术_网
End Sub WWW_PLCJS_COM－PLC－技.术_网
Private Sub setting() ——可——编——程——控－制－器－技——术——门——户
MSComm1.Settings = CStr(Combo3.Text) & ',' & CStr(Combo4.Text) & ',' & CStr(Combo2.Text) _ WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
& ',' & CStr(Combo5.Text) WWW_PLCJS_COM－PLC－技.术_网
End Sub WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
打开关闭串口 WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户)
Private Sub Command1_Click() WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
On Error Resume Next WW.W_PLCJS_COM－PLC－技.术_网
If MSComm1.PortOpen = False Then WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
MSComm1.PortOpen = True WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户)
Else WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
MSComm1.PortOpen = False P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户
End If WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
W1WW_P4LCJS_COM－PLC－技.术_网
If MSComm1.PortOpen Then 打开关闭按钮显示文字及combo1使能 WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Command1.Caption = '关闭串口' WWW.PLCJS.COM——可编程控制器技术门户
Combo1.Enabled = False WWW_PLCJS@_COM%－PLC－技.术_网
Else WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户)
Command1.Caption = '打开串口' WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户)
Combo1.Enabled = True WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户)
End If WW.W_PLCJS_COM－PLC－技.术_网