Skip to content

Instantly share code, notes, and snippets.

@jasongorman

jasongorman/RectangularRoom.cls

Created April 3, 2019 07:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jasongorman/f4433cbfa851104c30a3ab848905007a to your computer and use it in GitHub Desktop.
Save jasongorman/f4433cbfa851104c30a3ab848905007a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
RectangularRoom.cls
Option Explicit
Implements Room
Private mWidth As Double
Private mLength As Double
Public Property Let Width(ByVal value As Double)
mWidth = value
End Property
Public Property Let Length(ByVal value As Double)
mLength = value
End Property
Public Function Room_Area() As Double
Room_Area = mWidth * mLength
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment