TheGameCreators - CodeBase - Basic Principles of Lottery

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 2nd Mar 2004 16:56

Modified: 1st Jan 1970 01:00

Author: MikeS

Summary

Teaches you how to make a small lottery game.

Full Description

Teaches you how to make a small lottery game. Point systems can be added, and code can be twisted to give a more realistic feel.<br /> <br /> Enjoy!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This tutorial was created by Yellow -Mike- 2-26-04

` Although not necessary, it would be nice to be credited and

` notified at yellow1dbp@hotmail.com if this was used in a game

` Thanks, and I hope the tutorial helps.

`Lottery Program

`This tutorial will teach you the basics of making a lottery program.

`You'll learn how to input lottery numbers, save them, and do a random drawing.

`Enjoy!

Lottery:

cls `Clear the screen of all data.

do `We initilize our loop

`These are the variables we use to determine the three lottery numbers

first#=rnd(9)

second#=rnd(9)

third#=rnd(9)

`Each one of these numbers will randomly select a number from 1-9.

if returnkey()=1 then goto Number

`This command tells us to move down to the Number:

`This stops random numbers from being selected, and gives us our choice.

set cursor 0,0                   `sets the cursor at 0 x and 0 y.

print "Press [enter] to guess numbers]"

loop ` we put our loop statement in, so it heads back to the "do" command.

Number:

`These commands

input "Your first digit(1-9): ",a#

input "Your second digit(1-9): ",b#

input "Your third digit(1-9): ",c#

if (a#*100)+(b#*10)+c#=(first#*100)+(second#*10)+(third#) `A generic if statement.

goto win                         `Tells us what to do if the "if" statement is true.

else                              `Tells us what to do if the "if" statement is false.

set cursor 0,80                   `sets the cursor at 0 x and 0 y.

print "The winning numbers... "+str$((first#*100)+(second#*10)+(third#))      `Shows us what the numbers were

print "Your numbers... "+str$((a#*100)+(b#*10)+c#)

wait key                         `Waits for any key

goto Lottery                     `Sends us back to the lottery

endif

loop

win:

do      `Just a small congruadulations screen. :)

set cursor 0,0

print "I CAN'T BELIEVE YOU WON THE LOTTERY!"

print "GO BUY A LOTTERY TICKET NOW!!"

loop

remstart

Topics not covered.

I feel I havn't explained the "Goto" command very well. Basically, it tells the program

to "go to" a certain area. This area is defined by a name, followed by a colon(":").

goto Pizza

Pizza:

Hopefully now you'll understand a little better of what is going on.

remend

`You now have an understanding of a basic lottery program

Download

Please login to download

Comments

No comments yet.

Author Name:	MikeS
CodeBase Entries:	24

CodeBase - Basic Principles of Lottery