十                  十六                              二進制要除 和餘數

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)

阿倫 發表在 痞客邦 PIXNET 留言(0) 人氣()