For this coding exercise: Create an application that can be used to calculate th

Question

For this coding exercise:

Create an application that can be used to calculate the cost of installing a fence around a rectangular area.

Create the application, using the following names for the solution and project, respectively: Fence Solution and Fence Project. Save the application in the VB2015Chap11 folder.

Use Windows to copy the Rectangle.vb file from the VB2015Chap11 folder to the Fence SolutionFence Project folder.

Rectangle.vb file -

' Name: Rectangle.vb
' Programmer: <your name> on <current date>

Option Explicit On
Option Strict On
Option Infer Off

Public Class Rectangle
Private _intLength As Integer
Private _intWidth As Integer

Public Property Length As Integer
Get
Return _intLength
End Get
Set(value As Integer)
If value > 0 Then
_intLength = value
Else
_intLength = 0
End If
End Set
End Property

Public Property Width As Integer
Get
Return _intWidth
End Get
Set(value As Integer)
If value > 0 Then
_intWidth = value
Else
_intWidth = 0
End If
End Set
End Property

Public Sub New()
_intLength = 0
_intWidth = 0
End Sub

Public Sub New(ByVal intL As Integer, ByVal intW As Integer)
Length = intL
Width = intW
End Sub

Public Function GetArea() As Integer
Return _intLength * _intWidth
End Function
End Class

Use the Project menu to add the Rectangle.vb class file to the project.

Modify the class to use Double (rather than Integer) variables and properties.

Add a method named GetPerimeter to the Rectangle class. The method should calculate and return the perimeter of a rectangle. To calculate the perimeter, the method will need to add together the length and width measurements, and then multiply the sum by 2.

Create the interface shown in Figure 11-30 (zak, 2016). The image for the picture box is stored in the VB2015Chap11Fence.png file. Code the application and then test it appropriately. (Hint: Using 120 feet as the length, 75 feet as the width, and 10 as the cost per linear foot of fencing, the installation cost is $3,900.00.)

Explanation / Answer

Hi,

Please find below the updated class as per the points mentioned in the question-

Public Class Rectangle
Private _doubleLength As Double
Private _doubleWidth As Double
Public Property Length As Double
Get
Return _doubleLength
End Get
Set(value As Double)
If value > 0 Then
_doubleLength = value
Else
_doubleLength = 0
End If
End Set
End Property
Public Property Width As Double
Get
Return _doubleWidth
End Get
Set(value As Double)
If value > 0 Then
_doubleWidth = value
Else
_doubleWidth = 0
End If
End Set
End Property
Public Sub New()
_doubleLength = 0
_doubleWidth = 0
End Sub
Public Sub New(ByVal intL As Double, ByVal intW As Double)
Length = intL
Width = intW
End Sub
Public Function GetArea() As Double
Return _doubleLength * _doubleWidth
End Function
Public Function GetPerimeter() As Double
Return (2*(_doubleLength + _doubleWidth))
End Function
End Class

Related Questions

Navigate

• Browse (All)
• Browse F
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.