Wie erzeugt man zufällige Kommazahlen?
Verfasst: 23.03.2010 00:53
Habe mal wieder ein Brett vorm Kopf. Ich möchte Zufällige Kommazahlen z.B. von 0 bis 5 erzeugen. Ich bekomme aber nur Ganzzahlen heraus. Kann PureBasic das nicht von Haus aus, so dass man eine extra Funktion schreiben müsste, oder habe ich da was übersehen. An die Definition der Variable als Float habe ich gedacht.
Code: Alles auswählen
InitSprite()
InitKeyboard()
Global ResX = 1024
Global ResY = 768
OpenScreen(ResX,ResY,32,"",0)
Dim Value.f(9)
; >>>>> --------------------------- hier werden die Zahlen erzeugt ------------------------------- <<<<<<<
For i = 0 To 9
Value(i) = Random(5)
Next
; >>>>> --------------------------- hier werden die Zahlen erzeugt ------------------------------- <<<<<<<
Repeat
ClearScreen(0)
ExamineKeyboard()
StartDrawing(ScreenOutput())
For i = 0 To 9
DrawText(x,i*15, "Testzahl " + StrF(value(i),3))
Next
StopDrawing()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)