16進数を2進数に変換します。2進数を16進数に変換するにはbinToHex関数を使います。
- 構文
- UString = hexToBin( hex )
- 引数
- hex
- 16進数
- 戻値
- 2進数に変換した値
プログラム
//////////////////////////////////////////////////
// 【引数】
// hex : 16進数
// 【戻値】
// 2進数に変換した値
//////////////////////////////////////////////////
FUNCTION hexToBin(hex)
HASHTBL hb
hb["0"] = "0000"; hb["1"] = "0001";
hb["2"] = "0010"; hb["3"] = "0011";
hb["4"] = "0100"; hb["5"] = "0101";
hb["6"] = "0110"; hb["7"] = "0111";
hb["8"] = "1000"; hb["9"] = "1001";
hb["a"] = "1010"; hb["b"] = "1011";
hb["c"] = "1100"; hb["d"] = "1101";
hb["e"] = "1110"; hb["f"] = "1111";
bin = ""
FOR n = 1 TO LENGTH(hex)
bin = bin + hb[COPY(hex, n, 1)]
NEXT
RESULT = bin
FEND
解説
- 11行目
2進数に変換した値を代入する変数bin。bin = ""
- 12行目
n=1からhexの文字数だけ繰り返す。FOR n = 1 TO LENGTH(hex)
この記事は役に立ちましたか?