为FreeBasic添加一个二进制转十进制的函数

FreeBasic提供了一个bin的内部函数，可以将十进制转换为二进制的string格式。通过数组指针的形式即可读取bit的状态值。

例如：

dim as ulong a = 16973

dim s = bin(a)

print s

即可输出字符串："100001001001101"的二进制格式

其中的位状态值可以通过s[i]取得，但是这个返回值是ascii码，还需用chr(s[i])的形式转换一下。

可是在帮助文档里却没有查到有关将二进制数转换为十进制的内置函数，这有点可惜了。

所以就自己动手写了一个。

Function BinaryToDecimal(Byval strbit as string) as ulongint
    Dim As uinteger i = 0
    Dim As ulongint a = 1
    Dim bits(1 to 64) As ulongint
    For i=1 To 64
        bits(i) = a
        a = a*2
    Next i 
    a = 0
    Dim as uinteger length = Len(strbit)
    For i=0 To length-1
        IF chr(strbit[i])="0" Then bits(length-i)=0
        a = a + bits(length-i)
    Next i
    'Erase bits 这里释放数组不知为何编译不通过？
    Function = a
End Function

主程序里测试下计算结果 

#lang "fb"

Declare Function BinaryToDecimal(Byval strbit as string) as ulongint

dim a as ulongint
dim s as string 

s = "100001001001101"
print BinaryToDecimal(s)," ",bin(16973)
sleep

 上面可以看到可以返回正确十进制的值，与bin函数计算得到的二进制值相匹配。