如下程式碼，user4data是一個十六進制的值，當加上&H變成一個十六進位的數值，之後外面包一個val，變成int，之後Mod2意思是取得bin的最小位元，

InOutMoveSwitch1.Text = Val("&H" & Mid(user4data, 1, 1)) Mod 2
InOutMoveSwitch2.Text = (Val("&H" & Mid(user4data, 1, 1)) \ 2) Mod 2
InOutMoveSwitch3.Text = ((Val("&H" & Mid(user4data, 1, 1)) \ 2) \ 2) Mod 2
InOutMoveSwitch4.Text = ((Val("&H" & Mid(user4data, 1, 1)) \ 2) \ 2 \ 2)

以下範例結果(左邊是程式碼結果)

VB hex to bin

arrow
arrow
    文章標籤
    hex to bin VB
    全站熱搜

    JL8051 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄