Code archives/Algorithms/Bin2dec
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| Not sure how useful it is but I gave it to somebody else so why not... It converts a binary string to an int <edit> with a bit of error checking | |||||
SuperStrict
Print bin2dec("010011100")
Function bin2dec:Int(binval:String)
Local Val:Int = 1
Local total:Int
For Local x :Int = 0 To binval.length
Local numval:Int = Int(Mid(binval , binval.length - x , 1) )
If numval <> 0 And numval <> 1 RuntimeError "Non-binary input"
total :+ Int(Mid(binval , binval.length - x , 1) ) * Val
' debuglog Int(Mid(binval, binval.length - x , 1)) + " * " + val + " = " + total
val = Val * 2
Next
Return total
End Function |
Comments
| ||
| Then, typically, somebody suggests... Local binary$ = "10101010" Print Int("%" + binary$) (thanks Yan :) |
| ||
| How the hell? I never knew you could do it that way either! :) |
| ||
| I prefer to simply do Local i% = %10101010 |
Code Archives Forum
   |