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

Yoda

Sun Nov 28, 2004 4:46 pm


My radiobutton quiz- With problems that need fixing!

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

import GUI in "%oot/lib/GUI"
View.Set ("graphics:550;300")

setscreen ("graphics")
var quitbutton : int
var radio : array 1 .. 4 of int
var score := 0
var response : boolean := false
procedure QuitPressed
    if response = true then
        score := score + 1  
        put "correct!"
    else
        score := score - 1
        put "Wrong!"
    end if
    delay (1000)
    GUI.Quit
    response := false
end QuitPressed
procedure RadioPressed

    %The score
    %var answers : array 0 .. 9 of int := init (2, 0, 2, 1, 2, 2, 1, 0, 2, 3) %These are the answers to the questions

    if radio (1) = GUI.GetEventWidgetID then
        response := false
    elsif radio (2) = GUI.GetEventWidgetID then
        response := false
    elsif radio (3) = GUI.GetEventWidgetID then
        response := true
    elsif radio (4) = GUI.GetEventWidgetID then
        response := false
    end if

end RadioPressed

procedure RadioPressed2

    if radio (1) = GUI.GetEventWidgetID then
        response := true
    elsif radio (2) = GUI.GetEventWidgetID then
        response := false
    elsif radio (3) = GUI.GetEventWidgetID then
        response := false
    elsif radio (4) = GUI.GetEventWidgetID then
        response := false
    end if

end RadioPressed2

procedure RadioPressed3


    if radio (1) = GUI.GetEventWidgetID then
        response := false
    elsif radio (2) = GUI.GetEventWidgetID then
        response := true
    elsif radio (3) = GUI.GetEventWidgetID then
        response := false
    elsif radio (4) = GUI.GetEventWidgetID then
        response := false
    end if

end RadioPressed3

put "Welcome to the Science Fiction Quiz of Doom!"
delay (1000)
put ""
put "When you think you have the correct answer click on the radio button that"
put "represents it, then, once you've done that, click the ANSWERED button."
delay (2000)
put ""
put "May the force be with you and may Obi Wan Watch over you"
put ""
delay (2000)
put "First question: What was William Gibson's first novel?"
put ""
delay (2000)


radio (1) := GUI.CreateRadioButton (1, 75, "Pattern Recognition", 0,
    RadioPressed)
radio (2) := GUI.CreateRadioButton (1, 100, "Virtual Light", radio
    (1), RadioPressed)
radio (3) := GUI.CreateRadioButton (1, 125, "Neuromancer", radio (2),
    RadioPressed)
radio (4) := GUI.CreateRadioButton (1, 150, "Dune", radio (3), RadioPressed)
quitbutton := GUI.CreateButton (25, 200 - 1, 1, "ANSWERED", QuitPressed)


loop
    exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

put "Second question: Who is Luke's father?"
put ""


radio (1) := GUI.CreateRadioButton (1, 75, "Darth", 0, RadioPressed2)
radio (2) := GUI.CreateRadioButton (1, 100, "Your Mom", radio (1),
    RadioPressed2)
radio (3) := GUI.CreateRadioButton (1, 125, "Wintermute", radio (2),
    RadioPressed2)
radio (4) := GUI.CreateRadioButton (1, 150, "Young buck", radio (3),
    RadioPressed2)
quitbutton := GUI.CreateButton (25, 200, 1, "ANSWERED", QuitPressed)

loop
    exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

put "Third question: Who wrote the Martian chronicles?"
put ""
delay (1000)

radio (1) := GUI.CreateRadioButton (1, 75, "You", 0, RadioPressed3)
radio (2) := GUI.CreateRadioButton (1, 100, "Isaac Asamov", radio (1),
    RadioPressed3)
radio (3) := GUI.CreateRadioButton (1, 125, "Ray Bradbury", radio (2),
    RadioPressed3)
radio (4) := GUI.CreateRadioButton (1, 150, "C.S Lewis", radio (3),
    RadioPressed3)
quitbutton := GUI.CreateButton (25, 200, 1, "ANSWERED", QuitPressed)

loop
    exit when GUI.ProcessEvent
end loop

GUI.Dispose (radio (1))
GUI.Dispose (radio (2))
GUI.Dispose (radio (3))
GUI.Dispose (radio (4))
GUI.Dispose (quitbutton)
cls

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

Yar, run it, and you will see the problem. Question one runs nicely, but then #2 just zips by, and #3 is practically non-existent. If you have any suggestions, or solutions, to fix this problem, I shall forever be in your debt.[/b]


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

Cervantes

Sun Nov 28, 2004 5:12 pm



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

Yar!  Yoda is speaking the language of the pirate?  Arrrgh!  

Well, I don't know GUI, but I found that if you put a nice little GUI.ResetQuit after your event loop:

loop
    exit when GUI.ProcessEvent
end loop

it works nicely.  
Your GUI.ProcessEvent is always returning true, ever since the first time you called GUI.Quit.  So you need to reset the GUI.Quit.