TheGameCreators - CodeBase - Ultimate Calc 2.0

Return to the CodeBase listing

Category: Complete Applications

Version: 2.0

Information

Uploaded: 31st Jan 2005 19:04

Modified: 31st Jan 2005 19:58

Author: Anonymous Coder

Summary

The original code was made by The Nerd and I James Hasner, The Geek added tremendous amuonts of new code!

Full Description

You can add, subtract, multiply, divide, find the area of rectangles, circles, and triangles. I plan on adding more to make Ultimate Calc 3.0

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Â´ calculating program

`Â´ Made by: The Nerd

`Â´ Edited by: The Geek

print "ULTIMATE CALC 2.0"

wair 2000

print "This program was made by The Nerd"

wait 2000

print "This program was edited by The Geek"

wait 2000

`Â´ fist i make an INPUT

input "would you like to do a area formula? 1=yes 2=no : ", i

IF i = 2 then goto reg

input "1=circle, 2=rectangle, 3=triangle. : ", j

if j = 3 then goto triangle1

if j = 2 then goto rectangle1

area:

input "what is the diameter? : ", k

goto circle

triangle1:

input "what is the base? : ", l

input "what is the height? : ", n

goto triangle

reg:

input "type first : ", a

input "type second : ", b

goto reg4

rectangle1:

input "what is the length? : ", o

input "what is the width? : ", p

q = o * p

goto rectangle2

goto reg4

`Â´ then the computer calculating....

reg4:

c = a

d = b

e = a + b

f = a * b

g = a / b

h = a - b

goto reg2

if i = 1 then goto area

if j = 1 then goto circle

if j = 3 then goto triangle

triangle:

m = .5 * l * n

goto triangle2

rectangle2:

print "the area of a rectangle"

print q

goto reg3

circle:

l = k * 3.14

goto circle2

`Â´ display result on the screen

reg2:

print "sum"

print e

print "answer to a multiplication problem"

print f

print "answer to a division problem"

print g

print " answer to a subtraction problem"

print h

goto reg3

circle2:

print " Circles area"

print l

goto reg3

triangle2:

print " Triangle's area"

print m

`Â´ display message

reg3:

input "Would you like to quit? Type 1=yes 2=no! : ", x

y = 1

n = 2

if x = 2 then cls

IF x = 1 THEN END

IF ELSE THEN GOTO CONTINUE:

CONTINUE:

loop

end

`Â´ close the program

wait key

end

`Â´ this is the program

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	6

CodeBase - Ultimate Calc 2.0

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments