justlearning
Member
- Joined
- Dec 11, 2008
- Messages
- 16
- Programming Experience
- Beginner
Hi guys I am sorry I do not know where to post this. If this is the wrong spot please let me know where you think I should have posted it and why.
I have an assignment that goes as follows:
I have most of the code ( I think) but am having trouble with one spot. It says that I have to use a loop to go through the array and print a description of each object by calling its ToString method. I have the output using each class's ToString method but it isn't looped and I don't know how to do more than one instance of each shape. My output currently looks exactly like the above referenced example except for one key thing. It only has one instance of each shape.
My code is as follows:
Console Application
Classes ( Shape, Circle, Square, Cylinder)
Please let me know if you have any advice. Thanks so much!
I have an assignment that goes as follows:
I have most of the code ( I think) but am having trouble with one spot. It says that I have to use a loop to go through the array and print a description of each object by calling its ToString method. I have the output using each class's ToString method but it isn't looped and I don't know how to do more than one instance of each shape. My output currently looks exactly like the above referenced example except for one key thing. It only has one instance of each shape.
My code is as follows:
Console Application
VB.NET:
Option Strict On
Module Module1
Sub Main()
Dim myshape As New Shape
Dim mycircle As New Circle
Dim mysquare As New square
Dim mycylinder As New cylinder
Dim result As String
Console.Write("Please enter the x location of the first circle: ")
mycircle.xvalue = Console.ReadLine
Console.Write("Please enter the y location of the first circle: ")
mycircle.yvalue = Console.ReadLine
Console.Write("Please enter the radius of the first circle: ")
mycircle.radius = CInt(Console.ReadLine)
Console.WriteLine("")
Console.Write("Please enter the x location of the first cylinder: ")
mycylinder.xvalue = Console.ReadLine
Console.Write("Please enter the y location of the first cylinder: ")
mycylinder.yvalue = Console.ReadLine
Console.Write("Please enter the radius of the first cylinder: ")
mycylinder.radius = CInt(Console.ReadLine)
Console.Write("Please enter the height of the first cylinder: ")
mycylinder.height = CInt(Console.ReadLine)
Console.WriteLine("")
Console.Write("Please enter the x location of the first square: ")
mysquare.xvalue = Console.ReadLine
Console.Write("Please enter the y location of the first square: ")
mysquare.yvalue = Console.ReadLine
Console.Write("Please enter the length of the second square: ")
mysquare.length = CInt(Console.ReadLine)
Console.WriteLine("")
Console.Write(myshape.mystringshape & vbCrLf & mycircle.mystringcircle & vbCrLf _
& mycylinder.mystringcylinder & vbCrLf & mysquare.mystringsquare & vbCrLf)
Console.WriteLine("Press any key to continue")
result = Console.ReadLine
End Sub
End ModuleClasses ( Shape, Circle, Square, Cylinder)
VB.NET:
'Parent Class
Public Class Shape
'Creates protected fields
'Fields for shape(xvalue and yvalue)
Protected m_xvalue As Integer
Protected m_yvalue As Integer
Public Sub New(ByVal xvalue As String, ByVal yvalue As String)
m_xvalue = xvalue
m_yvalue = yvalue
End Sub
Public Property xvalue()
Get
Return m_xvalue
End Get
Set(ByVal value)
m_xvalue = value
End Set
End Property
Public Property yvalue()
Get
Return m_yvalue
End Get
Set(ByVal value)
m_yvalue = yvalue
End Set
End Property
Sub New()
MyBase.new()
End Sub
Public Sub New(ByVal xvalue As Double, ByVal yvalue As Double)
MyBase.New()
m_xvalue = xvalue
m_yvalue = yvalue
End Sub
Public Function mystringshape() As String
Return String.Format("Your shapes are: " & vbCrLf)
End Function
End Class
'Child class
Public Class Circle
Inherits Shape
Public Sub New(ByVal radius As String)
m_radius = radius
End Sub
Private m_radius As Integer
Public Property radius() As Integer
Get
Return m_radius
End Get
Set(ByVal value As Integer)
m_radius = value
End Set
End Property
Public Sub area()
Dim area As Integer
area = radius ^ 2 * 3.14
End Sub
Sub New()
MyBase.New()
End Sub
Public Function mystringcircle() As String
Return ("Circle at (" & xvalue & ", " _
& yvalue & ") with radius " & radius & " has area " _
& radius ^ 2 & 3.14)
End Function
End Class
Public Class square
Inherits Shape
Public Sub New(ByVal length As String)
m_length = length
End Sub
Private m_length As Integer
Public Property length() As Integer
Get
Return m_length
End Get
Set(ByVal value As Integer)
m_length = value
End Set
End Property
Public Sub area()
Dim area As Integer
area = length * length
End Sub
Sub New()
MyBase.New()
End Sub
Public Function mystringsquare() As String
Return ("Square at (" & xvalue & ", " & yvalue _
& ") with length " & length & " has area " & length * length)
End Function
End Class
Public Class cylinder
Inherits Circle
Public Sub New(ByVal height As String)
m_height = height
End Sub
Private m_height As Integer
Public Property height() As Integer
Get
Return m_height
End Get
Set(ByVal value As Integer)
m_height = value
End Set
End Property
Public Sub volume()
Dim volume As Decimal
volume = radius ^ 2 * 3.14 * height
End Sub
Sub New()
MyBase.New()
End Sub
Public Function mystringcylinder() As String
Return ("Cylinder at (" & xvalue & ", " & yvalue _
& ") with radius " & radius & ", height " & height _
& " has volume " & radius ^ 2 * 3.14 * height)
End Function
End ClassPlease let me know if you have any advice. Thanks so much!
