Mega Code Archive
Get and set Properties
<![CDATA[
Imports System.IO
Module Module1
Sub Main()
Dim Palm As New Book("Book 1", "Author 1")
Dim Upgrading As New Book("Book 2", "Author 2")
Palm.Price = 49.99
Palm.Pages = 2000
Upgrading.Price = 119.99
Upgrading.Pages = 600
Console.WriteLine(Upgrading.Pages)
End Sub
End Module
Class Book
Public Title As String
Public Author As String
Private BookPrice As Double
Private BookPages As Integer
Public Property Price() As Double
Get
Return BookPrice
End Get
Set(ByVal Value As Double)
If (Value >= 0) And (Value <= 100) Then
BookPrice = Value
Else
Console.WriteLine("Invalid price for " & Title)
BookPrice = 0
End If
End Set
End Property
Public Property Pages() As Integer
Get
Return BookPages
End Get
Set(ByVal Value As Integer)
If (Value >= 0) And (Value <= 1500) Then
BookPages = Value
Else
Console.WriteLine("Invalid page count for " & Title)
BookPages = 0
End If
End Set
End Property
Public Sub New(ByVal Title As String, ByVal Author As String)
Me.Title = Title
Me.Author = Author
End Sub
End Class
]]>