{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

Object Oriented Design assignment week 8

Object Oriented Design assignment week 8 - End Function...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Object Oriented Design week 8 Name as String Type as String Quantity as Integer Subprogram NewItem (name) Call SetName ( name) Call SetQuabity ( quanity + 1) End Subprogram Function GetName ( ) As String Set GetName = Name End Function Function GetType ( ) As String Set Getype = Type End Function Function GetQuantity ( ) As Integer Set GetQuantity = Quantity End Function Subprogram SetName ( name) SetName = name End Program Subprogram SetType ( type) SetType = type End Subprogram End Class Class CD Media Length as Real Genre as String Subprogram NewCD ( length, genre) Call SetLength (length) Call SetGenre ( genre) End Subprogram Function GetLength ( ) as Real Call SetLength = length
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: End Function Funtion GetGenre ( ) as String Set GetGenre = genre End Function Subprogram SetLength ( length) Set Length = Length End Subprogram Subprogram SetGenre (Genre) Set Genre = Genre End Subprogram End Class Class DVD Length as Real Genre as Real SubProgram NewDVD ( Length, Genre) Call SetLength (length) Call SetGenre (genre) End Subprogram Function GetLength ( ) as Real Set GetLength = length End Function Function GetGenre ( ) as String Set GetGenre = genre End Function Subprogram SetLength ( length) Set Length = length End Program Subprogram SetGenre ( genre) SetGenre = genre End Subprogram End Class...
View Full Document

{[ snackBarMessage ]}