Computer Science Canada

window help
Author:  nin [ Thu Jan 04, 2007 9:12 pm ]
Post subject:  window help
if u run the program below the goodbye process is showing up when you press a key to start the game.
_____________________________________________________________

% Global Declaration Section
var key : string (1)
var number, randomNum : int

var try := 0
var mainWin := Window.Open ("postion:300;300,graphics:400;400")
var playBtn, quitBtn : int := 0

%Title
procedure title
cls
locate (1, 33)
put "Guessing Game"
put ""
end title

%Pause Program
procedure pauseProgram
put " "
put "Press any key to continue: " ..
getch (key)
end pauseProgram

%Introduction
procedure introduction
title
locate (4, 1)
put "This program will allow you to guess a number between 10 and 65."
pauseProgram
end introduction

%New Window
proc drawWindow2
var winID2 := Window.Open ("position : 200;200, graphics : 200;100 ")
locate (2, 1)
put "Please try again. Remember to put a number between 10 and 65"
locate (6, 1)
put "To try again, please press any key" ..
loop
exit when hasch
end loop
Window.Close (winID2)
end drawWindow2

%GoodBye
title
proc goodBye
locate (12, 25)
put "This program was brought to you by: "
locate (13, 35)
put "******** *******"
locate (14, 39)
put "Goodbye!"
delay (2500)
Window.Close (mainWin)
end goodBye


%Procedure randNum
proc randNum
randint (randomNum, 10, 65)
end randNum

%User Input
procedure userInput
title
put "Please enter a number between 10 and 65: " ..
get number
if number < 10 or number > 65 then
drawWindow2
userInput
end if
end userInput

%Display
proc display
title
try := try + 1
if number = randomNum then
locate (3, 1)
put "Good Job!"
put "Try number: ", try

elsif number < randomNum then
put "Too low! Please try again"
put "Try number: ", try

else
put "Your guess is too high! Please try again"
put "Try number: ", try
end if
if try = 3 then
locate (6, 1)
put "The random number chosen was: ", randomNum

end if
pauseProgram
end display

%Main Program
introduction
randNum
loop
goodBye
userInput
display
exit when number = randomNum or try = 3
end loop
goodBye

%End of Program
Author:  CodeMonkey2000 [ Thu Jan 04, 2007 10:28 pm ]
Post subject: 
Evil or Very Mad please use code tags!!
anyway umm you have to take out the call to goodbye in your main loop

:


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

Terms of Use | Privacy Policy