Visual Basic NET Application Coding Exercise 3 Exercise 13

Visual Basic .NET Application – Coding Exercise 3 (Exercise 13, Zack, 2016, p. 642). Please share the code for the below application using VisualBasic.NET

For this coding exercise:

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

Use Windows to copy the Rectangle.vb file from the VB2015\\Chap11 folder to the Fence Solution\\Fence Project folder. Use the Project menu to add the Rectangle.vb class file to the project. Here is the code for the Rectanble.vb class file:

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

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 (I\'ve already done this below):

(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.)

Thanks!

All-Around Fence Company Length (feet) Width (feet) Cost (per linear foot) Total cost: Calculate Total Cost Exit

Solution

The highlighted parts are chenged

Private _intLength As Double
Private _intWidth As Double
Public Property Length As Double
Get
Return _intLength
End Get
Set(ByVal value As Double)
If value > 0 Then
_intLength = value
Else
_intLength = 0
End If
End Set
End Property
Public Property Width As Double
Get
Return _intWidth
End Get
Set(ByVal value As Double)
If value > 0 Then
_intWidth = value
Else
_intWidth = 0
End If
End Set
End Property
Public Sub New()
_intLength = 0.0
_intWidth = 0.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 _intLength * _intWidth
End Function
Public Function GetPerimeter() As Double
Return (2 * _intLength + _intWidth)
End Function