Tutorial

Runden in FreeBASIC

von

Seite 4 von 4

Function Runde(Variable As Double, Nachkomma As Integer) As Double

  Dim Wert As Double=10^Nachkomma 'Der Double-Wert wird zweimal benötigt..

  Return CInt(Variable*Wert)/Wert

End Function



Dim As Single a=68.70, b=59.03

Dim As Double c=a, d=b

Print "Ohne Runden"

Print "a=" &a

Print "b=" & b

Print "a-b=" &a-b

Print "c=" &c

Print "d=" &d

Print "c-d=" &c-d

c=Runde(c, 2)

d=Runde(d, 2)

Print "Mit Runden"

Print "a=" &a

Print "b=" & b

Print "a-b=" &a-b

Print "c=" &c

Print "d=" &d

Print "c-d=" &c-d

Sleep

Zu weiteren Informationen über die Probleme beim Umgang mit Double's siehe dreaels Homepage.
Dieses Tutorial bezog sich auf die Anzahl der Nachkommastellen von Dezimalzahlen. Für eine formatierte Ausgabe(z.B.) in Tabellen ist es immer noch nötig Format() zu benutzen oder Print Using "..".
Wobei Print Using ".." Punktgewinne durch die formatierte Ausgabe auf dem Bildschirm kassiert, während Format() den formatierten String in einer Variablen speichern kann.
Fröhliches Runden
Gruß
ytwinky

Gehe zu Seite 1 2 3 4

Zusätzliche Informationen und Funktionen

Das Tutorial wurde am 09.10.2007 von ytwinky angelegt.
Die aktuellste Version wurde am 04.09.2010 von ytwinky gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.