Imports System
Imports System.IO
Public Class MainClass
Shared Sub Main()
Dim e As New Employee("Joe", 10000)
Console.WriteLine(e.TheName & " salary is " & e.Salary)
Console.WriteLine(e)
End Sub
Public Class Employee
Private m_Name As String
Private m_Salary As Decimal
Public Sub New(ByVal sName As String, ByVal curSalary As Decimal)
If sName = String.Empty Then
Console.WriteLine("no names")
Else
m_Name = sName
End If
End Sub
Public Property TheName() As String
Get
Return m_Name
End Get
Set(ByVal Value As String)
m_Name = Value
End Set
End Property
Public ReadOnly Property Salary() As Decimal
Get
Return m_Salary
End Get
End Property
Public Overrides Function ToString() As String
Return (m_Name & " " & Me.GetType.ToString)
End Function
End Class
End Class
|
