Sorry your browser is not supported!

getVal()

end

` *************************************
` *** Val cannot handle floats
` *************************************
function GetVal()

    myVal1$ = "12345"
    myVal2$ = "123.45"
    myVal3$ = "0.12345"

    myVal1 = val(myVal1$)
    myVal2 = val(myVal2$)
    myVal3 = val(myVal3$)

    do
        print(myVal1$ + " : " + str(myVal1))
        print(myVal2$ + " : " + str(myVal2))
        print(myVal3$ + " : " + str(myVal3))
        sync()
    loop

endfunction

function reVal(s$, prec)
    //check if a . is in the string, if not exit with int(s$)
    isNeg = 0
    result# = 0.0
    pos = findValPos(s$,".")

    if pos = -1
        // must be an integer
        retval# = val(s$)
        exitfunction retval#
    endif

    // check if first character is a negative sign
    if mid(s$,1,1) = "-"
        isNeg = 1
        s$ = mid(s$,2,len(s$)-1)
    endif


    base = val(left(s$,pos-1))
    //print(base)
    d$ = right(s$,len(s$)-pos)
    //print("right - " + d$)
    decc = val(d$)

    sz = len(d$)
    if sz > prec
        sz = prec
        decc = val(left(d$,sz))
        //print("final decc - "+str(decc))
    endif
    select sz
        case 1
            result# = 0.1
        endcase
        case 2
            result# = 0.01
        endcase
        case 3
            result# = 0.001
        endcase
        case 4
            result# = 0.0001
        endcase
        case 5
            result# = 0.00001
        endcase
        case 6
            result# = 0.000001
        endcase

    endselect

    reval# = decc * result#
    reval# = base + reval#
    if isNeg = 1 then reval# = reval# * -1.0

endfunction reval#

rem A Wizard Did It!
val1$ = "1.234"
val2$ = "4.35"
Val3$ = "123.45"

dec1# = getDecimalVal(val1$)
dec2# = getDecimalVal(val2$)
dec3# = getDecimalVal(val3$)

b# = 12345.0 / 100.0

do
 Print(val1$ + " : " + str(dec1#))
 Print(val2$ + " : " + str(dec2#))
 Print(val3$ + " : " + str(dec3#))
 print(b#)
 Sync()
loop

function getDecimalVal( decimal$ as string )

    // locals
    length as integer = 0 // length of string
    place as integer = 0 // the place of the current character when looping through the string
    p10 as integer = 0 // power of 10
    value# as float = 0.0 // the decimal to be returned
    intvalue as float = 0.0 // the integer half of the value e.g 123 is the intvalue in 123.45
    decvalue as float = 0.0 // the complement of intvalue e.g 45 is the decvalue in 123.45

    // get the length of the decimal
    length = len(decimal$)

    // loop through until we find the decimal point
    repeat

    place = place + 1

    until mid(decimal$, place, 1) = "." or place > length

    p10 = length - place // get the power of 10 we will need to multipy by and divide by

    intvalue = val( left( decimal$, place-1)) // get the value for intvalue
    decvalue = val( right( decimal$, p10)) // get the decimal value in integer form

    // multiply by the power of 10, add the decimal and then divide by the power of 10
    value# = ((intvalue * (10.0^p10)) + decvalue) / (10.0^p10)

endfunction value# // return decimal.