Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Tutorial

Runden in FreeBASIC

von RedakteurytwinkySeite 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 Externer Link! 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 Gehe zu Seite  1  2  3  4  
Zusätzliche Informationen und Funktionen
  • Das Tutorial wurde am 09.10.2007 von Redakteurytwinky angelegt.
  • Die aktuellste Version wurde am 04.09.2010 von Redakteurytwinky gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen