fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Gerade Zufallszahlen

Uploader:	Sebastian
Datum/Zeit:	27.01.2008 14:24:40

'für QB

'korrigierte Fassung - siehe

'   http://forum.qbasic.at/viewtopic.php?p=73118#73118



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))+Von

    IF Zahl MOD 2 <> 0 THEN Zahl = Zahl + 1

    GeradeZufallszahl% = Zahl

END FUNCTION

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.