binToDec

2進数を10進数に変換します。10進数を2進数に変換するにはdecToBin関数を使います。

構文
  1. Double = binToDec( bin )
引数
bin
2進数
戻値
10進数に変換した値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   bin : 2進数 
// 【戻値】
//   10進数に変換した値 
//////////////////////////////////////////////////
FUNCTION binToDec(bin)
	dec = 0
	FOR n = 1 TO LENGTH(bin)
		dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n)
	NEXT
	RESULT = dec
FEND

解説

  1. 2行目
    	dec = 0
    10進数に変換した値を代入する変数dec。
  2. 3行目
    	FOR n = 1 TO LENGTH(bin)
    n=1からbinの文字数だけ繰り返す。
  3. 4行目
    		dec = dec + COPY(bin, n, 1) * POWER(2, LENGTH(bin) - n)
  4. 6行目
    	RESULT = dec
    変数decを戻値として返す。