What is it you are trying to achieve?
My issue comes at the ending of the quiz portion of my program. Once the user is done the quiz, I want the program to go back to the main page (start of program).
What is the problem you are having?
I do not know how to do this. I was told to make a large loop, and smaller loops for each section. I tried this, but it did not work. I also tried a more far-fetched idea which included using GUI.ShowWindow, and GUI.HideWindow, which not as much success.
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
| Turing: |
%%%%%%%%%%%%%%%%%%%%%%FORMATTING%%%%%%%%%%%%%%%%%%%%%%
import GUI
setscreen ("graphics: 800; 600")
%Question Header Box will be 640 * 044 pixels
%Question Answer Box will be 640 * 225 pixels
%Information Headers will be 640 * 044 pixels
%Information bodies will be 640 * 445 pixels
%%%%%%%%%%%%%%%%%VARIABLE DECLARATION%%%%%%%%%%%%%%%%%
var mousex, mousey, mousesel, mousedown : int
var fadecolour : int := 000
var userselection : string := ""
var picBlended : int
%IMAGE VARIABLES: The image ID is used for organization.
%Sample: pic(usage: char (f (formating), q (quiz), i (info), t (titles)), number: int)
var picf01 : int := Pic.FileNew ("picf001_mainpage.jpg")
var picf02 : int := Pic.FileNew ("picf002_quizpage.jpg")
var picf03 : int := Pic.FileNew ("picf003_infopage.jpg")
var picf04 : int := Pic.FileNew ("picf04_testcomplete.jpg")
var picq01 : int := Pic.FileNew ("picq001_question1_q1.jpg")
var picq02 : int := Pic.FileNew ("picq002_question1_answer1.jpg")
var picq03 : int := Pic.FileNew ("picq003_question1_q2.jpg")
var picq04 : int := Pic.FileNew ("picq004_question1_answer2.jpg")
var picq05 : int := Pic.FileNew ("picq005_question1_q3.jpg")
var picq06 : int := Pic.FileNew ("picq006_question1_answer3.jpg")
var picq07 : int := Pic.FileNew ("picq007_question1_q4.jpg")
var picq08 : int := Pic.FileNew ("picq008_question1_answer4.jpg")
var picq09 : int := Pic.FileNew ("picq009_question1_q5.jpg")
var picq10 : int := Pic.FileNew ("picq010_question1_answer5.jpg")
var picq_highlight : int := Pic.FileNew ("picq_highlight.jpg")
var pici01 : int := Pic.FileNew ("pici001_information_Blackholes.jpg")
var pici02 : int := Pic.FileNew ("pici002_information_Nebula.jpg")
var pici03 : int := Pic.FileNew ("pici003_information_Stars.jpg")
var pici04 : int := Pic.FileNew ("pici004_information_Galaxies.jpg")
var pici05 : int := Pic.FileNew ("pici005_information_Planets.jpg")
var pict01 : int := Pic.FileNew ("pict001_information_Blackholes.jpg")
var pict02 : int := Pic.FileNew ("pict002_information_Nebula.jpg")
var pict03 : int := Pic.FileNew ("pict003_information_Stars.jpg")
var pict04 : int := Pic.FileNew ("pict004_information_Galaxies.jpg")
var pict05 : int := Pic.FileNew ("pict005_information_Planets.jpg")
%End image variables
var font001 : int := Font.New ("MyriadPro-Cond:72")
var font002 : int := Font.New ("MyriadPro-Cond:32")
var q1n : int := 0
var q2n : int := 0
var q3n : int := 0
var q4n : int := 0
var q5n : int := 0
var Answer : array 1 .. 5 of int
var animatebutton : int
var resultsbutton : int
var quizbutton : int
var infobutton : int
var quitbutton : int
%%%%%%%%%%%%%%%%%%%%%%PROCEDURES%%%%%%%%%%%%%%%%%%%%%%
procedure donothing
end donothing
procedure introduction
Pic.DrawSpecial (picf01, 000, 000, picCopy, picFadeIn, 750)
for i : 0 .. 255
RGB.SetColor (fadecolour, i / 255, i / 255, i / 255)
Font.Draw ("Astronomy", 020, 500, font001, fadecolour )
View.Update
delay (05)
end for
animatebutton := GUI.CreateButton (010, 040, 140, "Animation", donothing )
resultsbutton := GUI.CreateButton (490, 040, 140, "Results", donothing )
quizbutton := GUI.CreateButton (170, 040, 140, "Quiz", donothing )
infobutton := GUI.CreateButton (330, 040, 140, "Information", donothing )
quitbutton := GUI.CreateButton (650, 040, 140, "Exit", donothing )
end introduction
procedure test (questionhead, questionansw : int, answer : int)
Pic.Draw (picf02, 000, 000, picCopy)
Pic.DrawSpecial (questionhead, 080, 525, picCopy, picBlend + 85, 000)
Pic.DrawSpecial (questionansw, 080, 200, picCopy, picBlend + 080, 000)
loop
Mouse.Where (mousex, mousey, mousedown )
Pic.DrawSpecial (questionansw, 080, 200, picCopy, picBlend + 04, 000)
if mousex >= 085 and mousex <= 715 and mousey >= 330 and mousey <= 365
then
Pic.DrawSpecial (picq_highlight, 085, 330, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 1
exit
end if
elsif mousex >= 085 and mousex <= 715 and mousey >= 290 and mousey <= 325
then
Pic.DrawSpecial (picq_highlight, 085, 290, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 2
exit
end if
elsif mousex >= 085 and mousex <= 715 and mousey >= 255 and mousey <= 290
then
Pic.DrawSpecial (picq_highlight, 085, 250, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 3
exit
end if
end if
end loop
delay (175)
end test
%%%%%%%%%%%%%%%%%%%%MAIN PROGRAMME%%%%%%%%%%%%%%%%%%%%
loop
introduction
loop
Mouse.Where (mousex, mousey, mousedown )
if mousedown = 1
then
if mousex >= 010 and mousey >= 040 and mousex <= 149 and mousey <= 062
then
userselection := "animation"
exit
elsif mousex >= 170 and mousey >= 040 and mousex <= 319 and mousey <= 062
then
userselection := "quiz"
exit
elsif mousex >= 330 and mousey >= 040 and mousex <= 479 and mousey <= 062
then
userselection := "info"
exit
elsif mousex >= 490 and mousey >= 040 and mousex <= 639 and mousey <= 062
then
userselection := "results"
exit
elsif mousex >= 650 and mousey >= 040 and mousey <= 789 and mousey <= 062
then
userselection := "exit"
exit
end if
end if
end loop
if mousedown = 1
then
if userselection = "animation"
then
loop
GUI.Hide (animatebutton )
put "Under Construction"
end loop
elsif userselection = "quiz"
then
loop
GUI.Hide (quizbutton )
cls
Pic.Draw (picf02, 000, 000, picCopy)
test (picq01, picq02, 1)
test (picq03, picq04, 2)
test (picq05, picq06, 3)
test (picq07, picq08, 4)
test (picq09, picq10, 5)
Pic.DrawSpecial (picf04, 025, 025, picCopy, picGrowCenterToEdgeNoBar, 750)
delay (1250)
exit
end loop
elsif userselection = "info"
then
loop
GUI.Hide (infobutton )
cls
Pic.Draw (picf03, 000, 000, picCopy)
for i : 0 .. 255
RGB.SetColor (fadecolour, i / 255, i / 255, i / 255)
Font.Draw ("Space Frontiers", 020, 500, font001, fadecolour )
View.Update
delay (05)
end for
var galaxybutton : int := GUI.CreateButton (010, 040, 140, "Galaxies", donothing )
var planetbutton : int := GUI.CreateButton (170, 040, 140, "Planets", donothing )
var nebulabutton : int := GUI.CreateButton (330, 040, 140, "Nebula", donothing )
var starbutton : int := GUI.CreateButton (490, 040, 140, "Stars", donothing )
var blackbutton : int := GUI.CreateButton (650, 040, 140, "Black Holes", donothing )
end loop
end if
end if
loop
exit when GUI.ProcessEvent
end loop
end loop
|
Please specify what version of Turing you are using
Turing 4.1.1
-------------------------------------UPDATE---------------------------------------------
This was my attempt using GUI.HideWindow, and GUI.ShowWindow
| Turing: |
%%%%%%%%%%%%%%%%%%%%%%FORMATTING%%%%%%%%%%%%%%%%%%%%%%
import GUI
setscreen ("graphics: 800; 600")
%Question Header Box will be 640 * 044 pixels
%Question Answer Box will be 640 * 225 pixels
%Information Headers will be 640 * 044 pixels
%Information bodies will be 640 * 445 pixels
%%%%%%%%%%%%%%%%%VARIABLE DECLARATION%%%%%%%%%%%%%%%%%
var mousex, mousey, mousesel, mousedown : int
var fadecolour : int := 000
var userselection : string := ""
var picBlended : int
%IMAGE VARIABLES: The image ID is used for organization.
%Sample: pic(usage: char (f (formating), q (quiz), i (info), t (titles)), number: int)
var picf01 : int := Pic.FileNew ("picf001_mainpage.jpg")
var picf02 : int := Pic.FileNew ("picf002_quizpage.jpg")
var picf03 : int := Pic.FileNew ("picf003_infopage.jpg")
var picf04 : int := Pic.FileNew ("picf04_testcomplete.jpg")
var picq01 : int := Pic.FileNew ("picq001_question1_q1.jpg")
var picq02 : int := Pic.FileNew ("picq002_question1_answer1.jpg")
var picq03 : int := Pic.FileNew ("picq003_question1_q2.jpg")
var picq04 : int := Pic.FileNew ("picq004_question1_answer2.jpg")
var picq05 : int := Pic.FileNew ("picq005_question1_q3.jpg")
var picq06 : int := Pic.FileNew ("picq006_question1_answer3.jpg")
var picq07 : int := Pic.FileNew ("picq007_question1_q4.jpg")
var picq08 : int := Pic.FileNew ("picq008_question1_answer4.jpg")
var picq09 : int := Pic.FileNew ("picq009_question1_q5.jpg")
var picq10 : int := Pic.FileNew ("picq010_question1_answer5.jpg")
var picq_highlight : int := Pic.FileNew ("picq_highlight.jpg")
var pici01 : int := Pic.FileNew ("pici001_information_Blackholes.jpg")
var pici02 : int := Pic.FileNew ("pici002_information_Nebula.jpg")
var pici03 : int := Pic.FileNew ("pici003_information_Stars.jpg")
var pici04 : int := Pic.FileNew ("pici004_information_Galaxies.jpg")
var pici05 : int := Pic.FileNew ("pici005_information_Planets.jpg")
var pict01 : int := Pic.FileNew ("pict001_information_Blackholes.jpg")
var pict02 : int := Pic.FileNew ("pict002_information_Nebula.jpg")
var pict03 : int := Pic.FileNew ("pict003_information_Stars.jpg")
var pict04 : int := Pic.FileNew ("pict004_information_Galaxies.jpg")
var pict05 : int := Pic.FileNew ("pict005_information_Planets.jpg")
%End image variables
var font001 : int := Font.New ("MyriadPro-Cond:72")
var font002 : int := Font.New ("MyriadPro-Cond:32")
var q1n : int := 0
var q2n : int := 0
var q3n : int := 0
var q4n : int := 0
var q5n : int := 0
var Answer : array 1 .. 5 of int
var newwindow : int
var animatebutton : int
var resultsbutton : int
var quizbutton : int
var infobutton : int
var quitbutton : int
%%%%%%%%%%%%%%%%%%%%%%PROCEDURES%%%%%%%%%%%%%%%%%%%%%%
procedure restart
GUI.HideWindow (defWinID )
GUI.ShowWindow (newwindow )
end restart
procedure donothing
end donothing
procedure introduction
Pic.DrawSpecial (picf01, 000, 000, picCopy, picFadeIn, 750)
for i : 0 .. 255
RGB.SetColor (fadecolour, i / 255, i / 255, i / 255)
Font.Draw ("Astronomy", 020, 500, font001, fadecolour )
View.Update
delay (05)
end for
animatebutton := GUI.CreateButton (010, 040, 140, "Animation", donothing )
resultsbutton := GUI.CreateButton (490, 040, 140, "Results", donothing )
quizbutton := GUI.CreateButton (170, 040, 140, "Quiz", donothing )
infobutton := GUI.CreateButton (330, 040, 140, "Information", donothing )
quitbutton := GUI.CreateButton (650, 040, 140, "Exit", donothing )
end introduction
procedure test (questionhead, questionansw : int, answer : int)
Pic.Draw (picf02, 000, 000, picCopy)
Pic.DrawSpecial (questionhead, 080, 525, picCopy, picBlend + 85, 000)
Pic.DrawSpecial (questionansw, 080, 200, picCopy, picBlend + 080, 000)
loop
Mouse.Where (mousex, mousey, mousedown )
Pic.DrawSpecial (questionansw, 080, 200, picCopy, picBlend + 04, 000)
if mousex >= 085 and mousex <= 715 and mousey >= 330 and mousey <= 365
then
Pic.DrawSpecial (picq_highlight, 085, 330, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 1
exit
end if
elsif mousex >= 085 and mousex <= 715 and mousey >= 290 and mousey <= 325
then
Pic.DrawSpecial (picq_highlight, 085, 290, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 2
exit
end if
elsif mousex >= 085 and mousex <= 715 and mousey >= 255 and mousey <= 290
then
Pic.DrawSpecial (picq_highlight, 085, 250, picCopy, picBlend + 4, 000)
if mousedown = 1 then
Answer (answer ) := 3
exit
end if
end if
end loop
delay (175)
end test
%%%%%%%%%%%%%%%%%%%%MAIN PROGRAMME%%%%%%%%%%%%%%%%%%%%
procedure mainprogramme
loop
introduction
loop
Mouse.Where (mousex, mousey, mousedown )
if mousedown = 1
then
if mousex >= 010 and mousey >= 040 and mousex <= 149 and mousey <= 062
then
userselection := "animation"
exit
elsif mousex >= 170 and mousey >= 040 and mousex <= 319 and mousey <= 062
then
userselection := "quiz"
exit
elsif mousex >= 330 and mousey >= 040 and mousex <= 479 and mousey <= 062
then
userselection := "info"
exit
elsif mousex >= 490 and mousey >= 040 and mousex <= 639 and mousey <= 062
then
userselection := "results"
exit
elsif mousex >= 650 and mousey >= 040 and mousey <= 789 and mousey <= 062
then
userselection := "exit"
exit
end if
end if
end loop
if mousedown = 1
then
if userselection = "animation"
then
loop
GUI.Hide (animatebutton )
put "Under Construction"
end loop
elsif userselection = "quiz"
then
loop
GUI.Hide (quizbutton )
cls
Pic.Draw (picf02, 000, 000, picCopy)
test (picq01, picq02, 1)
test (picq03, picq04, 2)
test (picq05, picq06, 3)
test (picq07, picq08, 4)
test (picq09, picq10, 5)
Pic.DrawSpecial (picf04, 025, 025, picCopy, picGrowCenterToEdgeNoBar, 750)
delay (1250)
restart
end loop
elsif userselection = "info"
then
loop
GUI.Hide (infobutton )
cls
Pic.Draw (picf03, 000, 000, picCopy)
for i : 0 .. 255
RGB.SetColor (fadecolour, i / 255, i / 255, i / 255)
Font.Draw ("Space Frontiers", 020, 500, font001, fadecolour )
View.Update
delay (05)
end for
var galaxybutton : int := GUI.CreateButton (010, 040, 140, "Galaxies", donothing )
var planetbutton : int := GUI.CreateButton (170, 040, 140, "Planets", donothing )
var nebulabutton : int := GUI.CreateButton (330, 040, 140, "Nebula", donothing )
var starbutton : int := GUI.CreateButton (490, 040, 140, "Stars", donothing )
var blackbutton : int := GUI.CreateButton (650, 040, 140, "Black Holes", donothing )
end loop
end if
end if
loop
exit when GUI.ProcessEvent
end loop
end loop
end mainprogramme
mainprogramme
newwindow := Window.Open ("title:ICS Culminating,graphics:800;600,position:top;right")
mainprogramme
Window.Hide (newwindow )
|
|