TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Math / Physics

Version: 1.0

Information

Uploaded: 27th Apr 2005 20:27

Modified: 1st Jan 1970 01:00

Author: Scimitar Products

Summary

A math test program.

Full Description

A math test program. Contains test and lesson.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Title Sequence

print "Welcome to Math Test"

wait 600

print "Copyright to Scimitar Products 2005"

wait 200

cls

rem Input Operation

print "Input test type. [Addition], [Subtraction], [Multiplication], [Division]? [End]?"

input "";testtype$

if testtype$="Addition" then gosub Addition

if testtype$="Subtraction" then gosub Subtraction

if testtype$="Multiplication" then gosub Multiplication

if testtype$="Division" then gosub Division

if testtype$="End" then end

loop

rem Bulk Program

`Addition Program

Addition:

print "Would you like a [test], or a [lesson]? [Return]?"

input "";testchoice$

if testchoice$="test" then gosub AdditionTest

if testchoice$="lesson" then gosub AdditionLesson

if testchoice$="Return" then return

loop

`Addition Test

AdditionTest:

repeat

cls

a#=RND(999)

b#=RND(999)

c#=a#+b#

print "Score:";score#

print "";a#;"+";b#;"=";

input "";d#

if d# = c# then score# = score#+1 : questions# = questions# + 1

if d# > c# then score# = score#-1 : questions# = questions# + 1

if d# < c# then score#=  score#-1 : questions# = questions# + 1

until questions#=10

print "Final Score:";score#;" out of 10"

wait 1000

score#=0

questions#=0

return

`Addition Lesson

AdditionLesson:

cls

print "Addition is rather simple. Take two variables, such as a and b."

wait 1500

print "Now an equation would look like a+b=c. Now let's assign numbers to our variables."

wait 1500

print "a=5 and b=20. Now the equation looks like this: 5+20=c. Now lets find c."

wait 1500

print "The value 5 is added to 20 equaling 25. Therefore, c=25."

wait 1500

print "Example Problem:"

wait 1500

print "You have two dollars ($2)."

print "You sell a soda for one dollar ($1)."

wait 1500

print "The equation is 2+1=c or the value of 2 plus the value of one equals c."

print "Let's find c."

input "c=?";c#

if c#=3 then print "Correct!" : return

if c#>3 then print "No."

if c#<3 then print "No."

cls

loop

`Subtraction Program

Subtraction:

print "Would you like a [test], or a [lesson]? [Return]?"

input "";testchoice$

if testchoice$="test" then gosub SubtractionTest

if testchoice$="lesson" then gosub SubtractionLesson

if testchoice$="Return" then return

loop

`Subtraction Test

SubtractionTest:

repeat

cls

a#=RND(999)

b#=RND(999)

c#=a#-b#

print "Score:";score#

print "";a#;"-";b#;"=";

input "";d#

if d# = c# then score# = score#+1 : questions# = questions# + 1

if d# > c# then score# = score#-1 : questions# = questions# + 1

if d# < c# then score#=  score#-1 : questions# = questions# + 1

until questions#=10

print "Final Score:";score#;" out of 10"

wait 1000

score#=0

questions#=0

return

`Subtration Lesson

SubtractionLesson:

cls

print "Subtration is rather simple. Take two variables, such as a and b."

wait 1500

print "Now an equation would look like a-b=c. Now let's assign numbers to our variables."

wait 1500

print "a=20 and b=5. Now the equation looks like this: 20-5=c. Now lets find c."

wait 1500

print "The value 5 is subbtracted from 20 equaling 15. Therefore, c=15."

wait 1500

print "Example Problem:"

wait 1500

print "You have two dollars ($2)."

print "You buy a soda for one dollar ($1)."

wait 1500

print "The equation is 2-1=c or the value of 2 minus the value of one equals c."

print "Let's find c."

input "c=?";c#

if c#=1 then print "Correct!" : return

if c#>1 then print "No."

if c#<1 then print "No."

cls

loop

Multiplication:

print "Would you like a [test], or a [lesson]? [Return]?"

input "";testchoice$

if testchoice$="test" then gosub MultiplicationTest

if testchoice$="lesson" then gosub MultiplicationLesson

if testchoice$="Return" then return

loop

`Multiplication Test

MultiplicationTest:

repeat

cls

a#=RND(15)

b#=RND(15)

c#=a#*b#

print "Score:";score#

print "";a#;"*";b#;"=";

input "";d#

if d# = c# then score# = score#+1 : questions# = questions# + 1

if d# > c# then score# = score#-1 : questions# = questions# + 1

if d# < c# then score#=  score#-1 : questions# = questions# + 1

until questions#=10

print "Final Score:";score#;" out of 10"

wait 1000

score#=0

questions#=0

return

`Multiplication Lesson

MultiplicationLesson:

cls

print "Multiplication is rather simple. Take two variables, such as a and b."

wait 1500

print "Now an equation would look like a*b=c. Now let's assign numbers to our variables."

wait 1500

print "a=5 and b=20. Now the equation looks like this: 5*20=c. Now lets find c."

wait 1500

print "The value 20 is multiplied to by 5 equaling 100. Therefore, c=100."

wait 1500

print "Example Problem:"

wait 1500

print "You have two dollars ($2)."

print "Your allowence doubles (2) your current amount."

wait 1500

print "The equation is 2*2=c or the value of 2 multiplied by the value of 2 equals c."

print "Let's find c."

input "c=?";c#

if c#=4 then print "Correct!" : return

if c#>4 then print "No."

if c#<4 then print "No."

cls

loop

`Division Program

Division:

print "Would you like a [test], or a [lesson]? [Return]?"

input "";testchoice$

if testchoice$="test" then gosub DivisionTest

if testchoice$="lesson" then gosub DivisionLesson

if testchoice$="Return" then return

loop

`Division Test

DivisionTest:

repeat

cls

a#=RND(100)

e#=RND(32)

b#=a#-e#

a#=a#+e#

c#=a#+b#

print "Score:";score#

print "";a#;"/";b#;"=";

input "";d#

if d# = c# then score# = score#+1 : questions# = questions# + 1

if d# > c# then score# = score#-1 : questions# = questions# + 1

if d# < c# then score#=  score#-1 : questions# = questions# + 1

until questions#=10

print "Final Score:";score#;" out of 10"

wait 1000

score#=0

questions#=0

return

`Division Lesson

DivisionLesson:

cls

print "Division is rather simple. Take two variables, such as a and b."

wait 1500

print "Now an equation would look like a/b=c. Now let's assign numbers to our variables."

wait 1500

print "a=25 and b=5. Now the equation looks like this: 25/5=c. Now lets find c."

wait 1500

print "The value 25 is divided by 5 equaling 5. Therefore, c=5."

wait 1500

print "Example Problem:"

wait 1500

print "You have two dollars ($2)."

print "Your money is cut in half (2)."

wait 1500

print "The equation is 2/2=c or the value of 2 divided by the value of 2 equals c."

CodeBase - Math Test

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Scimitar Products
CodeBase Entries:	10