string format problem

[petervanlievenoogen]

I'm new and glad to have fond a more powerful replacement to the BX24

I’m using the ZX24a to capture a NMEA string, and diplaying it on the com1.

to get a single value out off the NMEA I use:

‘to get data for a single

Code: Select all

dim Long_min as single,ok as boolean
Lon_min=Waarde(3,10000,ok)

‘to put data to Com1:

Code: Select all

Console.WriteLine (Cstr(lon_min))

The function to get a single from a comport

Code: Select all

Public Function Waarde(byval port as byte,byval timeout as integer,byRef ok as boolean) As Single
Dim txt as Boundedstring(10)
Dim data as byte
			txt		=""
			ok		=false
			waarde	=0.0
do

		call GetByte_timeout(port,data,timeout,ok)
		If &#40;ok and data<>&#40;asc&#40;","&#41;&#41;&#41;then
			txt=txt & &#40;chr&#40;data&#41;&#41;
		Else
			call ValueS&#40;txt,waarde,ok&#41;
			exit Function
		End If
loop

End Function

the input value: 35.5
display’s as 35.50001
I’ve downloaded the Format.bas file but how to use it, seems not so clear to me

how do I get a clean 35.5 to the console?

[dkinzer]

how do I get a clean 35.5 to the console?

Conversions to and from the internal IEEE 32-bit floating point format and the decimal ASCII representation sometimes incur errors in the least significant digits. The way to avoid this problem is to limit the number of digits produced. For example, the code below will display only three decimal places.

Code: Select all

Console.WriteLine (Fmt(lon_min, 3)) 

See the description of Fmt for more details.

[petervanlievenoogen]

Code: Select all

Console.WriteLine (Fmt(lon_min, 3)) 

See the description of Fmt for more details.

hmmm I need some glasses

thanks