vb.net - 在软件设计工厂模式中使用抽象泛型类

Question

我有一点设计问题。我创建了一个费率计算器，如下所示:

Public Interface ICalculator
 Property PaymentTerm As Double
 Function Calculate() As CommissionValues
 ReadOnly Property CalculationRule As CalculationRuleEnum
End Interface

Public Interface IFlexibleRateCalculator
 Inherits ICalculator
  Property TransferRate As Decimal
End Interface

Public Interface IFixedRateCalculator
 Inherits ICalculator
  Property ContractRate As Decimal
End Interface

Public Interface IRateSettingBase
  Property RateType As RateTypeEnum
  ReadOnly Property Calculator As ICalculator
End Interface

Public MustInherit Class RateSetting
 Implements IRateSettingBase
  Public MustOverride ReadOnly Property Calculator() As ICalculator Implements IRateSettingBase.Calculator

我可以做这样的事情:

dim ratevalues as RateValues = RateSetting().Calculator.Calculate()

很简单。问题是每种类型的计算器都有自己的一组属性，需要设置这些属性才能使其Calculate() 方法正常工作。
所以我最终不得不执行如下

FlexibleRateCalculator
Implements IFlexibleRateCalculator
    Private mRequestedRate As Decimal
    Public Function Calculate() As RateValues Implements ICalculator.Calculate
    
FixedRateCalculator
 Implements IFixedRateCalculator
    Private mTransferRate As Decimal
    Public Function Calculate() As RateValues Implements ICalculator.Calculate

使用泛型和抽象类创建工厂模式以动态生成特定类型的计算器的最佳方法是什么？
我需要一个非常通用的解决方案，因为将使用计算逻辑所需的自己的参数添加和修改许多计算速率。我希望能够快速做到这一点，并可能通过 db 控制这些速率计算。欢迎使用 C# 或 VB.Net 的 FYI 答案:)
提前致谢!

Answer 1

只保留 ICalculator接口(interface)并将更具体的接口(interface)转换为类。我想不出一个很好的理由来创建一个类来存储一个变量，所以我要去掉 RateSetting完全。

Public Interface ICalculator
    Property Rate As Double
    Property PaymentTerm As Double
    Function Calculate() As CommissionValues
    ReadOnly Property CalculationRule As CalculationRuleEnum
End Interface

Public Class FlexibleRateCalculator : Implements ICalculator

    Public Sub New(rate As Double)
        Me.Rate = rate
    End Sub

    '
    ' ICalculator implementation goes here
    '

End Class

Public Class FixedRateCalculator : Implements ICalculator

    Public Sub New(rate As Double)
        Me.Rate = rate
    End Sub

    '
    ' ICalculator implementation goes here
    '

End Class

Public Enum RateType
    Flexible = 1
    Fixed = 2
End Enum

Public Class CalculatorFactory

    Public Shared Function GetCalculator(rate As Double, type As RateType) As ICalculator
        Select Case type
            Case RateType.Flexible
                Return New FlexibleRateCalculator(rate)
            Case RateType.Fixed
                Return New FixedRateCalculator(rate)
            Case Else
                Throw New ArgumentException
        End Select
    End Function

End Class

您可以通过将速率和速率类型传递给 GetCalculator 来创建对象实例。方法。我不知道你说的 CalculationRule 是什么意思，但如果它对最终用户很重要，那么您应该将其添加为附加参数。

您可以轻松添加更多实现 ICalculator 的计算器类型，只要您不要忘记更新工厂方法中的 select 语句。

编辑:当然，您还可以在返回对象实例之前设置其他属性。然而，这种模式的重点是确保最终用户不需要知道 Calculate()被实现。如果您想为每个计算器制作更具体的工厂方法，那有点违背了目的。