Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Gerade Zufallszahl
| Uploader: |  Sebastian |
| Datum/Zeit: | 25.01.2008 20:59:15 |
'für QB
DECLARE FUNCTION GeradeZufallszahl% (Von As Integer, Bis As Integer)
RANDOMIZE TIMER
PRINT GeradeZufallszahl%(1,100)
SLEEP
END
FUNCTION GeradeZufallszahl% (Von As Integer, Bis As Integer)
Dim Zahl As Integer
Zahl = INT(RND * (Bis-Von+1))+Von
IF Zahl MOD 2 <> 0 THEN Zahl = Zahl + 1
GeradeZufallszahl% = Zahl
END FUNCTION