TheGameCreators - CodeBase - Random Number Generator

Return to the CodeBase listing

Category: Input / Output

Version: 1.25

Information

Uploaded: 6th Sep 2010 15:35

Modified: 13th Sep 2010 18:51

Author: Foretore

Summary

A simple number generator for replacing dice or anything else that needs a random number

Full Description

1.0: User can pick the lowest and highest number, and the Random number will be generated between those 2 set points. 1.1: Moved text around for better look. Fixed a minor bug; well more like a major bug sense this is all the program can do. Fixed bug: the highest number was greater than the users preferred number. 1.11: Organized and documented. 1.25: Made Random numbers more random and added the ability for the program to make incredibly large amounts of numbers and not freak out

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Randomize Timer()

Set display mode 800,600,32,VSyncOn

RN$="YourNumbers.txt"

RandomStart = 0

RandomEnd = 0

NumberOfNumbers = 0

SCy=125

Box 0,0,800,600,RGB(17,19,77),RGB(17,19,77),RGB(17,19,77),RGB(17,19,77)

Center Text 400,10,"CowKing's Random Number Generator"

Ink RGB(255,255,255),RGB(17,19,77)

Gosub Info

Gosub AskTheDice

Gosub RollTheDice

Gosub Restart

If KeyState(1)=1 then End

Loop

End

rem Asks for the user's name

Info:

Input "What is your name? ",Name$

Name$=Name$+","

Return

rem Asks for the users prefered number to start and stop at, and the amount of numbers they want

AskTheDice:

Set Cursor 310,50

Input "Select the lowest number:",L

RandomStart=L

Set Cursor 310,75

Input "Select the highest number:",H

RandomEnd=H

Set Cursor 310,100

Input "Select the amount of numbers you want:",n

Return

rem Repeats the amount numbers the user has specified

RollTheDice:

Set Text Size 20

If n<17

Repeat

Set Cursor 310,SCy

Print "Your Random Number or Numbers are:" + STR$(RND(RandomEnd-RandomStart)+RandomStart)

Inc SCy,25

Inc NumberOfNumbers,1

Until NumberOfNumbers=n

Else

Center Text 400,300,"The amount of numbers you wanted was to large to fit on the window. Please check the text file."

Center Text 400,325,"Processing..."

If File Exist(RN$)=1

Delete File RN$

Open to Write 1,RN$

Repeat

Write String 1,"Your Random Number or Numbers are:" + STR$(RND(RandomEnd-RandomStart)+RandomStart)

Inc NumberofNumbers,1

Until NumberOfNumbers=n

Close File 1

Else

Open to Write 1,RN$

Repeat

Write String 1,"Your Random Number or Numbers are:" + STR$(RND(RandomEnd-RandomStart)+RandomStart)

Inc NumberofNumbers,1

Until NumberOfNumbers=n

Close File 1

EndIf

Return

rem Tells the user the options to proceed, resets the variables and clears the screen

Restart:

If n<17

Center Text 400,SCy+25, Name$ + " Press any key to restart or press Esc to end the program"

Else

Center Text 400,350,"Done"

Center Text 400,375, Name$ + " Press any key to restart, or press Esc to end the program and check the text file"

EndIf

Randomstart = 0

Randomend = 0

NumberOfNumbers = 0

SCy=125

rem This stops the repeat--until loop from doing it's job just long enough for the user to let go of the enter key (from the Input), but not seem like the program is frozen. It's really tricky to find a nice balance

Sleep 150

Rem "waits" until a key is pressed and then proceeds

` Note: I could have used the WaitKey command, but just thought I'd switch it up

CodeBase - Random Number Generator

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Foretore
CodeBase Entries:	2