bin to dec help

[iamtheky]

apologies if this answered many times over, I am failing at search this morning..

1) open calc

2) go to 'programmer'

3) select 'bin' and paste 100001101110011111010011111000
 

4) you can see the dec conversion is 565,835,000

 

How do I make that conversion in AutoIt?

 

 

 

 

 

 

 

Edited February 17, 2017 by iamtheky

[Subz]

$sBin = '100001101110011111010011111000'
MsgBox(0,'', _BinaryToDec($sBin))
Func _BinaryToDec($strBin)
Local $Return
Local $lngResult
Local $intIndex

If StringRegExp($strBin,'[0-1]') then
$lngResult = 0
For $intIndex = StringLen($strBin) to 1 step -1
$strDigit = StringMid($strBin, $intIndex, 1)
Select
case $strDigit="0"
; do nothing
case $strDigit="1"
$lngResult = $lngResult + (2 ^ (StringLen($strBin)-$intIndex))
case else
; invalid binary digit, so the whole thing is invalid
$lngResult = 0
$intIndex = 0 ; stop the loop
EndSelect
Next

$Return = $lngResult
    Return $Return
Else
    MsgBox(0,"Error","Wrong input, try again ...")
    Return
EndIf
EndFunc