Question

as an example of code reuse take the rectangle.vb class and reuse it in two applications that deal with 1 paint one gallon of paint will cover 400 square feet

it costs $15 a gallon

2 flooring prices per square foot are: $1.59 for vinyl $5.79 for high-end hardwood $2.29 for bamboo

these are 2 projects having trouble with

'Name: Rectangle.vb
' Programmer: <Hello> on <3/9/2030>
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

Answer 1

Note: Done accordingly. Please comment for any problem. Please Uprate. Thanks.

Download Code:

https://drive.google.com/open?id=1vlSPgYkbxkyZmmv1Hww6bjqfhM-5KuFM

Code:

Module Module1

Sub paint(rect As Rectangle)
Dim cost As Double
cost = rect.GetArea() / 400.0 * 15
Console.WriteLine("Cost of painting :$" & cost)
End Sub
Sub flooring(rect As Rectangle)
Dim cost As Double
cost = rect.GetArea() * 1.59
Console.WriteLine("Cost of vinyl flooring :$" & cost)
cost = rect.GetArea() * 5.79
Console.WriteLine("Cost of high-end hardwood flooring :$" & cost)
cost = rect.GetArea() * 2.29
Console.WriteLine("Cost of bamboo flooring :$" & cost)
End Sub

Sub Main()
Dim length, width As Integer
Console.Write("Please give length :")
length = Integer.Parse(Console.ReadLine())
Console.Write("Please give width :")
width = Integer.Parse(Console.ReadLine())
Dim rectangle As Rectangle = New Rectangle(length, width)
'Calling paint and flooring method to calculate and print cost.We are just passing Rectangle object
paint(rectangle)
flooring(rectangle)

Console.ReadKey()
End Sub

End Module

Output:

Please give length :40 Please give width :25 es ExCost of painting :$37.5 Cost of vinyl flooring $159e Cost of high-end hardwood flooring $5790 DCost of bamboo flooring :$2290 Sh