No.4ベストアンサー
- 回答日時:
こんにちは。
maruru01です。10進数→n進数変換用関数を自作してみました。
標準モジュールにでも置いて下さい。
'10進数の正の数値Numを、Keta桁のn進数の文字列に変換する
'nは2~16まで
Public Function nShinsuFromD(Num As Long, n As Long, Keta As Long) As String
Dim temp() As Long '各桁の10進数値表現
Dim a As Long '仮置
Dim i As Long '桁数のループカウンタ
Dim str As String '変換文字列
On Error GoTo Err_End
'エラー処理
'10進数値範囲外
If Num < 0 Then
nShinsuFromD = "ERROR_Num"
Exit Function
End If
'n進数範囲外
If n > 16 Or n < 2 Then
nShinsuFromD = "ERROR_n"
Exit Function
End If
'Keta範囲外
If Keta < 1 Then
nShinsuFromD = "ERROR_Keta"
Exit Function
End If
ReDim temp(Keta - 1)
a = Num
str = ""
For i = 0 To Keta - 1
temp(i) = a Mod n
a = Int(a / n)
str = ChangenShinsu(temp(i)) & str
Next i
nShinsuFromD = str
Exit Function
Err_End:
nShinsuFromD = "ERROR_System"
End Function
'Numを、Num番目の文字に変換する
'0<=Num<=15とする
Public Function ChangenShinsu(Num As Long) As String
Const ChangeStrings As String = "0123456789ABCDEF"
On Error GoTo Err_End
ChangenShinsu = Mid(ChangeStrings, Num + 1, 1)
Exit Function
Err_End:
ChangenShinsu = ""
End Function
No.3
- 回答日時:
入力する数の桁に制約がありますが、2で割ったあまりを
捉える方法で、ご参考までに。関数化は簡単です。
Sub test01()
Dim s As String
Dim a As Long
Dim n As Long
Dim j As Long
s = ""
n = InputBox("10進数を入力")
a = n
While (Not n = 1)
j = n Mod 2
s = CStr(j) & s
n = Int((n - j) / 2)
Wend
s = 1 & s
MsgBox CStr(a) & "-->" & s
End Sub
No.2
- 回答日時:
標準ではないので自分で作成する必要があります。
こんな感じはどうでしょう?
Function Bin(ByVal n As Integer)
Dim strOct As String
Dim intLen As Integer
Dim intIndex As Integer
Dim strCut As String
'8進数に変換
strOct = Oct(n)
'先頭から1文字ずつ切り出して2進数にする
intLen = Len(strOct)
For intIndex = 1 To intLen
strCut = Mid(strOct, intIndex, 1)
Select Case strCut
Case "0"
Bin = Bin & "000"
Case "1"
Bin = Bin & "001"
Case "2"
Bin = Bin & "010"
Case "3"
Bin = Bin & "011"
Case "4"
Bin = Bin & "100"
Case "5"
Bin = Bin & "101"
Case "6"
Bin = Bin & "110"
Case "7"
Bin = Bin & "111"
End Select
Next
End Function
No.1
- 回答日時:
10進を16審にする物はありますが標準では2進に変換する関数はないと思います。
2で割ってあまりを求める計算式を使って計算するか参考URLの様な別売りのライブラリを追加してください。
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/2002 …
参考URL:http://www.vector.co.jp/soft/win95/prog/se242852 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
10進数→2進数への変換
Visual Basic(VBA)
-
16進数の変換処理
Visual Basic(VBA)
-
10進数(+-)→2進数への変換(2)
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB.NETで1→A、2→B、26→Z、27→AA...
-
VB6.0の「vbFromUnicode」はVB....
-
C++ 文字列変数と16進数の比較
-
C#でListとDictionaryの判別方法
-
C#で文字列を数値に変換する方法
-
16進をASCIIコードに変換する...
-
【C++/CLI】int型からString型...
-
16進コード文字列を文字列に変換
-
sscanfの16進出力の逆処理
-
数字→漢数字変換
-
Boolean型変数の値を反転する方法
-
vb6の桁数指定
-
VBAのstrConv関数のUNICODE変換...
-
VC++ std::stringからLPCWSTRに...
-
C++/CLI System::String::Fotma...
-
VBA 変数名に変数を使用したい。
-
エクセルでXY座標に並べられた...
-
『列名 '担当者CD' があいま...
-
C#でbyte配列から画像を表示さ...
-
VBAコンボボックスの内容が反映...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6.0の「vbFromUnicode」はVB....
-
VB.NETで1→A、2→B、26→Z、27→AA...
-
C++ 文字列変数と16進数の比較
-
16進をASCIIコードに変換する...
-
C#で文字列を数値に変換する方法
-
【C++/CLI】int型からString型...
-
16進コード文字列を文字列に変換
-
WORD型をCString型に変換する方法
-
vb6の桁数指定
-
textbox.textやlabel.captionの...
-
バイト型のデータをLong型に変換
-
VB6.0 String型→Long型変換方法...
-
C++/CLI System::String::Fotma...
-
2の補数の計算について
-
[pic] MikroCまたはPICC liteで...
-
Boolean型変数の値を反転する方法
-
VC++ std::stringからLPCWSTRに...
-
Pythonの指数表記について
-
エクセルでメールヘッダーを解...
-
C#でListとDictionaryの判別方法
おすすめ情報