docs-1/docs/visual-basic/misc/codesnippet/VisualBasic/inheritance-basics_1.vb at master · andtii/docs-1 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Const BonusRate As Decimal = 1.45D
    Const PayRate As Decimal = 14.75D

    Class Payroll
        Overridable Function PayEmployee(
            ByVal HoursWorked As Decimal,
            ByVal PayRate As Decimal) As Decimal

            PayEmployee = HoursWorked * PayRate
        End Function
    End Class

    Class BonusPayroll
        Inherits Payroll
        Overrides Function PayEmployee(
            ByVal HoursWorked As Decimal,
            ByVal PayRate As Decimal) As Decimal

            ' The following code calls the original method in the base
            ' class, and then modifies the returned value.
            PayEmployee = MyBase.PayEmployee(HoursWorked, PayRate) * BonusRate
        End Function
    End Class

    Sub RunPayroll()
        Dim PayrollItem As Payroll = New Payroll
        Dim BonusPayrollItem As New BonusPayroll
        Dim HoursWorked As Decimal = 40

        MsgBox("Normal pay is: " &
            PayrollItem.PayEmployee(HoursWorked, PayRate))
        MsgBox("Pay with bonus is: " &
            BonusPayrollItem.PayEmployee(HoursWorked, PayRate))
    End Sub