Print Using "##.##^^^^"; 12345.6

(08-04-2024, 02:37 PM)bplus Wrote: I am curious

Code: (Select All)

Print Using "##.##^^^^"; 12345.6789123

What do those "^"'s do?

Dim As Double a



a = 12345.6

Print Using "##.##^^^^"; a

Print Using "##.##^^^^"; 12345.6



Print Using "##.##^^^^^"; 12345.6

(08-04-2024, 03:03 PM)Kernelpanic Wrote: As Pete has already written. Five ^ results in a three-digit exponent output - but then it's over. Sex is no longer acceptable! 

Code: (Select All)

Dim As Double a



a = 12345.6

Print Using "##.##^^^^"; a

Print Using "##.##^^^^"; 12345.6



Print Using "##.##^^^^^"; 12345.6

Quote:I'm not sure what my latest string math post was, but I think this post included my way to convert to SI without using PRINT USING.

Declare Library

    Function snprintf& (Dest As String, Byval l As Long, frmt As String, Byval x As _Float)

End Declare



Dim As String * 20 result

Dim As String format

Dim As Long resultlen, flag

Dim As Single x



resultlen = Len(result) - 1

result = Space$(resultlen) + Chr$(0)

format = "%.2e" + Chr$(0)

x = 12345.6

flag = snprintf&(result, resultlen, format, x)

Print result



result = Space$(resultlen) + Chr$(0)

format = "%12.2e" + Chr$(0)

x = 12345.6

flag = snprintf&(result, resultlen, format, x)

Print result

'Umrechnung Dezimalzahl in Exponentialschreibweise - 4. Aug. 2024

'Referenz S.263 - Print Using Formatierungssymbole



Option _Explicit



'Bei Double erscheint ein "D" statt "E"

Dim As Single x, z



Locate 2, 3

Print "Dezimalzahl in Exponentialdarstellung"

Locate 3, 3

Print "====================================="



Locate 5, 3

Input "Dezimalzahl        : ", x



Locate 6, 3

Print Using "Als Exponentialzahl: ##.##^^^^"; x



Locate 8, 3

Input "Weitere Dezimalzahl: ", z



Locate 9, 3

'5 Exponentialsymbole ^ bewirken dreistellige Ausgabe des Exponenten

Print Using "Als Exponentialzahl: ##.##^^^^^"; z



End