No.3ベストアンサー
- 回答日時:
基本的には、左側のビットから順にそのビットが1か0かを見ていきます。
1であれば文字列の1、0であれば文字列の0を生成します。VB6には符号無し16ビット整数、ビットのシフト演算子が存在しません。従ってそれなりの工夫が必要となります
また&HFFFFは-1となりますので数値の65535を使用します。(&H8000も同様)
以下のような関数を作成してください。
関数の入力値は、符号つきの10進数
関数の戻り値は、ビットイメージの16桁の文字列となります。(4桁毎の空白の区切りはいれていません)
----------------------------------------------
Private Function dec2bit(decNum0 As Integer) As String
Dim i As Integer
Dim ret As Long
Dim decNum As Long
'integer(符号付き16ビット整数)を符号無しの16ビットとして扱う為に以下の操作をする
'符号無し16ビット整数はVB6には存在しない為、long型(符号付き32ビット整数)を使用する
If decNum0 >= 0 Then
'正、0はそのままセット
decNum = decNum0
Else
'負のときは、そのビットイメージをセット(例-1なら65535)
decNum = 65536 + decNum0
End If
dec2bit = ""
'文字列を作成
For i = 1 To 16
'最上位ビット(最も左側のビット)が1か0か判定
ret = decNum And 32768 '32768は符号無しの&H8000に相当する
If ret <> 0 Then
dec2bit = dec2bit & "1"
Else
dec2bit = dec2bit & "0"
End If
'左へ1ビットシフトする
'VB6はシフト演算子がないので、2倍する
decNum = decNum * 2
'オーバーフロー防止の為、符号無しの&FFFFでマスクする
If decNum >= 65536 Then
decNum = decNum - 65536
End If
Next
End Function
No.2
- 回答日時:
1.言語はVB6でしょうか。
VB.NETでしょうか。2.10進数:-16072 → 2進数:1100 0001 0011 1000
というのは、文字列で「-16072」が与えられた時、文字列として、「1100 0001 0011 1000」を取得したい、ということでしょうか。
この回答への補足
ご回答が遅くなりました
1、VB6
2、数値で -16072(D) が与えられた時、文字列として、「1100 0001 0011 1000」を取得
ご説明不足で申し訳ございません。よろしくお願いいたします
No.1
- 回答日時:
16進数に直してから変換するのが簡単なような気がします。
Function FromDecimalToBinary(X As Long) As String
Dim X16 As String
Dim Y16 As Integer
Dim Y As String
Dim i As Integer
Dim j As Integer
If (X < -32768 Or X > 32767) Then
Y = "Error"
Else
X16 = Right(String(4, "0") & Hex$(X), 4)
For i = 4 To 1 Step -1
Y16 = "&h" & Mid(X16, i, 1)
For j = 1 To 4
Y = Y16 Mod 2 & Y
Y16 = Y16 \ 2
Next j
Next i
End If
FromDecimalToBinary = Y
End Function
又は
Function FromDecimalToBinary(X As Long) As String
Dim X16 As String
Dim Y As String
Dim i As Integer
If (X < -32768 Or X > 32767) Then
Y = "Error"
Else
X16 = Right(String(4, "0") & Hex$(X), 4)
For i = 1 To 4
Select Case Mid(X16, i, 1)
Case "0": Y = Y & "0000"
Case "1": Y = Y & "0001"
Case "2": Y = Y & "0010"
Case "3": Y = Y & "0011"
Case "4": Y = Y & "0100"
Case "5": Y = Y & "0101"
Case "6": Y = Y & "0110"
Case "7": Y = Y & "0111"
Case "8": Y = Y & "1000"
Case "9": Y = Y & "1001"
Case "A": Y = Y & "1010"
Case "B": Y = Y & "1011"
Case "C": Y = Y & "1100"
Case "D": Y = Y & "1101"
Case "E": Y = Y & "1110"
Case "F": Y = Y & "1111"
End Select
Next i
End If
FromDecimalToBinary = Y
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 計算機科学 ビット計算 2 2023/04/16 14:26
- 計算機科学 6ビット(符号含む)の二進数 4 2023/04/16 13:22
- 情報処理技術者・Microsoft認定資格 情報技術の問題についてです。 10進数の−36を以下のような16ビットの浮動小数点表示にするといくつ 3 2022/05/21 19:53
- 数学 以下の問題が分かりません。 8ビット浮動小数点数が、最上位ビットから順に符号1ビット、指数部3ビット 4 2023/07/22 16:06
- 情報処理技術者・Microsoft認定資格 2進数の問題を教えてください。 1 2022/07/27 09:42
- 工学 疑似乱数生成器 3 2023/01/05 02:06
- 計算機科学 2進数の計算について 2進数の値は全て8ビットで負数は2の補数形式とする。結果が8ビットで表現出来な 3 2023/07/22 14:08
- その他(プログラミング・Web制作) Visual Studio Code 関数の使い方について 3 2023/05/31 13:15
- その他(データベース) 4進数風なバーコードは何ですか? 2 2022/11/28 23:33
- C言語・C++・C# C言語初心者 ポインタについて、お助けください、、 2 2023/03/15 23:50
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAのIf,Then 構...
-
0xffffとは?
-
8ビットのデータの、先頭ビット...
-
ビットシフトってどんな時使うの?
-
2の補数
-
verilog 符号付加減算(最上位...
-
シーケンス制御についての質問...
-
visualbasic のコード中で 100...
-
小数点の引き算が不正確
-
文字参照は10進数と16進数では...
-
03分22秒36のような時間の単位...
-
情報科学の飽和演算、ラップア...
-
16ビットCPUで32ビットの計算方法
-
ビット立つの意味
-
シーケンサープログラム
-
二元対称無記憶通信路を実現す...
-
8085系プログラミングについて
-
三菱 シーケンサー
-
情報源符号化について
-
ライン数とステップ数の違いは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
0xffffとは?
-
エクセルVBAのIf,Then 構...
-
8ビットのデータの、先頭ビット...
-
ビットシフトってどんな時使うの?
-
verilog 符号付加減算(最上位...
-
一般のソフトで画像を扱う場合...
-
符号無し整数xを右にnビット回転
-
文字参照は10進数と16進数では...
-
シーケンス制御についての質問...
-
BMP画像のネガを作成するプログ...
-
アクセス(2003)のVBAでビット...
-
03分22秒36のような時間の単位...
-
命令について
-
10進数(+-)→2進数への変換(2)
-
C言語で128bitの2進数のビット...
-
1の補数
-
ビット列を表示するプログラム
-
Python: 数値を反転させたい
-
ビットの取り出し方法
-
PS3に搭載されている"Cell"は、...
おすすめ情報