电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

MODBUSvb实现VIP免费

MODBUSvb实现_第1页
1/18
MODBUSvb实现_第2页
2/18
MODBUSvb实现_第3页
3/18
Priv ate Su b btnSend_Click(Index As Integer) Select Case Index Case 0 '03 命令测试 ' MsgBox (cmbSlId(0).Tex t) Label9.Caption = CommandQu ery 03(cmbSlId(0).Tex t, Val(cmbRegAdd(0).Tex t) - 1, cmbDataTy pe(0).Tex t) lblSlav eStatu s(0).Caption = "读从机,等待!" Case 1 '16 命令测试 If Not IsNu meric(tx tWriteData.Tex t) Then MsgBox ("请输入数据!") tx tSend(1).Tex t = "" tx tSend(1).SetFocu s Ex it Su b End If tx tSend(1).Tex t = CommandQu ery 16(cmbSlId(1).Tex t, Val(cmbRegAdd(1).Tex t), cmbDataTy pe(1).Tex t, tx tWriteData.Tex t) lblSlav eStatu s(1).Caption = "写从机,等待响应" tx tReceiv e(1).Tex t = "" Case 2 '08 命令测试 If Not IsNu meric(tx tDignoseAsk.Tex t) Then MsgBox ("请输入数据!") tx tSend(2).Tex t = "" tx tDignoseAsk.Tex t = "" tx tDignoseAsk.SetFocu s Ex it Su b End If tx tSend(2).Tex t = CommandQu ery 08(cmbSlId(2).Tex t, cmbDataTy pe(2).Tex t, tx tDignoseAsk.Tex t) lblSlav eStatu s(2).Caption = "诊断从机,等待响应" tx tReceiv e(2).Tex t = "" tx tDignoseBack.Tex t = "" Case Else End Select End Su b Priv ate Su b Command1_Click() On Error Resu me Nex t SetPort With MSComm1 If .PortOpen = Tru e Then .PortOpen = False Command1.Caption = "打开串口" Shape1.FillColor = &HFF& Label11.Caption = "串口已关闭" Label6.Caption = "串口状态:关闭" Else Command1.Caption = "关闭串口" .PortOpen = Tru e Label6.Caption = "串口状态:打开" Shape1.FillColor = &HC000& Label11.Caption = "串口已打开" If Err.Nu mber <> 0 Then Label11.Caption = "串口已使用" Err.Clear End If End If End With 'MsgBox (MSComm1.PortOpen) End Su b Priv ate Su b SetPort() Dim cu rPortOpen As Boolean Dim intCommPort As Integer Dim strCheckBit As String Dim strSettings As String Dim i As Integer Select Case Combo1.Tex t Case "COM1" intCommPort...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部