职责链模式+策略模式+反射,完美实现下机操作(二)
上篇博客中介绍了怎样应用职责链模式对上机时间进行处理，如今时间得到了，该怎么利用上机时间计算出上机消费金额呢？
策略模式（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类来承担，这就最大化的减轻了client的职责。
可是这样仍然不够完美，假如我们须要添加一种算法的时候，比方说，超级会员收费方式。那么在添加一个超级会员算法类的同一时候还须要去改动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)
'==================================================================================
不论什么需求的变更都是须要成本的，我们须要做的就是怎么才干以最小的代价完毕这些变更。
--大鸟
而设计模式正式为此而生。
机房收费系统的下机就到这里了，有什么不合理的地方。路过的大鸟指点一二。
。
