[VB] 16진수 문자열 → 2진수 문자열 구하기

■ 16진수 문자열 → 2진수 문자열로 구하는 방법을 보여준다.

▶ 예제 코드 (VB)


Public Function GetBinaryCode(ByVal strHexadecimalCode As String) As String

    Dim nHexadecimalStringLength As Integer
    Dim nTemporaryNumber         As Integer
    Dim strResult                As String
    Dim I                        As Integer
    Dim J                        As Integer

    nHexadecimalCodeLength = Len(strHexadecimalCode)

    For I = 1 To nHexadecimalCodeLength

        nTemporaryNumber = CInt("&H" & Mid(strHexadecimalCode, I, 1))

        For J = 3 To 0 Step -1

            If nTemporaryNumber >= 2 ^ J Then

                strResult = strResult & "1"

                nTemporaryNumber = nTemporaryNumber - 2 ^ J

            Else

                strResult = strResult & "0"

            End If

        Next J

    Next I

    GetBinaryCode = strResult

End Function

Public Function GetBinaryCode(ByVal strHexadecimalCode As String) As String

Dim nHexadecimalStringLength As Integer

Dim nTemporaryNumber As Integer

Dim strResult As String

Dim I As Integer

Dim J As Integer

nHexadecimalCodeLength = Len(strHexadecimalCode)

For I = 1 To nHexadecimalCodeLength

nTemporaryNumber = CInt("&H" & Mid(strHexadecimalCode, I, 1))

For J = 3 To 0 Step -1

If nTemporaryNumber >= 2 ^ J Then

strResult = strResult & "1"

nTemporaryNumber = nTemporaryNumber - 2 ^ J

Else

strResult = strResult & "0"

End If

Next J

Next I

GetBinaryCode = strResult

End Function