上篇博客中介绍了如何应用职责链模式对上机时间进行处理，现在时间得到了，该怎么利用上机时间计算出上机消费金额呢？

策略模式（Strategy）:它定义了算法家族，分别封装起来，让它们之间可以互相替换，此模式让算法的变化不会影响到算法的客户。

这么看来，策略模式是非常适合用来处理机房收费系统的收银操作的。定义一个抽象算法类，BL_STG_CashSuper，会员用户和临时用户的收费算法分别写到BL_STG_CashVip，和BL_STG_CashTmp中，并继承BL_STG_CashSuper类。另外再定义一个BL_STG_CashContext类来判定具体使用哪个算法。

类图：

代码具现化：

1. BL_STG_CashSuper 抽象类，定义所有支持的算法的公共接口

Public MustInherit Class BL_STG_CashSuper
    '根据上机时间、卡的类型，计算出消费金额(抽象方法)
    Public MustOverride Function GetConsumeMoney(ByVal Time As Integer) As Single
End Class

2. BL_STG_CashVip 具体策略类，计算会员用户消费金额，封装了具体的算法或行为，继承于类 BL_STG_CashSuper

Imports Charge_EN
Public Class BL_STG_CashVip : Inherits BL_STG_CashSuper
    Dim queryBasedata As New BL_QueryBaseData                '实例化类BL_QueryBaseData用于查询基础数据
    Dim ENBaseDatainfo As New EN_BaseData_info               '定义基础数据实体
    Dim basedatalist As List(Of EN_BaseData_info)            '定义实体的泛型集合
    Dim VipHourCash As Single                                '定义变量存放会员用户每小时费用 

    Public Overrides Function GetConsumeMoney(Time As Integer) As Single
        '调用查询方法获取数据，且赋值给实体泛型集合
        basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)

        VipHourCash = basedatalist(0).vipcost                '给变量赋值（会员用户每小时费用）
        Dim comsumecash As Single                            '定义变量存放消费金额
        comsumecash = CSng(Time) * CSng(VipHourCash / 60)    '计算消费金额
        Return comsumecash                                   '返回消费金额
    End Function
End Class

3. BL_STG_CashTmp 具体策略类，计算临时用户消费金额，封装了具体的算法或行为，继承于类 BL_STG_CashSuper

Imports Charge_EN
Public Class BL_STG_CashTmp : Inherits BL_STG_CashSuper

    Dim queryBasedata As New BL_QueryBaseData                '实例化类BL_QueryBaseData用于查询基础数据
    Dim ENBaseDatainfo As New EN_BaseData_info               '定义基础数据实体
    Dim basedatalist As List(Of EN_BaseData_info)            '定义实体的泛型集合
    Dim TmpHourCash As Single                                '定义变量存放临时用户每小时费用

    Public Overrides Function GetConsumeMoney(Time As Integer) As Single
        '调用查询方法获取数据，且赋值给实体泛型集合
        basedatalist = queryBasedata.queryBaseData(ENBaseDatainfo)

        TmpHourCash = basedatalist(0).tmpcost                '给变量赋值（会员用户每小时费用）
        Dim comsumecash As Single                            '定义变量存放消费金额
        comsumecash = CSng(Time) * CSng(TmpHourCash / 60)    '计算消费金额
        Return comsumecash                                   '返回消费金额
    End Function
End Class

4. BL_STG_CashContext,应用简单工厂模式，通过传入的卡的类型，来具体选择应用哪个算法。

Public Class BL_STG_CashContext
    Private cashsuper As BL_STG_CashSuper           '定义抽象类
    Public Sub New(ByVal CardType As String)

        'select语句进行判断选择传入的卡类型,进行自动创建消费类型
        Select Case CardType
            Case "固定用户"
                cashsuper = New BL_STG_CashVip()    '创建固定用户收费类型
            Case "临时用户"
                cashsuper = New BL_STG_CashTmp()    '创建临时用户收费类型
            Case Else
                CardType = Nothing
        End Select
    End Sub
    Public Function GetResult(ByVal Time As Integer) As Single
        '调用相关的消费处理类计算收费方法
        Return cashsuper.GetConsumeMoney(Time)
    End Function
End Class

策略模式封装了变化，消除了条件语句，避免了大量的判断，特别是在和简单工厂模式结合后，把具体实现的职责交给BL_STG_CashContext类来承担，这就最大化的减轻了客户端的职责。

但是这样仍然不够完美，假如我们需要增加一种算法的时候，比如说，超级会员收费方式；那么在增加一个超级会员算法类的同时还需要去修改BL_STG_CashContext类中的Select语句，开闭原则又没有好好遵守，这总是让人很不爽~别忘记还有一招反射呢。

利用反射技术，对BL_STG_CashContext类进行改造

Imports System.Reflection                           '添加反射的引用
Public Class BL_STG_CashContext
    Private cashsuper As BL_STG_CashSuper           '定义抽象类
    Public Sub New(ByVal CardType As String)

        '应用反射技术根据卡号类型自动选择应该实例化的类
        Dim strInstance As String = "Charge_BLL.BL_STG_Cash" + CardType
        cashsuper = CType(Assembly.Load("Charge_BLL").CreateInstance(strInstance),BL_STG_CashSuper)
    End Sub
    Public Function GetResult(ByVal Time As Integer) As Single
        '调用相关的消费处理类计算收费方法
        Return cashsuper.GetConsumeMoney(Time)
    End Function
End Class

反射，反射程序员的快乐，这样再添加新算法的时候连BL_STG_CashContext类也不用改动了。

U层调用

        '===根据获得的上机时间，应用策略模式计算消费金额==========================================
        Dim CardType As String
        '---进行字符串转换，转换为反射识别的字符
        Select Case Cardlist(0).Cardtype
            Case "会员"
                CardType = "Vip"
            Case "临时用户"
                CardType = "Tmp"
            Case Else
                CardType = ""
        End Select
        '---实例化类BL_STG_CashContext,传入用户类型
        Dim cashcontext As New BL_STG_CashContext(CardType)
        '---调用策略模式计算出余额并且赋值给consumecash
        Dim consumecash As Single = cashcontext.GetResult(ENLineinfo.consumeTime)
        '---定义变量newbalance,用于存放最新的余额
        Dim newbalance As Single = CSng(Cardlist(0).balance.ToString) - CSng(consumecash)
        '==================================================================================

任何需求的变更都是需要成本的，我们需要做的就是怎么才能以最小的代价完成这些变更。 --大鸟

而设计模式正式为此而生。

机房收费系统的下机就到这里了，有什么不合理的地方，路过的大鸟指点一二。。