VB6
10進数と2進数を変換する
以下の関数Convert10to2を使うと、10進数を2進数を表現する文字列に変換できる。
たとえば、Convert10to2(5) = "101" となる。
'■Convert10to2
'■機能:10進数を2進数に変換する。
Private Function Convert10to2(Value As Long) As String
Dim lngBit As Long
Dim strData As String
Do Until (Value < 2 ^ lngBit)
If (Value And 2 ^ lngBit) <> 0 Then
strData = "1" & strData
Else
strData = "0" & strData
End If
lngBit = lngBit + 1
Loop
Convert10to2 = strData
End Function
以下の関数Convert2to10を使うと、2進数を表現する文字列を10進数に変換できる。
たとえば、Convert2to10("101") = 5 となる。
'■Convert2to10
'■機能:2進数を10進数に変換する。
Private Function Convert2to10(Value As String) As Long
Dim Ret As Long
Dim K As Long
Dim X As Long
For K = 1 To Len(Value)
If Mid(Value, Len(Value) - K + 1, 1) = "1" Then
X = 2 ^ (K - 1)
Ret = Ret + X
End If
Next K
Convert2to10 = Ret
End Function