投稿日 | : 2005/05/26(Thu) 16:52 |
投稿者 | : りっとっと |
Eメール | : |
URL | : |
タイトル | : Re^4: 16進→2進変換での0処理 |
シンプルにすると下記のようになるかな
Text1に16進数を入力するとText3に2進数が、Text2に2進数を入力するとText3に16進数が表示されま
す。
Private Sub Text1_Change()
Dim cnt As Integer
Dim buf As Long
Dim BitData As String
buf = Val("&H" & Text1.Text & "&")
While buf <> 0
BitData = (buf Mod 2) & BitData
buf = buf \ 2
cnt = cnt + 1
Wend
BitData = String(cnt Mod 8, "0") & BitData
Text3.Text = BitData
End Sub
Private Sub Text2_Change()
Dim buf As Long
Dim hexData As String
For cnt = 0 To Len(Text2.Text) - 1
buf = buf + Val(Mid(Text2.Text, Len(Text2.Text) - cnt, 1)) * 2 ^ Val(cnt)
Next
hexData = Hex(buf)
Text3.Text = String(Len(hexData) Mod 2, "0") & hexData
End Sub