No.4ベストアンサー
- 回答日時:
Conv10to32が求める関数です。
十進数の文字列を入力にして、32進数の文字列を結果として返します。
sub testで、10進数の31、32を入力で与え、結果を取得しています。結果は、"V","10"になります。
Conv10to32の中で、配列の中へ0~9、A~Vの文字を入れてますが、これは毎回行う必要はありません。
この部分を外出しにしておけば、もっと処理速度は上がります。
今回は、より、簡単なソースの提供の為に、1つの関数内にまとめています。
ひつようがあれば、配列作成の箇所は外出しにしてください。
Sub test()
Dim ans As String
ans = Conv10to32("31")
MsgBox (ans)
ans = Conv10to32("32")
MsgBox (ans)
End Sub
Private Function Conv10to32(ByVal str As String) As String
Dim digit32(31) As String
Dim i, j, val As Long
Dim result As String
'0~9,A~Vの32文字を生成
For i = 0 To 31
If i < 10 Then
digit32(i) = Chr(Asc("0") + i)
Else
digit32(i) = Chr(Asc("A") + i - 10)
End If
Next
val = CLng(str)
result = ""
Do
i = val Mod 32
val = val \ 32
result = result + digit32(i)
Loop While val <> 0
Conv10to32 = StrReverse(result)
End Function
No.5
- 回答日時:
VB6 で試してみました。
Win10 で動くのが不思議なぐらいですが(^^;
例:
ret =dec_Convert(31,32)
'//
Private Function dec_Convert(ByVal N_Number As Long, ByVal Base_n As Long) As String
'N_Number 数値:Base_n: n進数
Dim t As Long
Dim ret As String
Dim buf As Variant
If N_Number = 0& Then dec_Convert = "0": Exit Function
t = 1&
ret = ""
Do While (t <= N_Number)
buf = ((N_Number Mod (t * Base_n)) \ t) ' & ret
If buf < 10& Then
buf = CStr(buf)
Else
buf = Chr(65 + buf - 10)
End If
t = t * Base_n
ret = buf & ret
Loop
dec_Convert = ret
End Function
No.2
- 回答日時:
32進数とは
https://ja.wikipedia.org/wiki/%E4%B8%89%E5%8D%81 …
のことでしょうか。
つまり、
0, 1, …, 8, 9, A, B, …, U, V の 32 個の数字を使用して数値を表現することでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# C言語について。 5 2023/06/27 18:37
- その他(プログラミング・Web制作) 【プログラミングScratch】で音楽を演奏するプログラムを短時間でつくる方法 2 2023/07/02 07:50
- 計算機科学 8進数 8進数の47+32の答えを 8進数で表すといくつか。 教えてください。 4 2022/07/18 13:47
- C言語・C++・C# C言語初心者 構造体 課題について 2 2023/03/10 19:48
- C言語・C++・C# キャスト演算について。 1 2023/07/15 15:28
- 計算機科学 8進数 8進数の47+32の答えを 8進数で表すといくつか。 解き方を教えてください。 5 2022/07/18 14:00
- 計算機科学 (0.171875)10進数を16進数に変換せよ 解き方を教えてください 4 2023/01/22 22:31
- C言語・C++・C# 10個の実数に対する降順ソート結果を出力するプログラムを作りたいのですが、写真のプログラムをどう直せ 2 2022/07/09 21:13
- Visual Basic(VBA) VB6の公式リファレンスはありますか?特に既定のプロパティを知りたいです 1 2022/11/25 12:00
- Ruby 英数字を含む文字列(0-9,A-Z)の桁数圧縮をするには 5 2022/06/28 18:15
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
緯度、経度の 10進法と 60進法...
-
【EXCEL】カナ、ひらがなを英字...
-
家電製品の電力周波数を変える機械
-
php
-
シフトJISのCSVファイルをUFT-8...
-
VBAを使って二進法計算
-
UTF8→ShiftJISに変換したいです!
-
画像ファイル変換(Tiff→PDF)
-
vb.netの型変換について
-
MATLAB用のプログラムをScilab...
-
sgmlからXMLへの変換
-
分を時間に変換するプログラム
-
sgmlからXMLへの変換
-
英数文字列のうちの数値を4桁に...
-
10進数を2進数に変換するプログ...
-
C 言語の bool 型ですと、0をfa...
-
VB6から.NETへアップグレード時...
-
c++でmatからvectorへの変換の...
-
画像ファイルから.icoフォーマ...
-
画像の平面射影変換について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
緯度、経度の 10進法と 60進法...
-
Mac 乗数の入力方法
-
10進数をBCDに変換する方法
-
bmp→jpgに、jpg→bmpに
-
【EXCEL】カナ、ひらがなを英字...
-
3のつく数字と3の倍数のみを表...
-
c++でmatからvectorへの変換の...
-
なぜ通信には16進数文字列が使...
-
bitmapクラスをiconクラスに変...
-
UTF8→ShiftJISに変換したいです!
-
C++からCへのソース変換について
-
C#でのpngからbmpへの変換について
-
画像ファイルから.icoフォーマ...
-
DOSコマンドでの文字コード変換...
-
bmp → jpeg への変換
-
画像ファイル変換(Tiff→PDF)
-
家電製品の電力周波数を変える機械
-
シフトJISのCSVファイルをUFT-8...
-
C言語からC#への変換ツール
-
エクセルVBAの自動変換機能?
おすすめ情報
サンプルプログラムも記載して下さると助かります!
おっしゃる通りです!
32個の英数字を使用しての計算になります。
VBAでもいいです!
よろしくお願いします!