Turing Score Problem!

[sp96]

Ok so i have to make a quiz for my programing class at school, and i made the quiz and it works but my counter for the score always shows the score as 0!





% first easy question
body win_start
cls
Pic.DrawSpecial (pic_id16, 0, 0, picCopy, picFadeIn, 500)
%question
Font.Draw ("What are the tree types of tennis court surfaces?", 200, 500, font_id, black)
%possible answers
rb1a (1) := GUI.CreateRadioButtonFull (100, 500, "Hard, Grass Clay", 0, radio_pressed, GUI.LEFT, '1')
rb1a (2) := GUI.CreateRadioButtonFull (-1, -1, "Clay, Sand, Grass", rb1a (1), radio_pressed, GUI.LEFT, '2')
rb1a (3) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand, Grass", rb1a (2), radio_pressed, GUI.LEFT, '3')
rb1a (4) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand,Clay", rb1a (3), radio_pressed, GUI.LEFT, '4')
rb1a (5) := GUI.CreateRadioButtonFull (-1, -1, "", rb1a (4), radio_pressed, GUI.LEFT, '5')
GUI.SelectRadio (rb1a (5))
GUI.Hide (rb1a (5))

%continue button
cont1a := GUI.CreateButtonFull (200, 200, 100, "Continue", cont1_esy, 0, "^C", true)
end win_start





body cont1_esy
cls

% points system that show user if answer was correct or not
if GUI.GetEventWidgetID = rb1a (1) then
counter := counter + 1
Pic.DrawSpecial (pic_id11, 200, 200, picCopy, picFadeIn, 500)
elsif GUI.GetEventWidgetID = rb1a (2) then
counter := counter + 0
Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500)
elsif GUI.GetEventWidgetID = rb1a (3) then
counter := counter + 0
Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500)
elsif GUI.GetEventWidgetID = rb1a (4) then
counter := counter + 0
Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500)
end if

next1a := GUI.CreateButtonFull (300, 300, 100, "Next", next_easy1, 0, "^N", true)

end cont1_esy

[sp96]

please help!

[goroyoshi]

please use syntax tags
[syntax="code here"]
put "hello world"
[/syntax]
turing should output

Turing:

put "hello world"

[Tony]

Where in that code do you draw the score to the screen?

Also, you should have answered the provided questions; namely -- what did you do to attempt to solve your problem?

[sp96]

Thank you for letting me know

Turing:

% first easy question body win_start cls Pic.DrawSpecial (pic_id16, 0, 0, picCopy, picFadeIn, 500) %question Font.Draw ("What are the tree types of tennis court surfaces?", 200, 500, font_id, black) %possible answers rb1a (1) := GUI.CreateRadioButtonFull (100, 500, "Hard, Grass Clay", 0, radio_pressed, GUI.LEFT, '1') rb1a (2) := GUI.CreateRadioButtonFull (-1, -1, "Clay, Sand, Grass", rb1a (1), radio_pressed, GUI.LEFT, '2') rb1a (3) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand, Grass", rb1a (2), radio_pressed, GUI.LEFT, '3') rb1a (4) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand,Clay", rb1a (3), radio_pressed, GUI.LEFT, '4') rb1a (5) := GUI.CreateRadioButtonFull (-1, -1, "", rb1a (4), radio_pressed, GUI.LEFT, '5') GUI.SelectRadio (rb1a (5)) GUI.Hide (rb1a (5)) put "Score: ", counter," ." %continue button cont1a := GUI.CreateButtonFull (200, 200, 100, "Continue", cont1_esy, 0, "^C", true) end win_start body cont1_esy cls % points system that show user if answer was correct or not if GUI.GetEventWidgetID = rb1a (1) then counter := counter + 1 Pic.DrawSpecial (pic_id11, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (2) then counter := counter + 0 Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (3) then counter := counter + 0 Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (4) then counter := counter + 0 Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) end if next1a := GUI.CreateButtonFull (300, 300, 100, "Next", next_easy1, 0, "^N", true) end cont1_esy

So can anyone help me?

[sp96]

Please help!

[Zren]

This line is pointless as the variable doesn't change.
counter := counter + 0

counter := counter + 1
Can also be written as:
counter += 1

That won't solve your problem though. As Tony said:

Quote:

Where in that code do you draw the score to the screen?
What did you do to attempt to solve your problem?

[ProgrammingFun]

Tony @ Sun Jun 19, 2011 5:58 pm wrote:

Where in that code do you draw the score to the screen?

Also, you should have answered the provided questions; namely -- what did you do to attempt to solve your problem?

[sp96]

I output the score ate the beginning of every question

[Zren]

It'd help if we saw maybe the next few questions, as it's obviously not the first question that's the problem...

[sp96]

Turing:

put "hello world" % first easy question body win_start cls Pic.DrawSpecial (pic_id16, 0, 0, picCopy, picFadeIn, 500) %question Font.Draw ("What are the tree types of tennis court surfaces?", 200, 500, font_id, black) %possible answers rb1a (1) := GUI.CreateRadioButtonFull (100, 500, "Hard, Grass Clay", 0, radio_pressed, GUI.LEFT, '1') rb1a (2) := GUI.CreateRadioButtonFull (-1, -1, "Clay, Sand, Grass", rb1a (1), radio_pressed, GUI.LEFT, '2') rb1a (3) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand, Grass", rb1a (2), radio_pressed, GUI.LEFT, '3') rb1a (4) := GUI.CreateRadioButtonFull (-1, -1, "Gravel, Sand,Clay", rb1a (3), radio_pressed, GUI.LEFT, '4') rb1a (5) := GUI.CreateRadioButtonFull (-1, -1, "", rb1a (4), radio_pressed, GUI.LEFT, '5') put counter GUI.SelectRadio (rb1a (5)) GUI.Hide (rb1a (5)) %continue burron cont1a := GUI.CreateButtonFull (200, 200, 100, "Continue", cont1_esy, 0, "^C", true) end win_start body cont1_esy cls % points system that show user if answer was correct or not if GUI.GetEventWidgetID = rb1a (1) then     put 11     counter := counter + 1     Pic.DrawSpecial (pic_id11, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (2) then         put 12 counter := counter + 0     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (3) then     put 13 counter := counter + 0     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1a (3) then counter := counter + 0     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) end if put counter next1a := GUI.CreateButtonFull (300, 300, 100, "Next", next_easy1, 0, "^N", true) end cont1_esy body next_easy1 cls GUI.Dispose (cont1a) GUI.Dispose (rb1a (1)) GUI.Dispose (rb1a (2)) GUI.Dispose (rb1a (3)) GUI.Dispose (rb1a (4)) GUI.Dispose (rb1a (5)) GUI.Dispose (next1a) put counter Pic.DrawSpecial (pic_id13, 0, 0, picCopy, picFadeIn, 500) Font.Draw ("How many grand slams are there in a year?", 150, 500, font_id, black) rb1b (1) := GUI.CreateRadioButtonFull (100, 500, "3", 0, radio_pressed, GUI.LEFT, '1') rb1b (2) := GUI.CreateRadioButtonFull (-1, -1, "2", rb1b (1), radio_pressed, GUI.LEFT, '2') rb1b (3) := GUI.CreateRadioButtonFull (-1, -1, "4", rb1b (2), radio_pressed, GUI.LEFT, '3') rb1b (4) := GUI.CreateRadioButtonFull (-1, -1, "6", rb1b (3), radio_pressed, GUI.LEFT, '4') rb1b (5) := GUI.CreateRadioButtonFull (-1, -1, "", rb1b (4), radio_pressed, GUI.LEFT, '5') GUI.SelectRadio (rb1b (5)) GUI.Hide (rb1b (5)) put counter cont1b := GUI.CreateButtonFull (200, 200, 100, "Continue", cont2_esy, 0, "^C", true) end next_easy1 body cont2_esy cls if GUI.GetEventWidgetID = rb1b (1) then     counter := counter + 0     Pic.DrawSpecial (pic_id11, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1b (2) then     counter := counter + 0     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1b (3) then     counter := counter + 1     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) elsif GUI.GetEventWidgetID = rb1b (4) then     counter := counter + 0     Pic.DrawSpecial (pic_id12, 200, 200, picCopy, picFadeIn, 500) end if next1b := GUI.CreateButtonFull (300, 300, 100, "Next", next_easy2, 0, "^N", true) end cont2_esy body next_easy2 cls GUI.Dispose (cont1b) GUI.Dispose (rb1b (1)) GUI.Dispose (rb1b (2)) GUI.Dispose (rb1b (3)) GUI.Dispose (rb1b (4)) GUI.Dispose (rb1b (5)) GUI.Dispose (next1b) put counter Font.Draw ("What are the four grand slams?", 150, 500, font_id, black) rb1c (1) := GUI.CreateRadioButtonFull (100, 500, "Australian Open, Madrid Open, Rome Open, US Open", 0, radio_pressed, GUI.LEFT, '1') rb1c (2) := GUI.CreateRadioButtonFull (-1, -1, "Australian Open, French Open, Wimbledon, US Open", rb1c (1), radio_pressed, GUI.LEFT, '2') rb1c (3) := GUI.CreateRadioButtonFull (-1, -1, "Australian Open, French Open, Madrid Open, Rome Open", rb1c (2), radio_pressed, GUI.LEFT, '3') rb1c (4) := GUI.CreateRadioButtonFull (-1, -1, "Rome Open, French Open, Wimbledon, Madrid Open", rb1c (3), radio_pressed, GUI.LEFT, '4') rb1c (5) := GUI.CreateRadioButtonFull (-1, -1, "", rb1c (4), radio_pressed, GUI.LEFT, '5') GUI.SelectRadio (rb1c (5)) GUI.Hide (rb1c (5)) cont1c := GUI.CreateButtonFull (200, 200, 100, "Continue", cont3_esy, 0, "^C", true) end next_easy2

[sp96]

theres a few more questions

[goroyoshi]

then please show us the whole code for the questions

[ProgrammingFun]

goroyoshi @ Sun Jun 19, 2011 8:06 pm wrote:

then please show us the whole code for the questions

...we aren't going to copy your code for anything (nor anyone else I would think). And if you want help from us, you will have to share it.

Also, you do not need to double-post...and you still aren't answering:

Tony wrote:

Where in that code do you draw the score to the screen?

Also, you should have answered the provided questions; namely -- what did you do to attempt to solve your problem?

[goroyoshi]

ProgrammingFun @ Sun Jun 19, 2011 8:14 pm wrote:

Also, you do not need to double-post...

there is a handy tool on the forums called edit, you can edit your posts with it