看看我用VB做的MSCOMM串口通信为什么不好用?

Question

代码如下:
Private Sub Command1_Click()
If ComSelect.Text = "SELECT COM" Then
   MsgBox ("Please Select COM Port")
Else
    MSComm1.OutBufferCount = 0 
    MSComm1.Output = Text1.Text 
    Text1.Text = ""
End If
End Sub
-----------------------------------------------------------
Private Sub ComSelect_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = Replace(ComSelect.Text, "COM", "")
MSComm1.Settings = "9600,n,8,1" 
MSComm1.PortOpen = True
End Sub
------------------------------------------------------------
Private Sub Mscomm1_Oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive 
MSComm1.InputMode = comInputModeText
Text2.Text = MSComm1.Input
MSComm1.InBufferCount = 0 
End Select
End Sub
按发送怎么都收不到啊,各位请指点12

Answer 1

你的代码经检查，存在较多错误：
1）Mscomm控件的Oncomm事件发生的必要条件RThreshold 属性未作设置      
解释：RThreshold 属性
在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。
当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。
2）如果你是试自发自收，则串口的2与3脚应短接。
以下给出能接收收的代码：
Option Explicit
Private Sub Command1_Click()
    MSComm1.OutBufferCount = 0
    MSComm1.Output = Text1.Text
    Text1.Text = ""
End SubPrivate Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.RThreshold = 1
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End SubPrivate Sub MSComm1_OnComm()
    Select Case MSComm2.CommEvent
        Case comEvReceive
            MSComm1.InputMode = comInputModeText
            Text2.Text = MSComm2.Input
            MSComm1.InBufferCount = 0
        End Select
End Sub

Answer 2

Option Explicit 
Private Sub Command1_Click() 
    MSComm1.OutBufferCount = 0 
    MSComm1.Output = Text1.Text 
    Text1.Text = "" 
End Sub Private Sub Form_Load() 
    MSComm1.CommPort = 1 
    MSComm1.RThreshold = 1 
    MSComm1.Settings = "9600,n,8,1" 
    MSComm1.PortOpen = True 
End Sub Private Sub MSComm1_OnComm() 
    Select Case MSComm2.CommEvent 
        Case comEvReceive 
            MSComm1.InputMode = comInputModeText 
            Text2.Text = MSComm1.Input 
            MSComm1.InBufferCount = 0 
        End Select 
End Sub