如何通过串口接收数值0.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 17 行

先 把 串 口 通 讯 控 件 的 "InputMode" 设 置 为 "1-comInputModebinary"'此 参 数 为 以 二 进 制 方 式 接 收 。 
    "NullDiscard"设 置 为 false’ 此 参 数 允 许 0H传 输 到 缓 冲 区 。 
    "RThreshold"设 置 为 1'此 参 数 为 当 收 到 任 一 字 符 时 均 产 生 "Oncomm"事 件 。 
    示 例 ： 
    Private Sub MSComm1_OnComm() 
    Dim a As Variant, b() As Byte, i As Integer 
    If MSComm1.InBufferCount > 0 Then '缓 冲 区 内 有 数 据 
    a = MSComm1.Input 
    b = a 'b即 为 所 收 到 的 数 据 数 组 ， 数 据 为 ASCII码 的 数 值 
    For i = 0 To UBound(b) - 1 
    If b(i) = 0 And b(i + 1) = 0 Then 
    '此 行 可 编 写 代 码 将 数 字 转 化 为 ASCII码 
    End If '判 断 包 结 束 同 理 
    Next i 
    End If 
    End Sub 
<END>