Imports System.IO
Module Module1
Sub Main()
Dim Palm = New Book("Book 1", 49.99)
Dim CSharp = New Book("Book 2", "Name", "Publisher", 49.99)
Dim VB = New Book("Book 3", "Name 2", "Publish", 49.99, 18, "April 2002")
End Sub
End Module
Class Book
Private Title As String
Private Publisher As String
Private Author As String
Private Price As Double
Private ChapterCount As Integer
Private CopyrightDate As String
Public Sub New(ByVal Title As String, ByVal Price As Double)
Me.Title = Title
Me.Price = Price
Me.Author = ""
Me.ChapterCount = 0
Me.Publisher = ""
Me.CopyrightDate = ""
End Sub
Public Sub New(ByVal Title As String, ByVal Author As String, ByVal Publisher As String, ByVal Price As Double)
Me.Title = Title
Me.Author = Author
Me.Publisher = Publisher
Me.Price = Price
Me.ChapterCount = 0
Me.CopyrightDate = ""
End Sub
Public Sub New(ByVal Title As String, ByVal Author As String, ByVal Publisher As String, ByVal Price As Double, ByVal ChapterCount As Integer, ByVal CopyrightDate As Date)
Me.Title = Title
Me.Author = Author
Me.Publisher = Publisher
Me.Price = Price
Me.ChapterCount = ChapterCount
Me.CopyrightDate = CopyrightDate
End Sub
End Class
|
