１０進数(＋－)→２進数への変換(2)

質問

先ほど、ご質問させて頂きました者です、詳細にご説明させて頂きます

(1)１０進数：-16072 → ２進数：1100 0001 0011 1000
補足：２進数の16bit目の「１」は符号ビット「ー」
(2)１０進数：+16072 → ２進数：0011 1110 1100 1000
補足：２進数の16bit目の「０」は符号ビット「＋」

補足：１０進数の値の範囲は
　　　２進数で 符号1bitを含む16bitの値の範囲です

と変換できるＶＢ関数をご教示ください
宜しくお願いいたします

回答No.3

tatsu99 · ベストアンサー

基本的には、左側のビットから順にそのビットが１か０かを見ていきます。１であれば文字列の１、０であれば文字列の０を生成します。
VB6には符号無し16ビット整数、ビットのシフト演算子が存在しません。従ってそれなりの工夫が必要となります
また&HFFFFは-1となりますので数値の65535を使用します。（&H8000も同様）
以下のような関数を作成してください。
関数の入力値は、符号つきの１０進数
関数の戻り値は、ビットイメージの１６桁の文字列となります。（４桁毎の空白の区切りはいれていません）
----------------------------------------------
Private Function dec2bit(decNum0 As Integer) As String
Dim i As Integer
Dim ret As Long
Dim decNum As Long

'integer（符号付き１６ビット整数）を符号無しの１６ビットとして扱う為に以下の操作をする
'符号無し１６ビット整数はVB6には存在しない為、long型（符号付き３２ビット整数）を使用する
If decNum0 >= 0 Then
'正、０はそのままセット
decNum = decNum0
Else
'負のときは、そのビットイメージをセット（例-1なら65535）
decNum = 65536 + decNum0
End If
dec2bit = ""
'文字列を作成
For i = 1 To 16
'最上位ビット(最も左側のビット)が１か０か判定
ret = decNum And 32768 '32768は符号無しの&H8000に相当する
If ret <> 0 Then
dec2bit = dec2bit & "1"
Else
dec2bit = dec2bit & "0"
End If
'左へ１ビットシフトする
'VB6はシフト演算子がないので、２倍する
decNum = decNum * 2
'オーバーフロー防止の為、符号無しの&FFFFでマスクする
If decNum >= 65536 Then
decNum = decNum - 65536
End If
Next

End Function

お礼

ご教示いただき有難う御座いました
大変助かっております。
有難う御座います

回答No.2

tatsu99

１．言語はＶＢ６でしょうか。ＶＢ．ＮＥＴでしょうか。
２．１０進数：-16072 → ２進数：1100 0001 0011 1000
というのは、文字列で「-16072」が与えられた時、文字列として、「1100 0001 0011 1000」を取得したい、ということでしょうか。

補足

ご回答が遅くなりました
１、VB6
２、数値で　-16072(D) が与えられた時、文字列として、「1100 0001 0011 1000」を取得

ご説明不足で申し訳ございません。よろしくお願いいたします

回答No.1

taisuke555

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

お礼

ご教示いただき有難う御座いました
大変助かりました