一口一个设计模式--策略模式

     昨天和大家讲解了设计模式中的职责链模式，今天意犹未尽，接着讲设计模式，今天要讲的设计模式是策略模式。

  我们都知道，编程语言的三种控制结构可以解决遇到的所有问题。从宏观上来看，职责链模式好似顺序结构，事先确定好事情的执行顺序，依次执行，直到有人处理此事；策略模式好似选择结构，根据不同的问题，动态的采用对应的解决方案。

  下面的策略模式的官方解释：它定义了算法家族，分别封装起来，让它们之间可以互相替换，此模式让算法的变化，不会影响到使用算法的用户。

  回首已经完成的机房收费系统，有这个一个场景：在用户上机时，管理员会根据用户类型--固定用户或临时用户，采取不同的计费标准，而我们刚刚提到的策略模式整好适用于此场景。好，下面我们用一个小Demo来完成详细讲解。

  在这个Demo中，一共有4个类和1个窗体。抽象类用户消费策略UserConsumeStrage、继承类一般用户RegularUserStrage、继承类临时用户TemUserStrage、策略控制类ConsumeContent、窗体类frm。

                                                       

  用户消费策略类UserConsumeStrage代码如下：

Public MustInherit Class UserConsumeStrage    '收取现金的超类    Public MustOverride Function acceptCash(ByVal ConsumeTime As Integer) As DoubleEnd Class

         继承类一般用户RegularUserStrage

Public Class RegularUserStrage : Inherits UserConsumeStrage    '一般用户机房标准    Private Rate As Double    '在对象创建时，需要输入一般用户的机房标准    Public Sub New(ByVal Rate As Double)        Me.Rate = Rate    End Sub    Public Overrides Function acceptCash(ByVal ConsumeTime As Integer) As Double        Return Rate * ConsumeTime    End FunctionEnd Class

  继承类临时用户TemUserStrage代码和RegularUserStrage雷同

 策略控制类ConsumeContent代码如下：

Public Class ConsumeContent    Private cc As UserConsumeStrage    '声明新对象时，需要传入计费类型    Public Sub New(ByVal type As String)        Select Case type            Case "一般用户"                Dim cc0 As New RegularUserStrage("0.8")                cc = cc0                Exit Select            Case "临时用户"                Dim cc1 As New TemUserStrage("1")                cc = cc1                Exit Select        End Select    End Sub    Public Function GetResult(ByVal consumeTime As Integer) As Double        Return cc.acceptCash(consumeTime)    End FunctionEnd Class

     frm窗体代码如下：

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        '获取计费策略        Dim ustrage As New ConsumeContent(cbxType.SelectedItem.ToString())        Dim totalPrice As Double        totalPrice = ustrage.GetResult(Convert.ToDouble(txtConsumeTime.Text))        lblResult.Text = totalPrice.ToString()    End Sub

           这样利用策略模式和简单工厂模式实现了上述Demo，使客户端只需认识一个类ConsumeContent类即可，降低了系统的耦合度，使得收费算法彻底与客户端分类，连算法的父类UserConsumeStrage都不让认识了。

  希望我的讲解能对大家有所帮助。