Visual Basic.NET How to Program (PDF)

Chapter 10 Object-Oriented Programming: Polymorphism 413
30 Set(ByVal salaryValue As Decimal)
31
32 ' validate mSalary
33 If salaryValue > 0 Then
34 mSalary = salaryValue
35 End If
36
37 End Set
38
39 End Property ' Salary
40
41 ' property Commission
42 Public Property Commission() As Decimal
43
44 Get
45 Return mCommission
46 End Get
47
48 Set(ByVal commissionValue As Decimal)
49
50 ' validate mCommission
51 If commissionValue > 0 Then
52 mCommission = commissionValue
53 End If
54
55 End Set
56
57 End Property ' Commission
58
59 ' property Quantity
60 Public Property Quantity() As Integer
61
62 Get
63 Return mQuantity
64 End Get
65
66 Set(ByVal QuantityValue As Integer)
67
68 ' validate mQuantity
69 If QuantityValue > 0 Then
70 mQuantity = QuantityValue
71 End If
72
73 End Set
74
75 End Property ' Quantity
76
77 ' override method to calculate CommissionWorker earnings
78 Public Overrides Function Earnings() As Decimal
79 Return Salary + Commission * Quantity
80 End Function ' Earnings
81
Fig. 10.11 CCommissionWorker class inherits from class CEmployee (part 2 of 3).