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

qmanjr5

Wed Mar 24, 2010 10:56 am


A Quick Question About My Quiz

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

Do I have to set the variable for the answers at the beginning, even though I'm setting what the correct answer is, in the main code?


%Miscellanius
import GUI
Draw.FillBox (0, 0, maxx, maxy, black)
Text.Colour (brightgreen)
Text.ColourBack (black)

%Variables and values
var score : int := 0
var answer1 : string := "3"
var answer2 : string := "33000000"
var answer3 : string := "Barack Obama"

%Procedures and processes
process applause
    Music.PlayFile ("applause.MP3")
end applause

process boo
    Music.PlayFile ("boo.MP3")
end boo
process thinking

    Music.PlayFile ("thinking.MP3")
end thinking

procedure correct
    fork applause
    cls
    score += 1
    put "YAY! :) You got it right. Your score has been increased by 1"
    put "Press any key to continue"
    Input.Pause
    cls
end correct

procedure incorrect
    fork boo
    cls
    score -= 1
    put "Oh no :( You got it wrong. Your score has been decreased by 1"
    put "Press any key to continue"
    Input.Pause
    cls
end incorrect

procedure currentscore
    put "Your current score is ", score, ". Next question."
    put "Press any key to continue"
    Input.Pause
end currentscore

procedure finished
    put "CONGRATULATIONS! You've finished. Your final score was ", score, ". Good job."
end finished

%Maintest
procedure Maintest
    cls
    put "Hello, welcome to my quiz."
    put "First question"
    put "What is 1+1? (ex. 3 


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

USEC_OFFICER

Wed Mar 24, 2010 11:39 am


RE:A Quick Question About My Quiz

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

No, because you are overwriting the variables anyway, so what's the point?


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

andrew.

Wed Mar 24, 2010 1:48 pm


RE:A Quick Question About My Quiz

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

You don't except for the score integer. The reason for this is because you used "score += 1" and to do this, you must have an initial value to add 1 to.


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

USEC_OFFICER

Wed Mar 24, 2010 4:00 pm


RE:A Quick Question About My Quiz

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

Yah, he already knows that.