VB.Net 重构以删除重复代码

Question

这是我的项目中的类的简化版本。由于奖金在每个函数中的计算方式完全相同，因此我想删除此处出现的明显重复代码，并将三个不同的函数合而为一。但是我不确定如何提供这个新函数所需的参数。

例如，我目前只是从代码

lblVolumeBonus.Content = TestClass.VolumeBonusAmountStore(bonus) 传递这样的参数。

我想我必须基本上扭转这个逻辑，并用类似

的东西来调用它lblVolumeBonus.Content = TestClass.VolumeBonusAmountStore(BonusTrackerBO.StoreBonus)

但我不确定语法是否正确或我是否处于正确的轨道上。

有人可以帮助我走向正确的方向吗？

Public Class TestClass
Public Shared Function StoreBonus(ByVal bonus As BonusTrackerBO.StoreBonus) As Double

    Dim myBonus As Double = bonus.TicketAmount
    Return myBonus * 5

End Function

Public Shared Function DistrictBonus(ByVal bonus As BonusTrackerBO.DistrictBonus) As Double

    Dim myBonus As Double = bonus.TicketAmount
    Return myBonus * 5

End Function

Public Shared Function CompanyBonus(ByVal bonus As BonusTrackerBO.CompanyBonus) As Double

    Dim myBonus As Double = bonus.TicketAmount
    Return myBonus * 5

End Function
End Class

编辑：这可能没有什么区别，但我应该明确指出等式中还有其他因素（我只是想保持简单）。那么，当奖金有其他回调（例如bonus.MaximumAmount、bonus.MinimumAmount）时，答案是否相同？奖励对象有 5 次回调，金额根据是商店、地区还是公司要求而有所不同。

Answer 1

为什么不一个简单的

Public Shared Function GiveBonus(ByVal TicketAmount As Double) As Double
    Return TicketAmount  * 5
End Function



lblVolumeBonus.Content = TestClass.VolumeBonusAmountStore(bonus.TicketAmount)

Answer 2

怎么样：

Public Shared Function GetBonus(ByVal bonus as Double) As Double
    Return bonus * 5
End Function

其中奖金是 bonus.TicketAmount。或者如果它们都继承自像BaseBonusClass这样的基类。

Public Shared Function GetBonus(ByVal bonus as BaseBonusClass) As Double
    Return bonus.TicketAmount * 5
End Function

编辑：或尝试泛型

Public Shared Function GetBonus(Of T As BaseBonusClass)(ByVal bonus as T) As Double
    Return bonus.TicketAmount * 5
End Function