Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [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!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

NochneRunde

Uploader:Redakteurytwinky
Datum/Zeit:29.08.2007 19:41:55

#include "vbcompat.bi"
Function Runde(Variable As Double, nk As Integer) As Double
  Return cInt(Variable*10^nk)/10^nk
End Function
Dim As Double Pi=4*Atn(1)
?Pi
?Format(Pi, "####.####")
?Val(Format(Pi, "####.####"))
?Runde(Pi, 4)
Sleep