vb串口调试助手,源码下载 Private Sub CmdSendFile_Click() '发送文件 On Error GoTo Err If MSComm1.PortOpen = True Then ' 如果串口打开了，则可以发送数据 If FileData = "" Then ' 判断发送数据是否为空 MsgBox "发送的文件为空", 16, "串口调试助手" ' 发送数据为空则提示 Else If ChkHexReceive.Value = 1 Then ' 如果按十六进制接收时，按二进制发送，否则按文本发送 MSCom m1.InputMode = comInputModeBinary ' 二进制发送 Else MSComm1.InputMode = comInputModeText ' 文本发送 End If MSComm1.Output = Trim(FileData) ' 发送数据 ModeSend = True ' 设置文本发送方式 End If Else MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口 End If Err: End Sub '==================================================================================== ' 发送文本数据 '==================================================================================== Private Sub CmdSend_Click() ' 发送按钮 On Error GoTo Err If MSComm1.PortOpen = True Then ' 如果串口打开了，则可以发送数据 If TxtSend.Text = "" Then ' 判断发送数据是否为空 MsgBox "发送数据不能为空", 16, "串口调试助手" ' 发送数据为空则提示 Else If ChkHexSend.Value = 1 Then ' 发送方式判断 MSComm1.InputMode = comInputModeBinary ' 二进制发送 Call hexSend ' 发送十六进制数据 Else ' 按十六进制接收文本方式发送的数据时，文本也要按二进制发送发送 If ChkHexReceive.Value = 1 Then MSComm1.InputMode = comInputModeBinary ' 二进制发送 Else MSComm1.InputMode = comInputModeText ' 文本发送 End If MSComm1.Output = Trim(TxtSend.Text) ' 发送数据 ModeSend = False ' 设置文本发送方式 End If End If Else MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口 End If Err: End Sub m1.InputMode = comInputModeBinary ' 二进制发送 Else MSComm1.InputMode = comInputModeText ' 文本发送 End If MSComm1.Output = Trim(FileData) ' 发送数据 ModeSend = True ' 设置文本发送方式 End If Else MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口 End If Err: End Sub '==================================================================================== ' 发送文本数据 '==================================================================================== Private Sub CmdSend_Click() ' 发送按钮 On Error GoTo Err If MSComm1.PortOpen = True Then ' 如果串口打开了，则可以发送数据 If TxtSend.Text = "" Then ' 判断发送数据是否为空 MsgBox "发送数据不能为空", 16, "串口调试助手" ' 发送数据为空则提示 Else If ChkHexSend.Value = 1 Then ' 发送方式判断 MSComm1.InputMode = comInputModeBinary ' 二进制发送 Call hexSend ' 发送十六进制数据 Else ' 按十六进制接收文本方式发送的数据时，文本也要按二进制发送发送 If ChkHexReceive.Value = 1 Then MSComm1.InputMode = comInputModeBinary ' 二进制发送 Else MSComm1.InputMode = comInputModeText ' 文本发送 End If MSComm1.Output = Trim(TxtSend.Text) ' 发送数据 ModeSend = False ' 设置文本发送方式 End If End If Else MsgBox "串口没有打开，请打开串口", 48, "串口调试助手" ' 如果串口没有被打开，提示打开串口 End If Err: End Sub