我怎么知道串行口是不是已经发送了信息？？？

Question

Private Sub Command1_Click()
If MSComm1.PortOpen Then MSComm1.PortOpen = False
     MSComm1.CommPort = 1
     MSComm1.Settings = "2400,N,8,1"
     MSComm1.PortOpen = True
     MSComm1.Output = Text1.Text
End Sub'以上是向com1口发送信息，那么我怎么知道是不是信息发送成功呢？进一步怎么知道com口接受的是什么信息呢？请大家帮忙了。刚才发了一个，有乱码。再发一遍

Answer 1

Private Static Sub MSComm1_OnComm()
    Dim btBuffer() As Byte
    Dim i As Integer
    Dim strTemp As String
    Dim EVMsg$
    Dim ERMsg$
    MsgBox "ok"
    Select Case MSComm1.CommEvent
        Case comEvReceive
            btBuffer = MSComm1.Input
            MsgBox ("passed!")
            For i = LBound(btBuffer) To UBound(btBuffer)
               strTemp = strTemp & Chr(CInt(btBuffer(i)))
            Next
            Text2.Text = strTemp
            MSComm1.InBufferCount = 0 
            MSComm1.OutBufferCount = 0 
       End Select
End Sub
现在我这个函数不起作用.是不是我在什么地方出错了.还是串口上要怎么设置呀.真的不懂.

Answer 2

你这收的话，mscomm属性inputlen不能设为0.

Answer 3

触发ONCOMM事件，MSCOMM.RTHRESHOLD不能等于0