school project - math testing program

Author

Message

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 10th Mar 2006 03:57

Link

hey guys!
We are having a science fair and i am making a math program for 1st graders.
I have run into a problem. I need my program to message the user if their answer is wrong.
Currently all it does is give random problems. PLEASE help me, i just need a message to come up if their answer is wrong. here is my code:

+ Code Snippet

Rem Project: SCHOOL_PROJECT_INVENTION
Rem Created: 3/9/2006 5:39:42 PM

Rem ***** Main Source File *****
#include "gui.dba"
startBlue "***","******"

Button=createButton(700,500,120,25, "Recieve Problem",0,0)
AnswerOkay=createButton(700,650,75,25, "Okay",0,0)
answerArea = createedit(700,550,100,25,0,0)
right = 0
total = 0

Do

YourAnswer$ = getgadgettext (answerArea)

set cursor 0,0
print right,"/",total

if escapekey()=1 then end

   getEvent

      if eventSource()=Button
         if eventType()=MOUSE_CLICK
         CLS
         num1 = rnd(50)
         num2 = rnd(50)
         set cursor 570,400
         print num1," + ",num2
         Canswer# = num1 + num2
     endif


  endif

      if eventSource()=AnswerOkay
         if eventType()=MOUSE_CLICK
         CLS
         total = total + 1
     endif
     endif
Loop

thanks in advanced,
~Snowfall

Back to top

Profile PM

Hoose

18

Years of Service

User Offline

Joined: 15th Feb 2006

Location: Lost in the corners of my Mind!

Posted: 10th Mar 2006 04:18 Edited at: 10th Mar 2006 04:37

Link

Could you post the "gui.dba" file as well. I'll look it over later tonight and see if I can help. Also are you using DBC or DBP?

Hoose

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 10th Mar 2006 04:42

Link

Im using DBP, but you need Bluegui to run it. i cannot post the DBA im affraid. if you had bluegui it comes with it

Back to top

Profile PM

Hoose

18

Years of Service

User Offline

Joined: 15th Feb 2006

Location: Lost in the corners of my Mind!

Posted: 10th Mar 2006 07:40 Edited at: 10th Mar 2006 07:42

Link

Ok, I have a couple places for you to look. I can't really debug it since I don't have Bluegui, but I will try to help anyway. The only things I noticed were:

+ Code Snippet

      if eventSource()=Button
         if eventType()=MOUSE_CLICK
         CLS
         num1 = rnd(50)
         num2 = rnd(50)
         set cursor 570,400
         print num1," + ",num2
         Canswer# = num1 + num2
     endif

Wondered why you are using a real number varible if your addition varibles are interger, since they could not ever end up with a decimal. Don't think it has anything to do with what your asking but just something I noticed.

And:

+ Code Snippet

      if eventSource()=AnswerOkay
         if eventType()=MOUSE_CLICK
         CLS
         total = total + 1
     endif
     endif

Possibly, after the True condition of eventSource(), there should be a ELSE statement in between the last two ENDIF's in case of a false condition.

Best I can do I'm afraid since I am unfamiliar with Bluegui. Hope this helps.

Hoose

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 10th Mar 2006 16:32 Edited at: 10th Mar 2006 16:39

Link

hmmm, didnt change anything

Everyone else,
when i use "getgadgettext" it needs to be a string, but i want it to be if canswer = YourAnswer then end (just for a test)
if it has to be if caswer = YourAnswer$, which DBP wont accept!
please help me, i want it to be able to do something if the user is right.

+ Code Snippet

Rem Project: SCHOOL_PROJECT_INVENTION
Rem Created: 3/9/2006 5:39:42 PM

Rem ***** Main Source File *****
#include "gui.dba"
startBlue "---","------"

Button=createButton(700,500,120,25, "Recieve Problem",0,0)
AnswerOkay=createButton(700,650,75,25, "Okay",0,0)
answerArea = createedit(700,550,100,25,0,0)
right = 0
total = 0

Do

YourAnswer$=getgadgettext(answerArea)

set cursor 0,0
print right,"/",total

if escapekey()=1 then end

   getEvent

      if eventSource()=Button
         if eventType()=MOUSE_CLICK
         CLS
         num1 = rnd(50)
         num2 = rnd(50)
         set cursor 570,400
         print num1," + ",num2
         Canswer = num1 + num2
     endif


  endif

      if eventSource()=AnswerOkay
         if eventType()=MOUSE_CLICK
         CLS
         total = total + 1
         if canswer = YourAnswer then end
     endif
     else
     endif
Loop

EDIT: like some way to convert a string to an integer. Or save the file as something then open it and read it and save it as a number.

PLEASE HELP ME!!!

Back to top

Profile PM

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 11th Mar 2006 02:51

Link

Somone please help me!!!!

Back to top

Profile PM

Hoose

18

Years of Service

User Offline

Joined: 15th Feb 2006

Location: Lost in the corners of my Mind!

Posted: 11th Mar 2006 04:17 Edited at: 11th Mar 2006 04:42

Link

Why does getgadgettext have to be a string? Why can't it be:

+ Code Snippet

YourAnswer=getgadgettext(answerArea)

In fact it should be since later in your code you have:

+ Code Snippet

if canswer = YourAnswer then end

And I should have been more specific with the ELSE statement. Here is some sample code. Maybe you can work this backwards into your program since functionality wise it works. You can pretty it up from there with your graphical interface.

+ Code Snippet

Do
num1 = rnd(50)
num2 = rnd(50)
cAnswer = num1 + num2
input "What does ",num1," + ",num2," = ",yAnswer
   if cAnswer = yAnswer then print "That is correct!"
      print "That is incorrect! Press any key to try again."
Loop

See if those get you any closer.

Hoose

Back to top

Profile PM Email

kyle thompson

18

Years of Service

User Offline

Joined: 9th Mar 2006

Location:

Posted: 11th Mar 2006 19:36

Link

Hoose84:
Your code is a bit messed up. I fixed it though. Just one simple problem.

+ Code Snippet

Rem Project: SCHOOL_PROJECT_INVENTION
Rem Created: 3/9/2006 5:39:42 PM

Rem ***** Main Source File *****
Do
num1 = rnd(50)
num2 = rnd(50)
cAnswer = num1 + num2
input "What does ",num1," + ",num2," = ",yAnswer
   if cAnswer = yAnswer then print "That is correct!" else
      print "That is incorrect! Press any key to try again."
Loop

Hi

Back to top

Profile PM Email

Hoose

18

Years of Service

User Offline

Joined: 15th Feb 2006

Location: Lost in the corners of my Mind!

Posted: 11th Mar 2006 23:13

Link

It will run without the "else" in it since it's assumed. But I should have left it and the comment files in it for clarity. Thanks! =)

Hoose

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / school project - math testing program