Using Buttons and Returning to Start Menu

SHREDDER007 · **Posted:** Wed Jan 23, 2008 3:29 pm

Hey guys, I'm making a math program right now that gives 4 choices at the beginning using buttons. Now once I click on one of the buttons it activates the procedure like it is supposed to. Once it finishes the procedure I want it to go back to the start menu so you can choose another option if you wish. I havn't used buttons before so normally my instincts would tell me just to put it in a loop, but since I'm using procedures I get the: "procedure's may only be declared at the program, module, or monitor level" error. How do I make it so that I can return to the beginning of the program?

Sean · **Posted:** Wed Jan 23, 2008 3:33 pm

If your Main Menu design is in a procedure, then you just declare a return button and assign it the Main Menu Procedure and it will work.

SHREDDER007 · **Posted:** Wed Jan 23, 2008 3:48 pm

Ok so at the beginning, just to get the program started i could have 2 buttons saying start the program, and quit. Then the start button will bring them to the main menu where they can make their choice of quiz... this will be inside a procedure. Once they finish that quiz I just have a button that returns it to the original menu.

I think that's what you mean right?

Sean · **Posted:** Wed Jan 23, 2008 5:18 pm

Well, without your code that you are using, I would not be bale to fully understand what you are attempting to accomplish.

What I meant was...

Turing:

proc MainScreen
colourback (black)
cls
Draw.Oval (120,300,50,50,brightred)
end MainScreen

%Then stick your button in and give it the procedure ID of MainScreen and it will go to that.

SHREDDER007 · **Posted:** Wed Jan 23, 2008 6:20 pm

Alright thanks, sorry I don't have the code on this computer right now, otherwise I would've given it to you.

Sean · **Posted:** Wed Jan 23, 2008 7:29 pm

Hopefully you understood what I meant.

SHREDDER007 · **Posted:** Wed Jan 23, 2008 7:32 pm

Yea I know what you mean, I'll let you know if I get it to work tomorrow.

Sean · **Posted:** Wed Jan 23, 2008 7:34 pm

Make sure to have a cls so that it clears the screen completely then does the procedure. So stick a cls infront of the code you want to use.

SHREDDER007 · **Posted:** Thu Jan 24, 2008 9:23 am

Ok I can't figure it out, here's my code:

Turing:

import GUI
var picID, picID1, picID2, picID3, picID4, picID5, picID7, picID8, picID9, picID10, picID11, answer : int
var fontID : int := Font.New ("Import:40:underline")
var fontID1 : int := Font.New ("Import:12:underline")
var fontID2 : int := Font.New ("Script MT Bold:40:underline")
var fontID3 : int := Font.New ("Times New Roman:12:underline")
var fontID6 : int := Font.New ("Allegro BT:40:underline")
var fontID7 : int := Font.New ("Rockwell:12")
var fontID8 : int := Font.New ("Kidprint:18")
var fontID9 : int := Font.New ("Destine:40:underline")
picID := Pic.FileNew ("krusty2.jpg")
picID1 := Pic.FileNew ("mario1.jpg")
picID2 := Pic.FileNew ("aladdin.jpg")
picID3 := Pic.FileNew ("spongepic.jpg")
picID4 := Pic.FileNew ("daffy.jpg")
picID5 := Pic.FileNew ("genie.jpg")
picID7 := Pic.FileNew ("daffy1.jpg")
picID8 := Pic.FileNew ("bugs1.jpg")
picID9 := Pic.FileNew ("mariopic1.jpg")
picID10 := Pic.FileNew ("coolredback.jpg")
picID11 := Pic.FileNew ("spongepic1.jpg")

process timer
answer := 0
get answer
end timer
drawfill (0, 0, 76, 7)
Font.Draw ("Choose An Exercise", 125, 350, fontID2, green)
Pic.Draw (picID2, 370, 265, picCopy)
Pic.Draw (picID3, 0, 200, picCopy)
Pic.Draw (picID1, 370, 130, picMerge)
Pic.Draw (picID4, 0, 70, picMerge)
locatexy (150, 50)
cls

procedure Adding
%ADDING
cls
drawfill (0, 0, 7, 7)
Pic.Draw (picID5, 100, 50, picCopy)
Font.Draw ("Addition Practice!", 125, 350, fontID6, 52)
Font.Draw ("You Will Be Given 4 Seconds Per Question", 300, 275, fontID7, 52)
delay (4000)
Font.Draw ("Press Any Key When You Are Ready!", 300, 225, fontID7, 52)
Music.PlayFile ("bath.wav")
Input.Pause
delay (1000)
cls
var a, b, c, corr, incorr, timout, w : int
var t, r, d, e : array 1 .. 100 of real
var picID6 : int
picID6 := Pic.FileNew ("clock.jpg")
var fontID4 : int := Font.New ("Times New Roman:125")

randomize
timout := 0
corr := 0
incorr := 0

w := 1
for x : 1 .. 10

randint (a, 1, 10)
randint (b, 1, 10)

t (x) := a
r (x) := b
c := a + b
d (x) := c

put " You only have 4 seconds to answer!!!"
put " "

put "what is ", a : 3, " plus ", b : 3, " ? " ..
fork timer
Pic.Draw (picID6, 100, 0, picCopy)
Font.Draw ("4", 210, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("3", 220, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("2", 220, 120, fontID4, red)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("1", 220, 120, fontID4, 12)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("0", 220, 120, fontID4, 12)

if answer = 0 then
put " you took too long"
timout := timout + 1
elsif answer = c then
put " great job"
corr := corr + 1
elsif answer not= c then
put " sorry"
incorr := incorr + 1
end if

e (x) := answer

delay (2000)

cls
w := w + 1
end for

for f : 1 .. (w - 1)
put "Question ", f, " was ", t (f), " plus ", r (f), " = ", d (f)
if e (f) = d (f) then
put "Your answer was ", e (f), " and you were correct!"
put " "
delay (2000)
elsif e (f) not= d (f) and e (f) not= 0 then
put "Your answer was ", e (f), " and you were incorrect."
put " "
delay (2000)
else
put "You did not answer in time..."
put " "
delay (2000)
end if
end for
delay (10000)
cls

locatexy (155, 400)
put "Results"
locatexy (10, 370)
put "Correct Answers: ", corr
locatexy (10, 360)
put "Time Outs: ", timout
locatexy (10, 350)
put "Incorrect Answers: ", incorr
locatexy (10, 330)
put "Total Percentage: ", ((corr / (w - 1)) * 100), "%"
drawbox (5, 397, 325, 310, 7)
end Adding

procedure Division
% DIVISION
cls
drawfill (0, 0, 1, 7)
Pic.Draw (picID7, -200, 50, picCopy)
drawline (-205, 50, -205, 300, 1)
Font.Draw ("Division Practice!", 125, 350, fontID6, 44)
Music.PlayFile ("daffy.wav")
delay (200)
Music.PlayFile ("ohyou.wav")
for x : 1 .. 300
Pic.Draw (picID7, -200 + x, 50, picCopy)
drawline (-205 + x, 50, -205 + x, 300, 1)
delay (10)
Pic.Draw (picID7, -200 + x, 50, picCopy)
drawline (-205 + x, 50, -205 + x, 300, 1)
end for
Music.PlayFile ("ohbugs.wav")
for x : 1 .. 300
Pic.Draw (picID7, 100 - x, 50, picCopy)
drawline (265 - x, 50, 265 - x, 300, 1)
delay (5)
Pic.Draw (picID7, 100 - x, 50, picCopy)
drawline (265 - x, 50, 265 - x, 300, 1)
end for
for x : 1 .. 300
Pic.Draw (picID8, -200 + x, 50, picCopy)
drawline (-205 + x, 50, -205 + x, 300, 1)
delay (10)
Pic.Draw (picID8, -200 + x, 50, picCopy)
drawline (-205 + x, 50, -205 + x, 300, 1)
end for
Music.PlayFile ("whatsupdoc.wav")
delay (200)
Music.PlayFile ("startpound.wav")
delay (200)
Font.Draw ("You Will Be Given 4 Seconds Per Question", 275, 275, fontID8, 44)
delay (4000)
Font.Draw ("Press Any Key When You Are Ready!", 275, 225, fontID8, 44)
Input.Pause
cls
var a, b, c, corr, incorr, timout, w : int
var t, r, d, e : array 1 .. 100 of real
var picID6 : int
picID6 := Pic.FileNew ("clock.jpg")
var fontID4 : int := Font.New ("Times New Roman:125")

randomize
timout := 0
corr := 0
incorr := 0

w := 1

for x : 1 .. 10

randint (a, 1, 10)
randint (b, 1, 10)

t (x) := a
r (x) := b
c := a * b
d (x) := c

put " You only have 4 seconds to answer!!!"
put " "

put "what is ", c : 3, " divided by ", b : 3, " ? " ..
fork timer
Pic.Draw (picID6, 100, 0, picCopy)
Font.Draw ("4", 210, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("3", 220, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("2", 220, 120, fontID4, red)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("1", 220, 120, fontID4, 12)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("0", 220, 120, fontID4, 12)

if answer = 0 then
put " you took too long"
timout := timout + 1
elsif answer = a then
put " great job"
corr := corr + 1
elsif answer not= a then
put " sorry"
incorr := incorr + 1
end if
e (x) := answer
delay (2000)

cls
w := w + 1
end for

for f : 1 .. (w - 1)
put "Question ", f, " was ", d (f), " divided by ", r (f), " = ", t (f)
if e (f) = t (f) then
put "Your answer was ", e (f), " and you were correct!"
put " "
delay (2000)
elsif e (f) not= t (f) and e (f) not= 0 then
put "Your answer was ", e (f), " and you were incorrect."
put " "
delay (2000)
else
put "You did not answer in time..."
put " "
delay (2000)
end if
end for
delay (10000)
cls

locatexy (155, 400)
put "Results"
locatexy (10, 370)
put "Correct Answers: ", corr
locatexy (10, 360)
put "Time Outs: ", timout
locatexy (10, 350)
put "Incorrect Answers: ", incorr
locatexy (10, 330)
put "Total Percentage: ", ((corr / (w - 1)) * 100), "%"
drawbox (5, 397, 325, 310, 7)
end Division

procedure Subtraction
% SUBTRACTION
cls
drawfill (0, 0, 72, 7)
Pic.Draw (picID11, 25, 75, picCopy)
Font.Draw ("Subtraction Practice!", 100, 350, fontID6, 7)
Music.PlayFile ("sponge.wav")
delay (200)
Font.Draw ("You Will Be Given 4 Seconds Per Question", 275, 275, fontID8, 7)
delay (4000)
Font.Draw ("Press Any Key When You Are Ready!", 275, 225, fontID8, 7)
Input.Pause
cls
var a, b, c, corr, incorr, timout, w : int
var t, r, d, e : array 1 .. 100 of real
var picID6 : int
picID6 := Pic.FileNew ("clock.jpg")
var fontID4 : int := Font.New ("Times New Roman:125")

randomize
timout := 0
corr := 0
incorr := 0
w := 1

for x : 1 .. 10

randint (a, 1, 10)
randint (b, 1, 10)

put " You only have 4 seconds to answer!!!"
put " "
if a < b then
put
"what is ", b : 3, " minus ", a : 3, " ? " ..
c := b - a
t (x) := a
r (x) := b
d (x) := c
elsif
a > b then
put "what is ", a : 3, " minus ", b : 3, " ? " ..
c := a - b
t (x) := a
r (x) := b
d (x) := c
else
randint (a, 1, 10)
randint (b, 1, 10)
if a < b then
put
"what is ", b : 3, " minus ", a : 3, " ? " ..
c := b - a
t (x) := a
r (x) := b
d (x) := c
elsif
a > b then
put "what is ", a : 3, " minus ", b : 3, " ? " ..
c := a - b
t (x) := a
r (x) := b
d (x) := c
end if
end if
fork timer
Pic.Draw (picID6, 100, 0, picCopy)
Font.Draw ("4", 210, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("3", 220, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("2", 220, 120, fontID4, red)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("1", 220, 120, fontID4, 12)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("0", 220, 120, fontID4, 12)

if answer = 0 then
put " you took too long"
timout := timout + 1
elsif answer = c then
put " great job"
corr := corr + 1
elsif answer not= c then
put " sorry"
incorr := incorr + 1
end if

e (x) := answer
delay (2000)

cls
w := w + 1
end for
for f : 1 .. (w - 1)
put "Question ", f, " was ", t (f), " minus ", r (f), " = ", d (f)
if e (f) = d (f) then
put "Your answer was ", e (f), " and you were correct!"
put " "
delay (2000)
elsif e (f) not= d (f) and e (f) not= 0 then
put "Your answer was ", e (f), " and you were incorrect."
put " "
delay (2000)
else
put "You did not answer in time..."
put " "
delay (2000)
end if
end for
delay (10000)
cls

locatexy (155, 400)
put "Results"
locatexy (10, 370)
put "Correct Answers: ", corr
locatexy (10, 360)
put "Time Outs: ", timout
locatexy (10, 350)
put "Incorrect Answers: ", incorr
locatexy (10, 330)
put "Total Percentage: ", ((corr / (w - 1)) * 100), "%"
drawbox (5, 397, 325, 310, 7)
end Subtraction

procedure Multiplication
% MULTIPLICATION
cls
Pic.Draw (picID10, 0, 0, picCopy)
Pic.Draw (picID9, 15, 50, picCopy)
Font.Draw ("Multiplication Practice!", 25, 350, fontID9, 72)
Music.PlayFile ("memario.wav")
delay (200)
Font.Draw ("You Will Be Given 4 Seconds Per Question", 275, 275, fontID8, 72)
delay (4000)
Font.Draw ("Press Any Key When You Are Ready!", 275, 225, fontID8, 72)
Input.Pause
Music.PlayFile ("herewego.wav")
cls
var a, b, c, corr, incorr, timout, w : int
var t, r, d, e : array 1 .. 100 of real
var picID6 : int
picID6 := Pic.FileNew ("clock.jpg")
var fontID4 : int := Font.New ("Times New Roman:125")

randomize
timout := 0
corr := 0
incorr := 0
w := 1

for x : 1 .. 10

randint (a, 1, 10)
randint (b, 1, 10)

c := a * b
t (x) := a
r (x) := b
d (x) := c

put " You only have 4 seconds to answer!!!"
put " "

put "what is ", a : 3, " times ", b : 3, " ? " ..
fork timer
Pic.Draw (picID6, 100, 0, picCopy)
Font.Draw ("4", 210, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("3", 220, 120, fontID4, white)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("2", 220, 120, fontID4, red)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("1", 220, 120, fontID4, 12)
delay (750)
drawfillbox (175, 100, 300, 245, 7)
Font.Draw ("0", 220, 120, fontID4, 12)

if answer = 0 then
put " you took too long"
Music.PlayFile ("mariowrong.wav")
timout := timout + 1
elsif answer = c then
put " great job"
Music.PlayFile ("mariocorrect.wav")
corr := corr + 1
elsif answer not= c then
put " sorry"
Music.PlayFile ("mariotime.wav")
incorr := incorr + 1
end if
e (x) := answer
delay (2000)
w := w + 1
cls
end for
for f : 1 .. (w - 1)
put "Question ", f, " was ", t (f), " minus ", r (f), " = ", d (f)
if e (f) = d (f) then
put "Your answer was ", e (f), " and you were correct!"
put " "
delay (2000)
elsif e (f) not= d (f) and e (f) not= 0 then
put "Your answer was ", e (f), " and you were incorrect."
put " "
delay (2000)
else
put "You did not answer in time..."
put " "
delay (2000)
end if
end for
delay (10000)
cls

locatexy (155, 400)
put "Results"
locatexy (10, 370)
put "Correct Answers: ", corr
locatexy (10, 360)
put "Time Outs: ", timout
locatexy (10, 350)
put "Incorrect Answers: ", incorr
locatexy (10, 330)
put "Total Percentage: ", ((corr / (w - 1)) * 100), "%"
drawbox (5, 397, 325, 310, 7)
Music.PlayFile ("marioend.wav")
end Multiplication

drawfill (0, 0, 12, 7)
Font.Draw ("Math Practice!", 150, 350, fontID, blue)
Font.Draw ("Press Enter to continue", 200, 315, fontID1, blue)
Pic.Draw (picID, 100, -200, picCopy)
Music.PlayFile ("krusysound.wav")
Input.Pause
cls
var addbutton : int := GUI.CreateButton (125, 310, 180, "Addition With Aladdin", Adding)
var subbutton : int := GUI.CreateButton (125, 250, 100, "Subtraction With Spongebob", Subtraction)
var mulbutton : int := GUI.CreateButton (125, 190, 180, " Multiplication With Mario", Multiplication)
var divbutton : int := GUI.CreateButton (125, 130, 180, "Division With Daffy", Division)
var quitbutton : int := GUI.CreateButton (125, 70, 180, "Quit", GUI.Quit)
drawfill (0, 0, 76, 7)
Font.Draw ("Choose An Exercise", 125, 350, fontID2, green)
Pic.Draw (picID2, 370, 265, picCopy)
Pic.Draw (picID3, 0, 200, picCopy)
Pic.Draw (picID1, 370, 130, picMerge)
Pic.Draw (picID4, 0, 70, picMerge)

Now I need it to return to the part just above here with the buttons. Any help would really be appreciated.

EDIT: I figured it out, all I needed was a GUI.Refresh in the procedures... Laughing

Sean · **Posted:** Thu Jan 24, 2008 10:30 am

Good, was going to recommend you look at that.

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members