串口调试----上位机 错错错错错！！！！！！

--------------------编程问答-------------------- Private Sub send_Click()
    On Error Resume Next    '简单的错误处理
    If MSComm1.PortOpen = False Then
    MsgBox "串口已关闭"
    exit sub '既然串口是关闭的，则退出过程    End If
    
     MSComm1.InputMode = comInputModeText    
    MSComm1.Output = sendtext.Text             '将发送窗体内的文字送到单片机
'    For i = 0 To Len(sendtext.Text)
'    Sleep 30   '等待30毫秒,避免波特率出现的乱码
'    MSComm1.Output = Mid(sendtext.Text, i, 1)
'    Next i
'    MSComm1.InputMode = comInputModeText    '设置接受模式是文本接受，还是二进制接受
'''MSComm1.Output = sendtext.Text  已经将需要发送的都发送了，不需要再一个一个字符发送，前面的循环是画蛇添足，并且是错误的  
sleep(200)
sRead=mscomm1.input

'上述两句是我添加的，用于读取单片机的返回信息，当然，你可以不用，在OnComm事件中读取End Sub
--------------------编程问答--------------------

引用 1 楼 worldy 的回复:

Private Sub send_Click()
    On Error Resume Next    '简单的错误处理
    If MSComm1.PortOpen = False Then
    MsgBox "串口已关闭"
    exit sub '既然串口是关闭的，则退出过程    End If
    
     MSComm1.InputMode = comInputModeText    
    MSComm1.Output = sendtext.Text             '将发送窗体内的文字送到单片机
'    For i = 0 To Len(sendtext.Text)
'    Sleep 30   '等待30毫秒,避免波特率出现的乱码
'    MSComm1.Output = Mid(sendtext.Text, i, 1)
'    Next i
'    MSComm1.InputMode = comInputModeText    '设置接受模式是文本接受，还是二进制接受
'''MSComm1.Output = sendtext.Text  已经将需要发送的都发送了，不需要再一个一个字符发送，前面的循环是画蛇添足，并且是错误的  
sleep(200)
sRead=mscomm1.input

'上述两句是我添加的，用于读取单片机的返回信息，当然，你可以不用，在OnComm事件中读取End Sub

大侠  谢谢了  

经过你指点 现在好了 

能留个qq么？？  希望能拜您为师

补充：VB ,  基础类