掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
10進数から2進数、2進数から10進数にするには？ (ID：110209)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
１６ビットで表せるように下のようにプログラムしたんですがどうしても−の2進数ができません。教えていただけないでしょうか。 Dim a, b, c, d, n1, n2, n3 Private Sub Command1_Click() a = Val(Text1.Text) Label1 = a Label2 = Hex(a) b = Label2 '2進数作成 n3 = "" Do Until (Len(b) = 0) '4ビットずつ変換 n1 = Val("&H" & Right$(b, 1)) b = Left$(b, Len(b) - 1) For n2 = 0 To 15 n3 = -((n1 And (2 ^ n2)) <> 0) & n3 Next Loop Label3 = n3 End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.