Comm.Count

应用示例

'!TITLE“通过数据通信功能获取来自接收缓冲区的可读取的数据字节数”
'获取来自线路编号1接收缓冲区的可读取的数据字节数
Sub Sample_CommCount 

  Dim aaa As Integer
  Dim bbb As String
 
  '打开线路编号1（假设为文本模式）  
  Comm.Open 1

  Do
    '在aaa中代入来自线路编号1接收缓冲区的可读取的数据字节数
    aaa = Comm.Count( 1 )
    If aaa > 0 Then '如果有接收数据，则获取
      bbb = Comm.Input( 1 )
      PrintDbg bbb
      Exit Do
    End If
    Delay 10
  Loop

  '关闭线路编号1
  Comm.Close 1

End Sub