MODBUS vb实现.doc

Private Sub btnSend_Click(Index As Integer) Select Case Index Case 0 03命令测试 MsgBox (cmbSlId(0).Text) Label9.Caption = CommandQuery03(cmbSlId(0).Text, Val(cmbRegAdd(0).Text) - 1, cmbDataType(0).Text) lblSlaveStatus(0).Caption = 读从机，等待！ Case 1 16命令测试 If Not IsNumeric(txtWriteData.Text) Then MsgBox (请输入数据！) txtSend(1).Text = txtSend(1).SetFocus Exit Sub End If txtSend(1).Text = CommandQuery16(cmbSlId(1).Text, Val(cmbRegAdd(1).Text), cmbDataType(1).Text, txtWriteData.Text) lblSlaveStatus(1).Caption = 写从机,等待响应 txtReceive(1).Text = Case 2 08命令测试 If Not IsNumeric(txtDignoseAsk.Text) Then MsgBox (请输入数据！) txtSend(2).Text = txtDignoseAsk.Text = txtDignoseAsk.SetFocus Exit Sub End If txtSend(2).Text = CommandQuery08(cmbSlId(2).Text, cmbDataType(2).Text, txtDignoseAsk.Text) lblSlaveStatus(2).Caption = 诊断从机,等待响应 txtReceive(2).Text = txtDignoseBack.Text = Case Else End Select End Sub Private Sub Command1_Click() On Error Resume Next SetPort With MSComm1 If .PortOpen = True Then .PortOpen = False Command1.Caption = 打开串口 Shape1.FillColor = HFF Label11.Caption = 串口已关闭 Label6.Caption = 串口状态：关闭 Else Command1.Caption = 关闭串口 .PortOpen = True Label6.Caption = 串口状态：打开 Shape1.FillColor = HC000 Label11.Caption = 串口已打开 If Err.Number 0 Then Label11.Caption = 串口已使用 Err.Clear End If End If End With MsgBox (MSComm1.PortOpen) End Sub Private Sub SetPort() Dim curPortOpen As Boolean Dim intCommPort As Integer Dim strCheckBit As String Dim