Computer Science Canada

Windows help
Author:  Angafroness [ Mon May 30, 2011 6:45 pm ]
Post subject:  Windows help
%Declaration Section
var mainWindow := Window.Open ("position:300;300, graphics:400;400")
%This global variable is the user input to the guessing game.
var guess : int
%This global variable is the answer to the guessing game it is a random number.
var answer : int
%This global variable is the ammount of tries can be utiized.
var tries : int := 0
%This global variable is for the main menu, it is the choice on the menu screen
var choice : string (1)


%Program title
proc title
cls
locate (1, 33)
put "Guessing game"
put ""
end title

%Random number
proc randNum
randint (answer, 25, 75)
end randNum

%Pause program
%This will pause the program when run.
proc pauseProgram
%This variable is to create the pause in pauseProgram
var reply : string (1)
put "Press any key to continue..." ..
getch (reply)
end pauseProgram

%Program Introduction
proc introduction
title
locate (3, 1)
put "See if you can guess a number between 25 and 75 in three tries!"
randNum
pauseProgram
end introduction


%Procedure main menu
proc mainMenu %(changeWindow)
title
locate (3, 20)
put "Enter one of the three options below."
put "To start a New game press 1 "
put ""
put "To continue a game press 2 "
put ""
put "To exit press 3 "
put ""
put "Enter your choice here: " ..
get choice
end mainMenu

proc drawWindow2
var windowID2 := Window.Open ("position:200;200, graphics:200;100")
Window.Hide (mainWindow)
Window.Show (windowID2)
Window.SetActive (windowID2)
put "You pressed an invalid key. Press any key to continue..." ..
loop
exit when hasch
end loop
Window.Show (mainWindow)
Window.SetActive (mainWindow)
Window.Close (windowID2)
end drawWindow2

proc drawWindow1
mainMenu
if choice not= "1" and choice not= "2" and choice not= "3" then
mainMenu
else
if choice = "1" or (choice = "2" and tries = 3) then
randNum
tries := 0
end if
end if
end drawWindow1
%This procedure will display the main menu

%UserInput
proc userInput
title
locate (5, 1)
put "Enter a number between 25 and 75: " ..
get guess
%If the guess is less than 25 and greater then 75 an error message will display.
if guess < 25 or guess > 75 then
put ""
put "Error number out of range! Enter a number between 25 and 75!"
pauseProgram
userInput
end if
end userInput

%Output and processing
proc display
title
%This will seperate the result displays
if guess < answer then
put "You guessed: ", guess
put ""
put "Way down there?"
put ""
elsif guess > answer then
put "You guessed: ", guess
put ""
put "Come down"
put ""
else
put "Good job! You guessed the number!"
end if
tries := tries + 1 %Only 3 tries.
pauseProgram
end display

%This is the final screen.
proc goodBye
%POSSIBLE CREATE ANOTHER WINDOW IF NECESSASY TO 'CLOSE' THE GOODBYE
title
if choice = "3" then
put "Thank you for playing this game."
elsif guess = answer then
put "Congradulations you guessed right!"
else
put "You didnt guess the magical number try again!"
put "The number was: ", answer
end if
locate (20, 40)
put "Creator: Angelo Fousteris"
end goodBye

%Main program
introduction
%This loop is done to exit the program after three tries and display a goodbye message.
loop
mainMenu
exit when choice = "3"
userInput
display
end loop
goodBye
%End program
Author:  apython1992 [ Mon May 30, 2011 6:46 pm ]
Post subject:  RE:Windows help
So what's the question?
Author:  Angafroness [ Mon May 30, 2011 6:50 pm ]
Post subject:  RE:Windows help
how do i create windows that will appear when the user inputs something incorrect
like on the main menu if they enter choice 6 (it doesnt exist)
Author:  Zren [ Mon May 30, 2011 8:00 pm ]
Post subject:  RE:Windows help
Make your code pretty.
code:

[syntax="turing"]

[/syntax]


Turing's weird. If you initialize the variable when you declare it inside a procedure, it seems to calculate it at the beginning of the program and open up a new window. Break the two up into two lines, and your popup window should work as intended.
Turing:

proc error (msg : string)
    var msgWindow : int % Declare on a seperate line otherwise Turing opens it up early
    msgWindow := Window.Open ("graphics")
    put msg
    loop
        input
        exit when keyDown (KEY_ENTER)
    end loop
    Window.Close (msgWindow)
end error

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy