Runden unter BlitzMax

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Smoky Betreff: Runden unter BlitzMax	Mi, Feb 15, 2006 22:46 Antworten mit Zitat
Hallo, Ich finde den Fehler nicht ich versuche unter BlitzMax verzweifelt einen Float auf 2 stellen nach den Komma zu runden. Strict Graphics 640,480,0 Global zahl#,testa# Cls Repeat zahl#=1.0699999 testa#=runden(zahl#,2) DrawText(zahl#,100,50) DrawText (testa#,100,100) Flip Until KeyHit(Key_Q) Function runden# (Value#,digit) If digit < Len(Str(Value))-Instr(Str(Value),".") nextvalue = Int(Mid(Str(Value),Instr(Str(Value),".")+digit+1,1)) If nextvalue > 4 Return Ceil(Value10^digit)/10^digit Else Return Floor(Value10^digit)/10^digit EndIf Else Return Value EndIf End Function unter blitz2d hatte es funktioniert.
_- jeder fängt mal an -_

Smoky

Betreff: Runden unter BlitzMax

Mi, Feb 15, 2006 22:46
Antworten mit Zitat

Hallo, Ich finde den Fehler nicht Sad

ich versuche unter BlitzMax verzweifelt einen Float auf 2 stellen nach den Komma zu runden.

Strict
Graphics 640,480,0
Global zahl#,testa#

Cls
Repeat
zahl#=1.0699999

testa#=runden(zahl#,2)

DrawText(zahl#,100,50)
DrawText (testa#,100,100)
Flip
Until KeyHit(Key_Q)

Function runden# (Value#,digit)
If digit < Len(Str(Value))-Instr(Str(Value),".")
nextvalue = Int(Mid(Str(Value),Instr(Str(Value),".")+digit+1,1))
If nextvalue > 4
Return Ceil(Value*10^digit)/10^digit
Else
Return Floor(Value*10^digit)/10^digit
EndIf
Else
Return Value
EndIf
End Function

unter blitz2d hatte es funktioniert.

_- jeder fängt mal an -_

	d-bug	Do, Feb 16, 2006 8:31 Antworten mit Zitat
https://www.blitzforum.de/view...mp;start=0 schau mal da, das hatten wir schonmal ~VERSCHOBEN~ Das passte aber nun garnicht zu den Modulen d-bug

d-bug

Do, Feb 16, 2006 8:31
Antworten mit Zitat

https://www.blitzforum.de/view...mp;start=0
schau mal da, das hatten wir schonmal Wink

~VERSCHOBEN~

Das passte aber nun garnicht zu den Modulen

d-bug