2進数→１０進数への変換 また その逆

2進数→１０進数への変換　また　その逆
を作成したのですが、どのようにすれば良いのでしょうか？
宜しくお願いいたします

No.5 ベストアンサー 回答者： taisuke555 回答日時： 2004/05/14 20:19

私も考えてみました。

（マイナスについては考慮していません。）
あまりテストしてないので間違えてたらすみません。

'10進→2進
Function FromDecimalToBinary(X As Long) As String
　　Dim Y As String
　　If (X < 0) Then
　　　　Y = "Error"
　　Else
　　　　Do
　　　　　　Y = X Mod 2 & Y
　　　　　　X = X \ 2
　　　　Loop While (X > 0)
　　End If
　　FromDecimalToBinary = Y
End Function
'2進→10進
Function FromBinaryToDecimal(X As String) As Long
　　Dim i As Integer
　　Dim Y As Long
　　'2進チェック
　　If (Replace(Replace(X, "0", ""), "1", "") <> "") Then
　　　　Y = -1
　　Else
　　　　For i = 0 To Len(X) - 1
　　　　　　Y = Y + Mid(X, Len(X) - i, 1) * 2 ^ i
　　　　Next i
　　End If
　　FromBinaryToDecimal = Y
End Function

Private Sub Command1_Click()
　　'10進→2進
Label1 = FromDecimalToBinary(Text1)
End Sub

Private Sub Command2_Click()
　　'2進→10進
Label1 = FromBinaryToDecimal(Text1)
End Sub

No.4 回答者： atokih 回答日時： 2004/05/14 17:53

10進から2進ならなんとか

intTestが10進で、intBit(1 to 16）が2進です


If intTest And &H1 Then
intBit(1) = 1
Else
intBit(1) = 0
End If
If intTest And &H2 Then
intBit(2) = 1
Else
intBit(2) = 0
End If
：
　　以下同様に&H4から&H8000まで

No.3 回答者： bouzugabyoubuni 回答日時： 2004/05/14 17:20

No.２を回答した者ですが、

タイトルだけを拝見してカテゴリを算数の分野と思い込んで夢中で回答してしまいました。

したがってNo.２はＶＢカテでの回答ではございません。
大変失礼いたしました。

No.2 回答者： bouzugabyoubuni 回答日時： 2004/05/14 17:16

ａ進数のｎ桁目の数字がｐ（０≦ｐ≦ａ－１）であるということは、

ａの（ｎ－１）乗がｐあるという意味です。

ものすごくわかりにくい説明なので、例を使って具体的に説明します。

２進数の数「１００１１」を１０進数であらわすとき、

２進数の「１００１１」というのは
２の４乗×１　（＝１６×１　　＝１６
２の３乗×０　（＝８×０　　　＝０
２の２乗×０　（＝４×０　　　＝０
２の１乗×１　（＝２×１　　　＝２
２の０乗×１　（＝１×１　　　＝１
という意味ですから、
これを１０進数であらわすと
（１６＋２＋１＝）１９になります。


また、１０進数の「５８」を２進数であらわしてみると

５８＝３２＋１６＋８＋２
　　＝（２の５乗×１）＋（２の４乗×１）＋（２の３乗×１）＋（２の１乗×１）

ですから、２進数であらわすと１１１０１０です。


ここまでくれば当たり前ですが、１０進数の数字もおなじ意味です。
２６０５３＝２００００＋６０００＋５０＋３
　　　　　＝１００００×２　＋　１０００×６　＋　１０×５　＋　１×３
　　　　　＝（１０の４乗×２）＋（１０の３乗×６）＋（１０の１乗×５）＋（１０の０乗×３）

自分でも説明が下手だと思いますが、わかっていただけたでしょうか。

No.1 回答者： laputart 回答日時： 2004/05/14 17:13

'A を２進数　Bを１０進数とすると

' テキストボックス名を　Text1とする
’ラベルをLabel1とする
'Text1に２進数を代入した時のサブルーチンに
-----------------------
Dim A As String
Dim B As Integer
A = Text1.Text
B=0
'K = 2の乗数とする
K = 0
'LAはテキストA　の長さ
LA = Len(A)

'Aの文字列を右側から0か1かを調べる
For I = LA To 1 Step -1
　'1の場合
　If Mid(A, I, 1) = "1" Then

　　'Bの値を増やす
　　B = B + 2 ^ K
　End If
　K = K + 1
Next I
'Label1に10真数を代入
Label1.Caption = B
---------------------------
考え方でいうとこんなところですか。
プログラムとしてはこのままでは善くないです。
TEXT1の値に01だけの集合であるかの判断が
必要です。

この場合　例えば　
Aに　11 を代入すると
B = 2~0 + 0~1 = 3 となります

８進数や１６進数は関数があります。
-------------------------
１０進数から２進数への変換も必要なら
書きますが．．．いかがですか？

この回答へのお礼

早速のご回答有難うございます
　誠に恐縮ではございますが、宜しくお願いいたします

お礼日時：2004/05/14 18:39