Sign in to follow this  
Followers 0
Drifter

Problem with base conversion algorithm

2 posts in this topic

This algorithm is supposed to convert base 10 to base 48.

Func convertNum($n)
    ;This function takes a base 10 number and converts it to base 48
    ;the values for each place are currently represented in decimal, but will soon be shown as a-z and A-V.

    ;Find the highest base 48 value that we will need.
    $j = 0

    While 1
        If (48^$j * 48) - 1 <= $n Then
            $j += 1
        Else
            ExitLoop(1)
        EndIf

    WEnd

    ;$j now contains the highest power of 48 needed.
    Local $outArray[$j + 1]
    $outStr = ""

    For $k = $j To 0 Step -1
        ;represent the value for this place
        $outArray[$k] = Int($n / (48 ^ $k))

        ;remove it from the original number
        $n -= ($outArray[$k] * (48 ^ $k))

    Next

    For $i = 0 To $j
        ;show the values for each place, seperated by a comma.
        $outStr &= $outArray[$i] & ","
    Next

    Return $outStr

EndFunc

What exactly is wrong?

Share this post


Link to post
Share on other sites



solved now, sorry about that! ;)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0