投稿日	： 2005/05/26(Thu) 16:52
投稿者	： りっとっと
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^4: 16進→2進変換での0処理

シンプルにすると下記のようになるかな
Text1に16進数を入力するとText3に２進数が、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

★ - 16進→2進変換での0処理 - まな 05/24-19:45No.3351
• Re: 16進→2進変換での0処理 - ガッ 05/24-19:55 No.3352
  • Re^2: 16進→2進変換での0処理 - まな 05/24-20:01 No.3353
    • Re^3: 16進→2進変換での0処理 - いな 05/25-04:22 No.3354
      • Re^4: 16進→2進変換での0処理 - りっとっと 05/26-16:52 No.3380
        • Re^5: 16進→2進変換での0処理 - まな 05/27-17:04 No.3408
          • こんな方法も・・・ - GOD 05/27-17:39 No.3409