• Home
 · 
• Miscellaneous
 · 
• Returns a character's bit pattern as a string.

Returns a character's bit pattern as a string.

Returns a character's bit pattern as a string.

Rate Returns a character's bit pattern as a string.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function BitPattern(sChar) As String
'----------------------------------------------------
'   Function:   BitPattern
'   Author:     TWLambe
'   Date:       25-May-2004
'   Description:
'   ------------
'   Returns a string showing the bit pattern of
'   a supplied character, or 1st. character of
'   a multi-character string.
'----------------------------------------------------
Dim w, x As Integer
Dim sBits As String

    sBits = ""              'clear result
    x = Asc(sChar)          'ASCII value of character
    
    For w = 0 To 7                'for each bit 0-7 :-
        If (x And (2 ^ w)) Then   'apply bit mask for each bit
            sBits = "1" + sBits   'add "1" to result if set
        Else
            sBits = "0" + sBits   'add "0" to result if unset
        End If
    Next w
    
    BitPattern = sBits      'set string return value
    
End Function