Base (Or Radix) Functions

[torels]

Hi There

I just wrote a script which turns a number in 10 basis in a number in any other basis

Because of my bad english... just to make sure you understand what it's all about here is an example:

3₁₀ = 11₂ (2 basis is in other words Binary Code)

Func _Dec2Base($number, $base)
    local $nn, $reverse
    do
        $nn &= Mod($number,$base)
        $number = floor($number/$base)
    until $number <= 1
    $nn &= Mod($number,$base)
    For $i = 1 To StringLen($nn)
        $Reverse = StringMid($nn, $i, 1) & $Reverse
    Next
    Return $Reverse
EndFunc

Func _Base2Dec($number, $base)
    local $nn
    $pot = StringSplit($number,"")
    $len = StringLen($number) - 1
    
    for $i = $len to 0 step -1
        $nn += StringMid($number,$len - $i + 1,1) * ($base^$i)
    Next
    
    Return $nn
EndFunc

;example
MsgBox(0,"Example",_Dec2Base(4,2))

What do you think about it ?

Any suggestions ?

Edited September 8, 2008 by torels

[Andreik]

Hi There

I just wrote a script which turns a number in 10 basis in a number in any other basis

Because of my bad english... just to make sure you understand what it's all about here is an example:

3₁₀ = 11₂ (2 basis is in other words Binary Code)

What do you think about it ?

Any suggestions ?

Ok but I don't see a code or an exe?

[torels]

OOPS

[weaponx]

http://www.autoitscript.com/forum/index.ph...010&hl=base

[torels]

DOH!