# Visual Basic solution needed

User Generated

ZNEVPW1

Programming

## Description

The existing code, image, and the interface that need to be copied are attached. Instructions are below.

Please include brief explanation of steps taken and the solution in a zip file.

Visual Basic .NET Application – Coding Exercise 3 (Exercise 13, Zack, 2016, p. 642)

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 VB2015\Chap11 folder.
• 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.
• 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 VB2015\Chap11\Fence.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.)

Assignment Deliverables:

• The zip file containing the Visual Studio solution and project files.

### Unformatted Attachment Preview

' Name: ' Programmer: Rectangle.vb on 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 ' Name: ' Programmer: Rectangle.vb on 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
Purchase answer to see full attachment
User generated content is uploaded by users for the purposes of learning and should be used following Studypool's honor code & terms of service.

## Explanation & Answer

Hello,...

### Review

Anonymous
I was having a hard time with this subject, and this was a great help.

Studypool
4.7
Indeed
4.5
Sitejabber
4.4