【机房重构】——策略模式+简单工厂计算消费

'**********************************************
'说明:计算消费金额的抽象类
'命名空间：BLL
'机器名称：晓
'创建日期：2015/1/8 20:01:18
'作者：郑浩
'版本号：V1.00
'**********************************************
Public MustInherit Class CashSuper
    Public MustOverride Function AcceptCash(ByVal basicdata As Entity.EN_BasicData, ByVal consumetime As Integer) As Double
End Class

Imports BLL.CashSuper
''' <summary>
''' 临时用户计算消费时间
''' </summary>
''' <remarks></remarks>
Public Class CTempUser : Inherits BLL.CashSuper
    Public Overloads Overrides Function AcceptCash(basicdata As Entity.EN_BasicData, consumetime As Integer) As Double
        Return basicdata.TempPrice * (consumetime / 60)
    End Function
End Class

Imports BLL.CashSuper
''' <summary>
''' 固定用户的消费金额的计算
''' </summary>
''' <remarks></remarks>
Public Class FixUser : Inherits BLL.CashSuper
    Public Overloads Overrides Function AcceptCash(basicdata As Entity.EN_BasicData, consumetime As Integer) As Double
        Return basicdata.FixPrice * (consumetime / 60)
    End Function

Public Class CashFactory
    ''' <summary>
    ''' 消费金额计算工厂
    ''' </summary>
    ''' <param name="type"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function CreateCashAccept(ByVal type As String) As BLL.CashSuper
        Dim cs As BLL.CashSuper
        cs = Nothing
        Select Case type
            Case "临时用户"
                cs = New BLL.CTempUser()
            Case "固定用户"
                cs = New FixUser()
        End Select
        Return cs
    End Function
End Class