Returns a character's bit pattern as a string.

by TWLambe (3 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 25^th May 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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




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

Download this snippet Add to My Saved Code

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

No comments have been posted about Returns a character's bit pattern as a string.. Why not be the first to post a comment about 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. Comments

Post your comment

Difficulty