-----------------------------------

elmocookies

Mon Jan 01, 2007 2:07 pm


Buttons Help

-----------------------------------

I have created a program which uses buttons to navigate. The buttons appear in some procedures but they dont work.

Here what I have so far.


%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")

% Global Declaration Section
var number : int % the guess of the user
var answer : int % the random number the computer chooses
var triesleft : int := 3 % amount of tries the user has left from the original three
var winID1 := Window.Open ("position:300;300, graphics:400;300") % the main window with the game in it
var menu : int :=0 % the main menu button variable
var quitBtn :int:=0 % the exit button variable
var playGame :int :=0 % the play game variable

% Program Title
procedure title
    locate (1, 19)
    put "Guessing Game"
end title

% Program Introduction
procedure intro
    cls
    title
    locate (3, 1)
    put "This program will allow you to guess a number that the computer is thinking of!"
    GUI.Refresh
end intro

% Random Number
procedure randNum
    randint (answer, 10, 65)
end randNum

% Goodbye
procedure goodbye
    cls
    title
    locate (5, 22)
    put "Credits"
    locate (10, 13)
    put ""
    locate (14, 14)
    put ""
    delay (6000)
    cls
    locate (12, 15)
    put "Thank You For Playing!"
    delay (2000)
    Window.Close (winID1) % closes the main window
end goodbye

% Window 2
procedure drawWindow2
  var winID2 := Window.Open ("position:200;200, graphics:300;100") % the error trap window
  locate (1, 1)
  put "Invalid Number! Your guess has to be between 10 and 64."
  locate (4, 1)
  put "Press any key to continue" ..
  loop
      exit when hasch
  end loop
  Window.Close (winID2) % closes error trap window
end drawWindow2

% UserInput
procedure userInput
    cls
    title
    locate (5, 1)
    put "Guess a number between 10 and 65: " ..
    get number 
    if number < 10 or number > 65 then
        drawWindow2 % opens error trap window
        userInput
    elsif number = answer then
        title
        locate (12, 9)
        put "Congratulations! You guessed it!"
    else
        if triesleft = 0 then
            cls
            title
            locate (11, 21)
            put "YOU LOSE!"
            locate (13, 20)
            put "GAME OVER!"
        end if
    end if
end userInput

% Main Menu
procedure mainMenu
    cls
    title
    GUI.Refresh
end mainMenu

% Display
procedure display
    cls
    title
    locate (10, 6)
    put "The last number that you guessed was: ", number ..
    locate (14, 13)
    put "The correct answer is: ", answer
    delay (2000)
    GUI.Refresh
end display

% Processing and Output
procedure output
    cls
    title
    display
    locate (5, 1)
    put "The answer is ", answer
end output

% Main Game
procedure mainGame
    randNum 
    loop 
        exit when triesleft = 0 
        userInput 
        if number = answer then 
            locate (11, 36) 
            put "Good Job!" 
            exit 
        else 
            locate (8, 1) 
            put "Thats wrong!" 
            triesleft := triesleft - 1 
            put "Guesses remaining: ", triesleft 
            delay (2000) 
        end if 
    end loop 
    cls 
    display 
end mainGame

%Buttons
menu := GUI.CreateButtonFull (125,150,150, "Main Menu", mainMenu, 0, '^M', false)
quitBtn := GUI.CreateButtonFull (125, 100, 150, "Exit", goodbye, 0,KEY_ESC, false)
playGame := GUI.CreateButtonFull (125,200,150, "Play Guessing Game", mainGame, 0, '^P' , false)

% Main Program
intro
mainMenu
% End of Program 

Any ideas as to how I can fix that?


-----------------------------------

tridi

Mon Jan 01, 2007 5:32 pm



-----------------------------------

I got your buttons to work =D

menu := GUI.CreateButtonFull (125,150,150, "Main Menu", mainMenu, 0, '^M', false) 
quitBtn := GUI.CreateButtonFull (125, 100, 150, "Exit", goodbye, 0,KEY_ESC, false) 
playGame := GUI.CreateButtonFull (125,200,150, "Play Guessing Game", mainGame, 0, '^P' , false) 
loop
    exit when GUI.ProcessEvent
end loop

add the three last lines after your buttons. The program still doesn't work properly, though. =| tell me when you're finished, i'm still trying to finish mine...


-----------------------------------

tridi

Mon Jan 01, 2007 5:46 pm



-----------------------------------

Actually, instead of "GUI.Refresh" put GUI.Show (buttonname) instead. Then put the following code in each procedure that has a button.

loop
    exit when GUI.ProcessEvent
end loop


-----------------------------------

elmocookies

Mon Jan 01, 2007 9:10 pm



-----------------------------------

That works, but when the program exits an error message appears saying:

An error was found in "WidgetModule.tu".
[/quote]


-----------------------------------

tridi

Mon Jan 01, 2007 9:14 pm



-----------------------------------

Ya, I have the same problem. I asked the teacher about it, but she said she doesn't know what the problem is. I'm leaving it for now.


-----------------------------------

elmocookies

Mon Jan 01, 2007 9:23 pm



-----------------------------------

Ok nevermind then I'm done that. Thanks.


-----------------------------------

CodeMonkey2000

Mon Jan 01, 2007 9:36 pm



-----------------------------------

I think that happens because when you cole the window the code is still in this loop:loop
    exit when GUI.ProcessEvent
end loop


-----------------------------------

CodeMonkey2000

Mon Jan 01, 2007 9:37 pm



-----------------------------------

you need some way of exiting it