I'm thinking of a number from 1 to 10

Author

Message

Timber Wolf

20

Years of Service

User Offline

Joined: 2nd Jun 2004

Location:

Posted: 23rd Oct 2005 05:32 Edited at: 23rd Oct 2005 17:03

Link

I'm teaching myself to use db right now, so I'm starting with simple things such as this. This is a simple full screen program that lets you guess a number from 1 to 10. You are told whether you were right, close, or dead wrong, and repeats until you win. I used mousex and mousey multiplied by eachother and a random number to 1000 as the seed for randomiztion to try and make it less sequencial. hopefully this can help other begginners to the language understand some basics. If anything about this can be done simpler then how I've done it, please post.

Rem Guess a number 1 to 10

Rem Declare variables
x=0
y=0
z=1

reseed:

Rem set seed for randomization
randomize (mousex()*mousey()*(rnd(10)+1))

Rem begin loop for user to guess number
Do

restart:

Rem set random number's range
   Rem 0 is a posibility in random numbers, so by using 9 to make the range 0-9, and then adding 1 to the generated number, we get 1-10
   x=rnd (9)+1

Rem ask for user to guess
   cls
   Print "I'm thinking of a number from 1 to 10. Can you guess it?"
   input " " ; y

Rem If the player puts in thing other then a number from 1-10, tell the user of his error
   If y=0 then print "A value of 0 cannot be accepted as an answer" : print "Make sure you entered a number 1-10. Press any key to continue" : suspend for key : goto restart

Rem Calculate if the player is right, close, or dead wrong
   if y = x then goto win
   if y = x+1 or y = x-1 then print "Close but incorrect. The correct number was " ; x : Print "Press any key to try again, or Escape key to exit" : suspend for key
   if y < x-1 or y > x+1 then Print "Incorrect, the correct number was " ; x : Print "Press any key to try again, or Escape key to exit" : suspend for key

Rem Go to reseed the random number
   goto reseed

loop

win:

Rem Alert player that he won
Print "You win! press any key to exit"

Rem Wait for User input to end program
Rem This gives player time to realize he's won
suspend for key

+ Code Snippet

Rem Guess a number 1 to 10

Rem Declare variables
x=0
y=0
z=1

reseed:

Rem set seed for randomization
randomize (mousex()*mousey()*(rnd(10)+1))

Rem begin loop for user to guess number
Do

   restart:

   Rem set random number's range
   Rem 0 is a posibility in random numbers, so by using 9 to make the range 0-9, and then adding 1 to the generated number, we get 1-10
   x=rnd (9)+1

   Rem ask for user to guess
   cls
   Print "I'm thinking of a number from 1 to 10. Can you guess it?"
   input " " ; y

   Rem If the player puts in thing other then a number from 1-10, tell the user of his error
   If y=0 then print "A value of 0 cannot be accepted as an answer" : print "Make sure you entered a number 1-10. Press any key to continue" : suspend for key : goto restart

   Rem Calculate if the player is right, close, or dead wrong
   if y = x then goto win
   if y = x+1 or y = x-1 then print "Close but incorrect. The correct number was " ; x : Print "Press any key to try again, or Escape key to exit" : suspend for key
   if y < x-1 or y > x+1 then Print "Incorrect, the correct number was " ; x : Print "Press any key to try again, or Escape key to exit" : suspend for key

   Rem Go to reseed the random number
   goto reseed

loop

win:

Rem Alert player that he won
Print "You win! press any key to exit"

Rem Wait for User input to end program
Rem This gives player time to realize he's won
suspend for key

I known: HTML, How to 3dmodel
learning: Javascript, C++, Basic

Back to top

Profile PM Email

Millenium7

19

Years of Service

User Offline

Joined: 13th Dec 2004

Location:

Posted: 23rd Oct 2005 11:08 Edited at: 23rd Oct 2005 11:11

Link

Once you learn the language concentrate on optimising your code because its more how you write than what you write that matters. Your using the randomise command to stop it generating the same sequence every time, good. But theres a better way than what your doing, whats a return variable thats never the same or highly unlikely to be the same without the user doing anything? (in this case moving the mouse)

Timer() is the best so try randomise timer()

Another line that can be optimised is...

+ Code Snippet

Rem If the player puts in thing other then a number from 1-10, tell the user of his error
   If y=0 then print "A value of 0 cannot be accepted as an answer" : print "Make sure you entered a number 1-10. Press any key to continue" : suspend for key : goto restart

change to

+ Code Snippet

If y<1 or y>10 then print "A value of "+str$(y)+" cannot be accepted as an answer" : print "Make sure you entered a number 1-10. Press any key to continue" : suspend for key : goto restart

So it picks up anything less than 1 or more than 10 as being an error, rather than just 0. If you were writing a larger more complex program - depending on how it works - you could optimise it furthur, for example if you had a program execute that same 'if then' statement several times but sometimes needed different numbers, instead of writing the same code 100 times you could do something like...

+ Code Snippet

min=1:max=10:gosub CheckValue

CheckValue:
If y<min or y>max then print "A value of "+str$(y)+" cannot be accepted as an answer" : print "Make sure you entered a number "+str$(min)+"-"+str$(max)+". Press any key to continue" : suspend for key : goto restart
return

or turn it into a function which - depending on how the program is designed - can be even better

if CheckValue(1,10,answer)=0 then print "A value of "+str$(answer)+" cannot be accepted as an answer" : print "Make sure you entered a number 1-10. Press any key to continue" : suspend for key : goto restart

Function CheckValue(min,max,answer)
if answer<min or answer>max then result=0 else result=1
EndFunction result

If you dont know about functions yet ignore that 2nd part, their best used in more complex programs with routines that need to be called several times with differing values

Back to top

Profile PM Email

Timber Wolf

20

Years of Service

User Offline

Joined: 2nd Jun 2004

Location:

Posted: 23rd Oct 2005 16:33 Edited at: 23rd Oct 2005 17:03

Link

Hey, thanks for the info man. Timer works alot better then my mouse coordinates. I can see the second part really helping if I were to give the user the choice of which number's guessing, and I can see how it could be applied to alot more.

Thanks again

/edit
I took some time to mess around with what you told me, and I know have a program that allows the user to choose the start and ending number. It will also tell the user if they made the end number equal to or less then the start number, and have them put in new numbers

Rem Guess a number 1 to 10

Rem Declare variables
x=0
y=0
z=1
st=0
en=0
reseed:

Rem set seed for randomization
randomize timer()

Rem begin loop for user to guess number
Do

restart:

Rem ask for user start to end numbers
   cls
   Print "What numbers would you like to guess between?"
   Input "Start number: " ; st
   Input "End number: " ; en

If en <= st then Print "The ending number must be greater then the starting number!" : Print "Press any key to continue" : suspend for key : goto restart

Rem set random number's range
   Rem 0 is a posibility in random numbers, so by using 9 to make the range 0-9, and then adding 1 to the generated number, we get 1-10
   x=rnd (en-st) + st

Rem ask for user to guess
   cls
   Print "I'm thinking of a number from "+str$(st)+" to "+str$(en)+". Can you guess what it is?"
   input "Guess: " ; y

Rem If the player puts in thing other then a number from 1-10, tell the user of his error
   If y<st or y>en then print "A value of "+str$(y)+" cannot be accepted as an answer." : print "Make sure you entered a number from 1 to 10. Press any key to continue." : suspend for key : goto restart

Rem Calculate if the player is right, close, or dead wrong
   if y = x then goto win
   if y = x+1 or y = x-1 then print "Close but incorrect. The correct number was "+str$(x)+".": Print "Press any key to try again, or Escape key to exit." : suspend for key
   if y < x-1 or y > x+1 then Print "Incorrect, the correct number was "+str$(x)+"." : Print "Press any key to try again, or Escape key to exit." : suspend for key

Rem Go to reseed the random number
   goto reseed

loop

win:

Rem Alert player that he won
Print "You win! press any key to exit."

Rem Wait for User input to end program
Rem This gives player time to realize he's won
suspend for key

+ Code Snippet

Rem Guess a number 1 to 10

Rem Declare variables
x=0
y=0
z=1
st=0
en=0
reseed:

Rem set seed for randomization
randomize timer()

Rem begin loop for user to guess number
Do

   restart:

   Rem ask for user start to end numbers
   cls
   Print "What numbers would you like to guess between?"
   Input "Start number: " ; st
   Input "End number: " ; en

   If en <= st then Print "The ending number must be greater then the starting number!" : Print "Press any key to continue" : suspend for key : goto restart

   Rem set random number's range
   Rem 0 is a posibility in random numbers, so by using 9 to make the range 0-9, and then adding 1 to the generated number, we get 1-10
   x=rnd (en-st) + st

   Rem ask for user to guess
   cls
   Print "I'm thinking of a number from "+str$(st)+" to "+str$(en)+". Can you guess what it is?"
   input "Guess: " ; y

   Rem If the player puts in thing other then a number from 1-10, tell the user of his error
   If y<st or y>en then print "A value of "+str$(y)+" cannot be accepted as an answer." : print "Make sure you entered a number from 1 to 10. Press any key to continue." : suspend for key : goto restart

   Rem Calculate if the player is right, close, or dead wrong
   if y = x then goto win
   if y = x+1 or y = x-1 then print "Close but incorrect. The correct number was "+str$(x)+".": Print "Press any key to try again, or Escape key to exit." : suspend for key
   if y < x-1 or y > x+1 then Print "Incorrect, the correct number was "+str$(x)+"." : Print "Press any key to try again, or Escape key to exit." : suspend for key

   Rem Go to reseed the random number
   goto reseed

loop

win:

Rem Alert player that he won
Print "You win! press any key to exit."

Rem Wait for User input to end program
Rem This gives player time to realize he's won
suspend for key

I known: HTML, How to 3dmodel
learning: Javascript, C++, Basic

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / I'm thinking of a number from 1 to 10