BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Number Base Conversion with String to Float Capability.", by jimpishlo

The first of the functions in the code 'xBase2Int' will convert a string holding either a binary, octal, decimal, or hexidecimal value into an integer. See comments for using this function.

The second function 'String2Float' will convert a float value stored in a string into the most accurate float value the system can provide. See comments for use.

Enjoy,
-JimPishlo JimPishlo@Comcast.net

Code

;Test Functions

Print "xBase2Int"
Print "  Bin: !1010 = " + xBase2Int("!1010")
Print "  Hex: $ffff = " + xBase2Int("$ffff")
Print "  Oct:   &10 = " + xBase2Int("&10")
Print "  Dec:  #100 = " + xBase2Int("#100")
Print 
Print "String2Float"
Print "  '123.45' = " + String2Float#("123.45") + " *See comments in code*"
Print

Print "Press the [SPACE BAR] to end."
While Not KeyHit(57): Wend
End

;---------------------------------------------------------------------

Function xBase2Int(sValue$)
     
     ;Prefix the value with one of the following symbols to
     ;denote which number base you are using.
     ;     ! = Binary number i.e. "!10110010"
     ;     & = Octal number  i.e. "&80"
     ;     # = Arabic number (Decimal) i.e. "#1000"
     ;     $ = Hexidecimal i.e. "$ffff"
     
     ;Determine which base the user is using.
     
     Select Left(sValue,1)
          Case "!"
               Base = 2     ;Binary number
          Case "&"
               Base = 8     ;Octal
          Case "#"
               Base = 10     ;Arabic Numbering System
          Case "$"
               Base = 16     ;Hexidecimal
          Default
               RuntimeError "Number base identifier not found."
     End Select
     
     ;This sets up a list of numbers where the number value can
     ;be gleened by it's position in the string.
     ;
     ;For Example:
     ; 
     ;     We use Instr to find the character '2' in num$.
     ;     Take the position that is returned by Instr (3),
     ;     and (since string indexes are '1' based),
     ;     we subtract 1 from the position.
     ;     Giving us the value 2.
     
     num$ = "0123456789ABCDEFG"
     
     ;Convert all to Upper case just to make comparison work
     ;better.  Also chop off Base Identifier at beginning of string.
     
     sValue = Upper(Mid(sValue, 2))
     
     ;Loop through sValue from back to front and accumulate the total
     ;of each digits' value according to the number base.
     
     dec = 0
     
     For i = 1 To Len(sValue)
          c$ = Mid(sValue, Len(sValue) - (i-1),1)
          n = Instr(num, c) - 1     ;Gleen number value by position in num$
          dec = dec + n * (Base ^ (i-1))
     Next
     
     Return dec
     
End Function

Function String2Float#(sValue$)
     ;Converts a Floating Point value in a string into
     ;an actual floating point value.
     ;For some reason the decimal point calculation isn't always accurate.
     ;     
     ;     For example:     123.45 Translates to: 123.449997
     ;
     ;Maybe someone can tell me what I'm doing wrong.
     ;------------------------------------------------------------------------
     ;This function depends upon the xBase2Int function for number conversion.
     ;
     ;
     ;
     ;Jim P. (JimPishlo@Comcast.Net)
     ;
     
     ;This function takes base 10 (arabic) floating point values only.
     ;Check to see if a base identifier has been prepended to the sValue$
     ;If so ignore it.
     
     While Instr("!$&#", Left(sValue,1))
          sValue = Mid(sValue, 2)
     Wend
     
     ;Now check for the presence of a decimal point.
     
     n = Instr(sValue, ".")
     
     ;If present capture values on each side into different strings.
     
     If n <> 0 Then
          l$ = "#" + Left(sValue, n - 1)
          r$ = "#" + Mid(sValue, n + 1)
     Else
          ;If not present just capture the whole value into l$, and set r$ = "0"
          l$ = "#" + sValue
          r$ = "#0"
     End If
     
     ;Now get the integer value of both l$, and r$
     ;Divide r$ by 10 to the power of (number of decimal places) 
     ;and add it to l$
     ;Convert the whole thing To Float, And Return the results.
     
     v# = Float(xBase2Int(l$)) + (Float(xBase2Int(r$)) / 10 ^ (Len(r$)-1))
     
     Return v#
     
End Function

Code software created by Krylar's Kreations