Easy Fix? - GameCreators Forum

Author

Message

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 29th Oct 2003 19:06

Link

Hey, I need some Help with my code, It seems that I am having trouble with my "If" Commands. What it is I know not, It does have an Error Message though, its "#100017: IF condition only takes one parameter at line 30".

I know I dont have anything after the "Gosub"s, But I dont think that is the Problem at the moment.

+ Code Snippet

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"


Defualts:
Pie# = 3.14286



MainLoop:
Do
Gosub ChooseOne
Loop


ChooseOne:
Text 10,10, FindAreaCircle$
Text 10,30, FindAreaSphere$
Text 10,50, FindAreaSquare$
Text 10,70, FindAreaCube$
Text 10,90, FindAreaTriangle$
Text 10,110, FindAreaPyramid$
Text 10,130, FindAreaCone$
Input "Pick One",PickedOne
If PickedOne=1 Then Gosub
If PickedOne=2 Then Gosub
If PickedOne=3 Then Gosub
If PickedOne=4 Then Gosub
If PickedOne=5 Then Gosub
If PickedOne=6 Then Gosub
If PickedOne=7 Then Gosub
Gosub MainLoop

FindAreaCircle:
FindAreaSphere:
FindAreaSquare:
FindAreaCube:
FindAreaTriangle:
FindAreaPyramid:
FindAreaCone:

Thanks!

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 19:31

Link

your missing Return statements, is one problem.
secondly, those open-ended gosubs can't be good

-RUST-

Back to top

Profile PM

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 29th Oct 2003 20:09 Edited at: 29th Oct 2003 20:11

Link

lol, ya I was not finished, I just like to test my stuff before I make problem that would be harder to fix. Oh ya, Thanks for those Return command reminder. *Edited out*

Thanks!

EDIT
K thanks! It works now thanks!

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 21:51

Link

-RUST-

Back to top

Profile PM

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 29th Oct 2003 22:33

Link

More Trouble, Here is the code, try running it, then please tell me what Im doing wrong.

Quit$=" Any Other Key To Quit"

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Lon(Lonnie) Porter (or F-i-n-a-lF-a-n)"

Defualts:
Pie# = 3.14286

MainLoop:
Do
Gosub ChooseOne
Loop

ChooseOne:
CLS
Text 10,20, FindAreaCircle$
Text 10,40, FindAreaSphere$
Text 10,60, FindAreaSquare$
Text 10,80, FindAreaCube$
Text 10,100, FindAreaTriangle$
Text 10,120, FindAreaPyramid$
Text 10,140, FindAreaCone$
Text 10,160, Quit$
Text 50,300, Madeby$
Input "Pick One ",PickedOne
If PickedOne=1 Then Gosub FindAreaCircle
If PickedOne=2 Then Gosub FindAreaSphere
If PickedOne=3 Then Gosub FindAreaSquare
If PickedOne=4 Then Gosub FindAreaCube
If PickedOne=5 Then Gosub FindAreaTriangle
If PickedOne=6 Then Gosub FindAreaPyramid
If PickedOne=7 Then Gosub FindAreaCone
If PickedOne=Q Then End
Gosub MainLoop

FindAreaCircle:
CLS
Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
AreaCircle#=(RadiusCircle#^2)*Pie#
Print "The Area of the Circle is " AreaCircle#
Wait Key
Return

FindAreaSphere:
CLS
Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
AreaSphere#=(RadiusSphere#^3)*Pie#
Print "The Area of the Sphere is "AreaSphere#
Wait Key
Return

FindAreaSquare:
CLS
Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
CLS
Input "Please Enter The Width " BaseSquare#
CLS
AreaSquare#=HightSquare#*BaseSquare#
Print "The Area of The Square is "AreaSquare#
Wait Key
Return

FindAreaCube:
CLS
Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
CLS
Input "Please Enter Width ",WidthCube#
CLS
Input "Please Enter Depth ", DepthCube#
CLS
AreaCube#=HightCube#*DepthCube#*WidthCube#
Print "The Area of the Cube is " AreaCube#
Wait Key
Return

FindAreaTriangle:
CLS
Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
CLS
Input "Enter The Base ", TriangleDepth#
CLS
TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
Wait Key
Return

FindAreaPyramid:
CLS
Input "Find the Area of a Pyramid, Please Enter the Hight ",HightPyramid#
Wait Key
Return

FindAreaCone:
CLS
Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
Wait Key
Return

Quit:
End

+ Code Snippet

Quit$=" Any Other Key To Quit"

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Lon(Lonnie) Porter (or F-i-n-a-lF-a-n)"


Defualts:
Pie# = 3.14286



MainLoop:
Do
Gosub ChooseOne
Loop


ChooseOne:
CLS
Text 10,20, FindAreaCircle$
Text 10,40, FindAreaSphere$
Text 10,60, FindAreaSquare$
Text 10,80, FindAreaCube$
Text 10,100, FindAreaTriangle$
Text 10,120, FindAreaPyramid$
Text 10,140, FindAreaCone$
Text 10,160, Quit$
Text 50,300, Madeby$
Input "Pick One ",PickedOne
If PickedOne=1 Then Gosub FindAreaCircle
If PickedOne=2 Then Gosub FindAreaSphere
If PickedOne=3 Then Gosub FindAreaSquare
If PickedOne=4 Then Gosub FindAreaCube
If PickedOne=5 Then Gosub FindAreaTriangle
If PickedOne=6 Then Gosub FindAreaPyramid
If PickedOne=7 Then Gosub FindAreaCone
If PickedOne=Q Then End
Gosub MainLoop


FindAreaCircle:
CLS
Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
AreaCircle#=(RadiusCircle#^2)*Pie#
Print "The Area of the Circle is " AreaCircle#
Wait Key
Return

FindAreaSphere:
CLS
Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
AreaSphere#=(RadiusSphere#^3)*Pie#
Print "The Area of the Sphere is "AreaSphere#
Wait Key
Return

FindAreaSquare:
CLS
Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
CLS
Input "Please Enter The Width " BaseSquare#
CLS
AreaSquare#=HightSquare#*BaseSquare#
Print "The Area of The Square is "AreaSquare#
Wait Key
Return

FindAreaCube:
CLS
Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
CLS
Input "Please Enter Width ",WidthCube#
CLS
Input "Please Enter Depth ", DepthCube#
CLS
AreaCube#=HightCube#*DepthCube#*WidthCube#
Print "The Area of the Cube is " AreaCube#
Wait Key
Return

FindAreaTriangle:
CLS
Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
CLS
Input "Enter The Base ", TriangleDepth#
CLS
TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
Wait Key
Return

FindAreaPyramid:
CLS
Input "Find the Area of a Pyramid, Please Enter the Hight ",HightPyramid#
Wait Key
Return

FindAreaCone:
CLS
Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
Wait Key
Return

Quit:
End

Thanks!

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 22:37 Edited at: 29th Oct 2003 22:39

Link

change this bit...

+ Code Snippet

MainLoop:
Do
Gosub ChooseOne
Loop


ChooseOne:
CLS
Text 10,20, FindAreaCircle$
Text 10,40, FindAreaSphere$
Text 10,60, FindAreaSquare$
Text 10,80, FindAreaCube$
Text 10,100, FindAreaTriangle$
Text 10,120, FindAreaPyramid$
Text 10,140, FindAreaCone$
Text 10,160, Quit$
Text 50,300, Madeby$
Input "Pick One ",PickedOne
If PickedOne=1 Then Gosub FindAreaCircle
If PickedOne=2 Then Gosub FindAreaSphere
If PickedOne=3 Then Gosub FindAreaSquare
If PickedOne=4 Then Gosub FindAreaCube
If PickedOne=5 Then Gosub FindAreaTriangle
If PickedOne=6 Then Gosub FindAreaPyramid
If PickedOne=7 Then Gosub FindAreaCone
If PickedOne=Q Then End
Gosub MainLoop

to this...

+ Code Snippet

MainLoop:
Do
Gosub ChooseOne
Loop
RETURN


ChooseOne:
CLS
Text 10,20, FindAreaCircle$
Text 10,40, FindAreaSphere$
Text 10,60, FindAreaSquare$
Text 10,80, FindAreaCube$
Text 10,100, FindAreaTriangle$
Text 10,120, FindAreaPyramid$
Text 10,140, FindAreaCone$
Text 10,160, Quit$
Text 50,300, Madeby$
Input "Pick One ",PickedOne
If PickedOne=1 Then Gosub FindAreaCircle
If PickedOne=2 Then Gosub FindAreaSphere
If PickedOne=3 Then Gosub FindAreaSquare
If PickedOne=4 Then Gosub FindAreaCube
If PickedOne=5 Then Gosub FindAreaTriangle
If PickedOne=6 Then Gosub FindAreaPyramid
If PickedOne=7 Then Gosub FindAreaCone
If PickedOne=Q Then End
RETURN

every sub routine should have return at the end
MYSUB:
code code code
RETURN

like that...

ok still looking...

EDIT: the rest seems OK

-RUST-

Back to top

Profile PM

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 29th Oct 2003 22:39 Edited at: 29th Oct 2003 22:45

Link

Thanks,

Err uhh, Im still having Trouble with the Code... Some error like "#100001: COuld not determine parameter type of "'The Area of the Circle is " AreaCircle#' at line 53"

Thanks!

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 22:43

Link

A good way to remember to close up any block of code is to type the closing command as soon as you type the opening command, so for example you type IF, immediately press enter and type ENDIF - then go back and fill in the code in between. The same holds true for sub routines, type the name MYSUB: , then press enter and type RETURN, then go back and fill in the rest of the code.

you'll get used to it, and it will save headaches down the road.

-RUST-

Back to top

Profile PM

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 29th Oct 2003 22:54

Link

See my last Post Rustler I think i was typing it right after you posted.

You Help a Lot! (you must have posted a ton!)

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 23:15

Link

Quote: "You Help a Lot! (you must have posted a ton!)"

Ha ha. Thanks, I like to help. I have been coding in various forms of basic for 24 years (since I was 10-ish), and now I am a profession programmer (VB6/.NET)

I will copy your code and fix the stuff I mentioned and the other problem you listed above

yes we were cross-posting LOL

-RUST-

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 23:25

Link

ALL fixed up

Quit$=" Any Other Key To Quit"

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Lon(Lonnie) Porter (or F-i-n-a-lF-a-n)"

Defualts:
Pie# = 3.14286

`\\You should add comments throughout your code...

MainLoop:
   Do
      Gosub ChooseOne
   Loop
RETURN

ChooseOne:
   CLS
   Text 10,20, FindAreaCircle$
   Text 10,40, FindAreaSphere$
   Text 10,60, FindAreaSquare$
   Text 10,80, FindAreaCube$
   Text 10,100, FindAreaTriangle$
   Text 10,120, FindAreaPyramid$
   Text 10,140, FindAreaCone$
   Text 10,160, Quit$
   Text 50,300, Madeby$
   Input "Pick One ",PickedOne
   If PickedOne=1 Then Gosub FindAreaCircle
   If PickedOne=2 Then Gosub FindAreaSphere
   If PickedOne=3 Then Gosub FindAreaSquare
   If PickedOne=4 Then Gosub FindAreaCube
   If PickedOne=5 Then Gosub FindAreaTriangle
   If PickedOne=6 Then Gosub FindAreaPyramid
   If PickedOne=7 Then Gosub FindAreaCone
   If PickedOne=Q Then End
RETURN

FindAreaCircle:
   CLS
   Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
   AreaCircle#=(RadiusCircle#^2)*Pie#
   Print "The Area of the Circle is ";AreaCircle#
   Wait Key
Return

FindAreaSphere:
   CLS
   Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
   AreaSphere#=(RadiusSphere#^3)*Pie#
   Print "The Area of the Sphere is ";AreaSphere#
   Wait Key
Return

FindAreaSquare:
   CLS
   Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
   CLS
   Input "Please Enter The Width ", BaseSquare#
   CLS
   AreaSquare#=HightSquare#*BaseSquare#
   Print "The Area of The Square is ";AreaSquare#
   Wait Key
Return

FindAreaCube:
   CLS
   Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
   CLS
   Input "Please Enter Width ",WidthCube#
   CLS
   Input "Please Enter Depth ", DepthCube#
   CLS
   AreaCube#=HightCube#*DepthCube#*WidthCube#
   Print "The Area of the Cube is ";AreaCube#
   Wait Key
Return

FindAreaTriangle:
   CLS
   Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
   CLS
   Input "Enter The Base ", TriangleDepth#
   CLS
   TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
   Wait Key
Return

FindAreaPyramid:
   CLS
   Input "Find the Area of a Pyramid, Please Enter the Hight ",HightPyramid#
   Wait Key
Return

FindAreaCone:
   CLS
   Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
   Wait Key
Return

Quit:
   End

+ Code Snippet

Quit$=" Any Other Key To Quit"

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Lon(Lonnie) Porter (or F-i-n-a-lF-a-n)"

Defualts:
Pie# = 3.14286

`\\You should add comments throughout your code...

MainLoop:
   Do
      Gosub ChooseOne
   Loop
RETURN

ChooseOne:
   CLS
   Text 10,20, FindAreaCircle$
   Text 10,40, FindAreaSphere$
   Text 10,60, FindAreaSquare$
   Text 10,80, FindAreaCube$
   Text 10,100, FindAreaTriangle$
   Text 10,120, FindAreaPyramid$
   Text 10,140, FindAreaCone$
   Text 10,160, Quit$
   Text 50,300, Madeby$
   Input "Pick One ",PickedOne
   If PickedOne=1 Then Gosub FindAreaCircle
   If PickedOne=2 Then Gosub FindAreaSphere
   If PickedOne=3 Then Gosub FindAreaSquare
   If PickedOne=4 Then Gosub FindAreaCube
   If PickedOne=5 Then Gosub FindAreaTriangle
   If PickedOne=6 Then Gosub FindAreaPyramid
   If PickedOne=7 Then Gosub FindAreaCone
   If PickedOne=Q Then End
RETURN

FindAreaCircle:
   CLS
   Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
   AreaCircle#=(RadiusCircle#^2)*Pie#
   Print "The Area of the Circle is ";AreaCircle#
   Wait Key
Return

FindAreaSphere:
   CLS
   Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
   AreaSphere#=(RadiusSphere#^3)*Pie#
   Print "The Area of the Sphere is ";AreaSphere#
   Wait Key
Return

FindAreaSquare:
   CLS
   Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
   CLS
   Input "Please Enter The Width ", BaseSquare#
   CLS
   AreaSquare#=HightSquare#*BaseSquare#
   Print "The Area of The Square is ";AreaSquare#
   Wait Key
Return

FindAreaCube:
   CLS
   Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
   CLS
   Input "Please Enter Width ",WidthCube#
   CLS
   Input "Please Enter Depth ", DepthCube#
   CLS
   AreaCube#=HightCube#*DepthCube#*WidthCube#
   Print "The Area of the Cube is ";AreaCube#
   Wait Key
Return

FindAreaTriangle:
   CLS
   Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
   CLS
   Input "Enter The Base ", TriangleDepth#
   CLS
   TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
   Wait Key
Return

FindAreaPyramid:
   CLS
   Input "Find the Area of a Pyramid, Please Enter the Hight ",HightPyramid#
   Wait Key
Return

FindAreaCone:
   CLS
   Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
   Wait Key
Return

Quit:
   End

the error was because when you PRINT, if you want to join up pieces of text and variable values you must Concatenate them with the ";" or "+" characters. All of your lines that tried to print were missing the ";" characters

Also you had an input statement that was missing a ","

I indented your code to make it more readable, and fixed the returns
It all runs OK now

let me know if there are any other bugs because I didn't try each routine.

and comment your code!

-RUST-

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 29th Oct 2003 23:31

Link

Just found one more thing, you are not printing the result of Find Area Of a Triangle

maybe you knew that tho.

-RUST-

Back to top

Profile PM

Lonnie

21

Years of Service

User Offline

Joined: 28th May 2003

Location:

Posted: 30th Oct 2003 00:22

Link

Thanks! Here is it Finished. (Mabey Just my first Version, But I am a newb, and the is nearly my first program that will be useful...Hopefully)

In the next few week I wanna get some more shapes in there, like Cilinders, and Mabey Octogons, and stuff like that.

Its my "Geometry Caculator Beta v1.0"

Later

Hide Mouse

Quit$=" Press Q to Quit"

FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Made by Lon(Lonnie) Porter (or F-i-n-a-l-F-a-n)"
ThanksTo$="Big Thanks to CattleRustler"

Defualts:
Pie# = 3.14286

`\\You should add comments throughout your code...

MainLoop:
   Do
      Gosub ChooseOne
   Loop
RETURN

ChooseOne:
   CLS
   Text 10,20, FindAreaCircle$
   Text 10,40, FindAreaSphere$
   Text 10,60, FindAreaSquare$
   Text 10,80, FindAreaCube$
   Text 10,100, FindAreaTriangle$
   Text 10,120, FindAreaPyramid$
   Text 10,140, FindAreaCone$
   Text 10,160, Quit$
   Text 250,400, Madeby$
   Text 250,420, ThanksTo$
   Input "Pick One ",PickedOne
   If PickedOne=1 Then Gosub FindAreaCircle
   If PickedOne=2 Then Gosub FindAreaSphere
   If PickedOne=3 Then Gosub FindAreaSquare
   If PickedOne=4 Then Gosub FindAreaCube
   If PickedOne=5 Then Gosub FindAreaTriangle
   If PickedOne=6 Then Gosub FindAreaPyramid
   If PickedOne=7 Then Gosub FindAreaCone
   If PickedOne=Q Then End
RETURN

FindAreaCircle:
   CLS
   Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
   AreaCircle#=(RadiusCircle#^2)*Pie#
   Print "The Area of the Circle is ";AreaCircle#
   Wait Key
Return

FindAreaSphere:
   CLS
   Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
   AreaSphere#=(RadiusSphere#^3)*Pie#
   Print "The Area of the Sphere is ";AreaSphere#
   Wait Key
Return

FindAreaSquare:
   CLS
   Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
   CLS
   Input "Please Enter The Width ", BaseSquare#
   CLS
   AreaSquare#=HightSquare#*BaseSquare#
   Print "The Area of The Square is ";AreaSquare#
   Wait Key
Return

FindAreaCube:
   CLS
   Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
   CLS
   Input "Please Enter Width ",WidthCube#
   CLS
   Input "Please Enter Depth ", DepthCube#
   CLS
   AreaCube#=HightCube#*DepthCube#*WidthCube#
   Print "The Area of the Cube is ";AreaCube#
   Wait Key
Return

FindAreaTriangle:
   CLS
   Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
   CLS
   Input "Enter The Base ", TriangleDepth#
   CLS
   TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
   Print "The Area of the Triangle is ";TriangleArea#
   Wait Key
Return

FindAreaPyramid:
   CLS
   Input "Find the Area of a Pyramid, Please Enter the Hight ", HightPyramid#
   CLS
   Input "Enter the Base ", BasePyramid#
   CLS
   AreaPyramid#=(HightPyramid#*BasePyramid#)/3
   Print "The Area of the Pyramid is ";AreaPyramid#
   Wait Key
Return

FindAreaCone:
   CLS
   Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
   CLS
   Input "Enter the Hight of the Cone ",HightCone#
   CLS
   AreaCone#=(RadiusCone#^2*Pie#)*HightCone#
   Print "The Area of the Cone is ";AreaCone#
   Wait Key
Return

Quit:
   End

+ Code Snippet



Hide Mouse


Quit$=" Press Q to Quit"


FindAreaCircle$=" 1) Find The Area of a Circle"
FindAreaSphere$=" 2) Find The Area of a Sphere"
FindAreaSquare$=" 3) Find The Area of a Square"
FindAreaCube$=" 4) Find The Area of a Cube"
FindAreaTriangle$=" 5) Find The Area of a Triangle"
FindAreaPyramid$=" 6) Find The Area of a Pyramid"
FindAreaCone$=" 7) Find The Area of a Cone"

MadeBy$="Made by Lon(Lonnie) Porter (or F-i-n-a-l-F-a-n)"
ThanksTo$="Big Thanks to CattleRustler"

Defualts:
Pie# = 3.14286

`\\You should add comments throughout your code...

MainLoop:
   Do
      Gosub ChooseOne
   Loop
RETURN

ChooseOne:
   CLS
   Text 10,20, FindAreaCircle$
   Text 10,40, FindAreaSphere$
   Text 10,60, FindAreaSquare$
   Text 10,80, FindAreaCube$
   Text 10,100, FindAreaTriangle$
   Text 10,120, FindAreaPyramid$
   Text 10,140, FindAreaCone$
   Text 10,160, Quit$
   Text 250,400, Madeby$
   Text 250,420, ThanksTo$
   Input "Pick One ",PickedOne
   If PickedOne=1 Then Gosub FindAreaCircle
   If PickedOne=2 Then Gosub FindAreaSphere
   If PickedOne=3 Then Gosub FindAreaSquare
   If PickedOne=4 Then Gosub FindAreaCube
   If PickedOne=5 Then Gosub FindAreaTriangle
   If PickedOne=6 Then Gosub FindAreaPyramid
   If PickedOne=7 Then Gosub FindAreaCone
   If PickedOne=Q Then End
RETURN

FindAreaCircle:
   CLS
   Input "Find The Area of a Circle, Please Enter the Radius ",RadiusCircle#
   AreaCircle#=(RadiusCircle#^2)*Pie#
   Print "The Area of the Circle is ";AreaCircle#
   Wait Key
Return

FindAreaSphere:
   CLS
   Input "Find The Area of a Sphere, Please Enter the Radius ",RadiusSphere#
   AreaSphere#=(RadiusSphere#^3)*Pie#
   Print "The Area of the Sphere is ";AreaSphere#
   Wait Key
Return

FindAreaSquare:
   CLS
   Input "Find The Area of a Square, Please Enter the Hight ",HightSquare#
   CLS
   Input "Please Enter The Width ", BaseSquare#
   CLS
   AreaSquare#=HightSquare#*BaseSquare#
   Print "The Area of The Square is ";AreaSquare#
   Wait Key
Return

FindAreaCube:
   CLS
   Input "Find The Area of a Cube, Please Enter the Hight ",HightCube#
   CLS
   Input "Please Enter Width ",WidthCube#
   CLS
   Input "Please Enter Depth ", DepthCube#
   CLS
   AreaCube#=HightCube#*DepthCube#*WidthCube#
   Print "The Area of the Cube is ";AreaCube#
   Wait Key
Return

FindAreaTriangle:
   CLS
   Input "Find The Area of a Triangle, Please Enter the Hight ",HightTriangle#
   CLS
   Input "Enter The Base ", TriangleDepth#
   CLS
   TriangleArea#=(TriangleDepth#*HightTriangle#)*0.50
   Print "The Area of the Triangle is ";TriangleArea#
   Wait Key
Return

FindAreaPyramid:
   CLS
   Input "Find the Area of a Pyramid, Please Enter the Hight ", HightPyramid#
   CLS
   Input "Enter the Base ", BasePyramid#
   CLS
   AreaPyramid#=(HightPyramid#*BasePyramid#)/3
   Print "The Area of the Pyramid is ";AreaPyramid#
   Wait Key
Return

FindAreaCone:
   CLS
   Input "Find the Area of a Cone, Please Enter the Radius ",RadiusCone#
   CLS
   Input "Enter the Hight of the Cone ",HightCone#
   CLS
   AreaCone#=(RadiusCone#^2*Pie#)*HightCone#
   Print "The Area of the Cone is ";AreaCone#
   Wait Key
Return

Quit:
   End

Thanks for all your help CattleRustler!

Do Print "Hello World"
Wait 2003 loop

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 30th Oct 2003 00:51

Link

no problem, I like to help if I am able. I am still new-ish to dbp but not new to programming in general.

Good Job!
Keep up the good work, and post often so we can see your progress.

-RUST-

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Easy Fix?