This is a very simple freebasic program. Guess my number between 1-100. You have 7 trys to guess the number. Simple enough?
Screen 17
Dim guess as Byte
Dim number as byte
Dim GuessCount as integer
Randomize Timer
cls
Print "Welcome to the Guessing Game!"
Print
Print "I am thinking of a number between 1 and 100."
number = int(rnd*100)+1
'Print number
Print "Can you guess my number?"
Do
GuessCount = GuessCount + 1
Print
Input "Your guess: ", guess
if guess = number then
Print "Well done! You guessed my number."
Sleep
End
end if
If guess < number Then
Print "Higher..."
else
Print "Lower..."
End if
Print "You have " + str(7 - GuessCount) + " guesses remaining..."
Loop until GuessCount = 7
Print "You have guessed 7 times... Not good enough. You have no more guesses."
Print "Game over."
Sleep
End
There is a simple counting loop coded manually that could be a FOR loop. The IIF function can be used for the lower/higher output.
Randomize Timer
Const MaxGuessCount = 7
Dim number As Const Byte = Int(Rnd * 100) + 1
Dim guess As Byte
Cls
Print "Welcome to the Guessing Game!"
Print
Print "I am thinking of a number between 1 and 100."
Print "Can you guess my number?"
For guessCount As Byte = MaxGuessCount To 1 Step -1
Print
Input "Your guess: ", guess
If guess = number Then Print "Well done! You guessed my number.": End
Print IIf(guess < number, "Higher...", "Lower...")
Print "You have"; guessCount - 1; " guesses remaining..."
Next
Print "You have guessed"; MaxGuessCount; " times... Not good enough. You have no more guesses."
Print "Game over."