CodeBase - Simple fractions calculator (Add, subtract, multiply, divide)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com set window on set display mode 640,480,32 set window title "Will's Fraction Calculator -- Programmed by Will!" set text font "Arial" set text size 16 Print "Welcome to the fractions calculator!" Print Print "Up key for addition" Print "Down key for subtraction" Print "Left key for Multiplication" Print "Right key for Division" Print "Also, if you choose one and don't input, when you close the program you will" print "get an error. Don't worry about this." ` Main loop. This controls what happens when the arrowkeys are pressed. Do if upkey()=1 then gosub Addition if downkey()=1 then gosub Subtraction if leftkey()=1 then gosub Multiplication if rightkey()=1 then gosub Division Loop Addition: CLS Print "Please enter first fraction's numerator:" Input ">: ",ANum1 wait 100 cls print "Please enter first fraction's denominator:" input ">: ",ADen1 wait 100 cls Print "Your first fraction is ";ANum1;"/";ADen1 Print "Now enter the second fraction's numerator:" Input ">: ",ANum2 wait 100 cls Print "Please enter second fraction's denominator:" Input ">: ",ADen2 wait 100 CLS Print "The two fractions you have chosen are ";ANum1;"/";ADen1; "and ";ANum2;"/";ADen2 Print "Please standby while the fractions are multiplied..." wait 300 cls `Doing the math for addition... ` Finding the common denominator AComDen=ADen1 * ADen2 `Getting the Numerators onto the new denominator ANewNum1=AComDen/ADen1 * ANum1 ANewNum2=AComDen/ADen2 * ANum2 `Adding the two new fractions A_ANS=ANewNum1 + ANewNum2 print "The answer is ";A_ANS;"/";AComDen print "Obviously that's in unreduced form." Print "Press any key to return to the start..." wait key cls Print "Up key for addition." Print "Down key for subtraction." Print "Left key for multiplication." Print "Right key for division." Print "Also, if you choose one and don't input, when you close the program you will" print "get an error. Don't worry about this." return Subtraction: cls Print "Please enter the numerator of the first fraction:" input ">: ",SNum1 wait 100 cls print "Please enter denominator of the first fraction:" input ">: ",SDen1 wait 100 cls print "Your first fraction is ";SNum1;"/";SDen1 print "Please enter numerator of second fraction:" input ">: ",SNum2 wait 100 cls print "Please enter denominator of second fraction:" input ">: ",SDen2 wait 100 cls print "Please wait while the two fractions are subtracted..." wait 300 cls ` Getting the common denominator SComDen=SDen1 * SDen2 ` Getting the numerators properly onto the denominators SNewNum1=SComDen/SDen1 * SNum1 SNewNum1=SComDen/SDen2 * SNum2 S_ANS=SNewNum1 - SNewNum2 print "The answer is ";S_ANS;"/";SComDen Print "Obviously that's in unreduced form." Print "Press any key to return to start..." wait key cls print "Up key for addition." print "Down key for subtraction." print "Left key for multiplication." print "Right key for division." print "Also, if you choose one and don't input, when you close the program you will" print "get an error. Don't worry about this." return Multiplication: cls print "Please enter numerator of first fraction:" Input ">: ",MNum1 wait 100 cls print "Please enter denominator of first fraction:" input ">: ",MDen1 wait 100 cls print "Your first fraction is ";MNum1;"/";MDen1 print "Please enter numerator of second fraction:" input ">: ",MNum2 wait 100 cls print "Please enter denominator of second fraction:" input ">: ",MDen2 wait 100 cls print "Please standby while the fractions are multiplied..." wait 300 cls `Doing the math for multiplication M_ANS1=MNum1 * MNum2 M_ANS2=MDen1 * MDen2 print "The answer is ";M_ANS1;"/";M_ANS2 print "Obviously that's in unreduced form." print "Press any key to return to start..." wait key cls print "Up key for addition." print "Down key for subtraction." print "Left key for multiplication." print "Right key for division." print "Also, if you choose one and don't input, when you close the program you will" print "get an error. Don't worry about this." return Division: cls print "Please enter numerator for first fraction:" input ">: ",DNum1 wait 100 cls print "Please enter denominator for first fraction:" input ">: ",DDen1 wait 100 cls print "Your first fraction is ";DNum1;"/";DDen1 print "Please enter numerator for second fraction:" input ">: ",DNum2 wait 100 cls print "Please enter denominator for second fraction:" input ">: ",DDen2 wait 100 cls print "Please wait while the fractions are divided..." wait 300 cls `Doing the math for division D_ANS1=DNum1 * DDen2 D_ANS2=DDen1 * DNum2 print "The answer is ";D_ANS1;"/";D_ANS2 print "Obviously that's in unreduced form." print "Press any key to return to start..." wait key cls print "Up key for addition." print "Down key for subtraction." print "Left key for multiplication." print "Right key for division." print "Also, if you choose one and don't input, when you close the program you will" print "get an error. Don't worry about this." return

Download

Please login to download