表紙 > VB6 サンプル >

VB6

10進数と2進数を変換する

１．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

２．2進数→10進数

以下の関数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