Question

怎样把VB中串口的二进制数据都出来并显示二进制数

Answer 1

只要设置MSComm控件的属性InputMode = comInputModeBinary，数据通过 Input 属性以二进制形式取回。
显示为2进制数一般是不采取的，可以显示为16进制的字符串形式，便于阅读。

参考：http://www.vbgood.com/thread-83700-1-1.html

追问

谢谢！我要这个数据在某一位来触发某个事件，该怎么处理呢？

追答

可以通过自定义函数转换：

Option Explicit
    Dim sBin
    Dim sHex
    Dim sHex1
    Dim BinData
    Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"

Public Function HexToBin(ByVal sHex As String) As String '16进制转2进制
    Dim i As Integer, sBin As String
    sHex = UCase(sHex)
    For i = 1 To Len(sHex)
    sBin = sBin & Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)
    Next i
    HexToBin = sBin
    BinData = sBin
End Function

Private Sub Command1_Click()
    sHex = Text1 '16进制字符串
    Call HexToBin(sHex)
    Text2 = BinData '2进制字符串
End Sub