***********************************
'** ¡¾×Ö½Ú(Bytes)Óëλ(Bits)ת»»¶Áдº¯Êý¡¿**
'***********************************
'
'==================================================================================================================
'×Ö½Ú£¨ByteÊ®½øÖÆÖµ£©×ª»»Îª8λ¶þ½øÖÆ
'µ÷ÓÃʾÀý£ºDebug.Print AxBin(42) £½ "00101010"
Private Function AxBin(byteBin As Byte) As String
          Dim X As Double
          Dim str1 As String
          
          X = CByte(byteBin)
          
          Do
              str1 = (X And 1) & str1
              X = X \ 2
          Loop While X

          If Len(str1) > 8 Then str1 = Left$(str1, 8)
          
          Do Until Len(str1) = 8  '²¹×ã8λ
               str1 = 0 & str1
          Loop
          
          AxBin = str1
          
End Function
'==================================================================================================================
'8λ¶þ½øÖÆת»»Îª×Ö½Ú£¨Byte£©,¼´Ê®½øÖÆÖµ
'µ÷ÓÃʾÀý£ºDebug.Print OxBin("00101010") £½ 42
Private Function OxBin(strBin As String) As Byte
    Dim iCount As Long
    Dim tmpVal As Double
    Dim tmpV As String
    
    tmpV = Trim$(strBin)
    
    'ÿ×Ö½ÚÊÇ8λ
    If Len(tmpV) > 8 Then
       tmpV = Left$(tmpV, 8)
    ElseIf Len(tmpV) < 8 Then
       Do Until Len(tmpV) = 8  
          tmpV = 0 & tmpV
       Loop
    End If

    For iCount = 1 To Len(tmpV)  'ÏÂÃæ¿ÉÊÇÖصã:ʵÏÖ2^7+2^6+2^5+2^4+2^3+2^1+2^0
        tmpVal = Val(tmpVal) + Val(Mid$(tmpV, iCount, 1)) * (2 ^ (Len(tmpV) - iCount))
    Next iCount  'val()·µ»ØÊýÖµ,mid$()´ÓÒ»¸ö×Ö·û´®Öзµ»ØÖ¸¶¨µÄ×Ö·û icountÊÇÉèÖôӵڼ¸¸ö×Ö·û¿ªÊ¼,1ÊÇÖ¸»ñÈ¡1¸ö×Ö·û    ýÖ
    
    OxBin = CByte(tmpVal)
    
End Function
'==================================================================================================================
'¶ÁÈ¡×Ö½Ú£¨bByte£©µÄµÚ£¨bNum£©Î»µÄÖµ£¬bNum·¶Î§£º1£­8 Ö®¼ä
'µ÷ÓÃʾÀý£ºDebug.Print ReadByteX(42, 5) £½ 1
Public Function ReadByteX(bByte As Byte, bNum As Integer) As Integer   '½á¹ûΪ1¡¢0
    Dim str1 As String
    
    'ת»»³Éλ
    str1 = AxBin(bByte)
    
    'bNum·¶Î§£º1£­8 Ö®¼ä
    If bNum = 0 Then bNum = 1
    If bNum > 8 Then bNum = 8
    
    'ÇóÖµ
    str1 = Mid$(str1, bNum, 1)
    ReadByteX = CLng(str1)
    
End Function
'==================================================================================================================
'дÈë×Ö½Ú£¨bByte£©µÄµÚ£¨bNum£©Î»µÄÖµ£¨bInt1£©£¬bNum·¶Î§£º1£­8 Ö®¼ä£¬bInt1·¶Î§£º0£­1 Ö®¼ä
'µ÷ÓÃʾÀý£ºDebug.Print ReadByteX(42, 5, 0) £½ 34
Public Function WriteByteX(bByte As Byte, bNum As Integer, bInt1 As Integer) As Byte
    Dim i As Integer
    Dim str1 As String, str2 As String
    
    'ת»»³Éλ
    str1 = AxBin(bByte)
    
    'bNum·¶Î§£º1£­8 Ö®¼ä
    If bNum = 0 Then bNum = 1
    If bNum > 8 Then bNum = 8
    
    'bInt1·¶Î§£º0£­1 Ö®¼ä
    If bInt1 < 0 Then bInt1 = 0
    If bInt1 > 1 Then bInt1 = 1

    'дÈë×ֽڵĵڣ¨bNum£©Î»µÄÖµ£¨bInt1£©
    For i = 1 To 8
        If i <> bNum Then
           str2 = str2 & Mid$(str1, i, 1)
        Else
           str2 = str2 & CStr(bInt1)
        End If
    Next
    
    'ת»»³ÉеÄ×Ö½Ú£¨Byte£©
    WriteByteX = OxBin(str2)
    
End Function