Help with class

[ludasky]

hi all,

Im writing a geometric code using inheriting class. so far ive done this. I can code the radius entered by the user but i cant figure out how to code with the HEIGHT part for the volume of the cylinder. I cant use ByVal ??

Option Explicit On
Option Strict On

Public Class Cylinder
Inherits GeometricShape

Private _radius As Decimal

Sub New(ByVal theRadius As Decimal)
Radius = theRadius
MyBase.Volume = CalculationVolume()

End Sub
End Property
Public Property Radius() As Decimal
Get
Return _radius


End Get
Set(ByVal value As Decimal)
_radius = value

End Set
End Property

Overrides Function CalculationVolume() As Decimal

Return Convert.ToDecimal(Math.PI * Height * Radius * Radius)

End Function
End Class

 

[Swan]

you haven't defined height _anywhere_. The only value you've defined is _radius. And you aren't even using that in the line where you refer to height.

 

[ludasky]

this is what ive done do far but still not working

Option Explicit On
Option Strict On

Public Class Cylinder
Inherits GeometricShape
Private _height As Decimal
Private _radius As Decimal

Public Sub New(ByVal theRadius As Decimal, ByVal theHeight As Decimal)

Height = theHeight
Radius = theRadius
MyBase.Volume = CalculationVolume()

End Sub
Public Property Height() As Decimal
Get
Return _height
End Get
Set(ByVal value As Decimal)
_height = value

End Set
End Property
Public Property Radius() As Decimal
Get
Return _radius


End Get
Set(ByVal value As Decimal)
_radius = value

End Set
End Property


Overrides Function CalculationVolume() As Decimal

Return Convert.ToDecimal(Math.PI * Height * Radius * Radius)

End Function
End Class

 

[Swan]

Some of the errors would be nice.