Liberty BASIC Community Wiki - DecimalToBinary

Older Version Newer Version
bshipps64 Feb 18, 2006
==DecToBin$ function==
Simple function with (very) simple demo program illustrating how to build a string containing the binary representation of a decimal number.
----
> Not too much explanation really necessary on this one. The function takes an integer argument and uses a DO...LOOP structure to repeatedly perform a logical AND operation on that argument and each sequential exponentiation of 2 until that exponentiation is greater than the original number. If the function is fed anything other than a nonzero integer value, it returns "0". A small amount of additional coding could also add digit grouping capability.
[[code format="vbnet"]]
[loop]
    input a$
    if a$ = "" then end
    print DecToBin$(val(a$))
    goto [loop]


function DecToBin$(decNum)
    if (decNum) then
        decNum = abs(decNum)
        if (decNum = int(decNum))) then
            do
                if (decNum and 2^x) then
                    DecToBin$ = "1" + DecToBin$
                else
                    DecToBin$ = "0" + DecToBin$
                end if

                x = x + 1
            loop until (2^x > decNum)
        else
            DecToBin$ = "0"
        end if
    end if
end function
[[code]]