【机房重构】——观察者模式解决三种下机

VB 前端之家
前端之家收集整理的这篇文章主要介绍了【机房重构】——观察者模式解决三种下机，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

引言

对于重构来说我们知道在机房收费这个系统中有三种下机——正常下机、强制所有下机、选择强制下机。在第一遍的时候我们就是在做完正常下机以后，然后复制代码来完成，在重构的时候有了设计模式作为基础，我们可以用观察者模式轻松搞定这三种下机。

基础篇

基本概念：观察者模式又叫做发布-订阅模式，它定义了一种一对多的依赖关系，让多个观察者对象同时监听某一个主题对象。这个主题对象在状态发生变化的时，会通知所有的观察者对象，是他们能够自动更新自己。
基本类图：

应用场景：当一个对象的改变需要同时改变其他对象，并且他不知道具体有多少对象有待改变时，应该考虑使用观察者模式。总的来讲，观察者模式所做的工作其实就是子啊解除耦合，让耦合的双方都依赖于抽象而不是依赖于具体，从而是得各自的变化都不会影响另一边的变化！

实战篇

在上面介绍了关于观察者模式的一些基本知识，现在就借助机房重构这个机会小试一把。因为我在下机的过程中需要进行如下判断：卡号是否存在、卡号是否正在上机、是否插入上机记录表等。这些都是每个下机都要判断的，所以用观察者模式来解决这个问题。
类图如下：

部分代码如下： 
'**********************************************
'说明:在下机的时候用观察者模式，抽象观察者
'命名空间：BLL
'机器名称：晓
'创建日期：2015/1/4 22:50:10
'作者：郑浩
'版本号：V1.00
'**********************************************
Public MustInherit Class SubjetBll
    Private ilist As IList(Of ObserverBLL) = New List(Of ObserverBLL)
    ''' <summary>  
    ''' 添加观察者  
    ''' </summary>  
    ''' <param name="observer">抽象观察者类</param>  
    Public MustOverride Sub Attach(ByVal observer As ObserverBLL)

    ''' <summary>  
    ''' 去除观察者  
    ''' </summary>  
    ''' <param name="observer">抽象观察者类</param>  
    Public MustOverride Sub Detach(ByVal observer As ObserverBLL)


    ''' <summary>  
    ''' 通知观察者  
    ''' </summary>  
    Public MustOverride Sub Notify(ByVal online As Entity.EN_CardInfo)
 
End Class


'**********************************************
'说明:抽象的观察者
'命名空间：BLL
'机器名称：晓
'创建日期：2015/1/4 22:53:55
'作者：郑浩
'版本号：V1.00
'**********************************************
Public MustInherit Class ObserverBLL
    '定义一个抽象的更新的方法
    Public MustOverride Sub Update(ByVal online As Entity.EN_CardInfo)
End Class


说明:上机的第一步检查卡号时候存在
'命名空间：BLL
'机器名称：晓
'创建日期：2015/1/3 8:20:17
'作者：郑浩
'版本号：V1.00
'**********************************************
Imports IDAL
Imports BLL.OnLineStateBLL
Public Class IsExitCardNoBLL : Inherits OnLineStateBLL

    Public Overrides Sub online(ByVal cardinfo As Entity.EN_CardInfo,ByVal upline As BLL.UpLineBLL)

        Dim factory As New DAL.Factory
        Dim Ionline As IOnOffLine
        Ionline = factory.CreateOnOffLine
        Dim dt As DataTable
        dt = Ionline.CheckCardInfo(cardinfo)
        '判断卡号是否存在
        If (dt.Rows.Count = 0) Then
            MsgBox("卡号不存在")
        Else
            cardinfo.StudentName = dt.Rows(0).Item(3)
            cardinfo.Status = "正常上机"
            upline.SetNextState(New BalanceStateBLL)
            upline.CardOnLine(cardinfo)

        End If

    End Sub
End Class


'**********************************************
'说明:插入上机记录
'命名空间：BLL
'机器名称：晓
'创建日期：2015/1/5 23:45:31
'作者：郑浩
'版本号：V1.00
'**********************************************
Imports BLL.ObserverBLL
Imports IDAL
Public Class OInsertOnLineRecord : Inherits BLL.ObserverBLL

    Public Overrides Sub Update(online As Entity.EN_CardInfo)
        If Entity.PublicVariables.observeflag = "用户未上机" Then

        Else
            '首先在上机表中读取数据，然后赋给实体
            Dim factory As New DAL.Factory
            Dim Ionlining As IOnLining
            Ionlining = factory.CreateOnLining
            Dim dt As DataTable
            dt = Ionlining.IsCardNoLining(online)
            '计算消费时间
            Dim offdate As Date  '下机日期
            offdate = Date.Today()
            Dim offtime As String '下机时间
            offtime = Date.Now.ToString("hh:mm:ss")
            Dim spenttime As Double    '消费的时间
            Dim realitytime As Double    '实际消费时间
            Dim spentmoney As Integer    '消费金额
            Dim type As String          '用户类型
            Dim cardbalance As Integer

            '调用获得基本数据方法来获得基本数据
            Dim basicdatafactory As New DAL.Factory
            Dim Ibasicdata As ISetBasicData
            Ibasicdata = basicdatafactory.CreateBasicData
            Dim table As DataTable
            table = Ibasicdata.GetBasicData()
            '计算实际消费时间
            realitytime = 0
            spenttime = DateDiff(DateInterval.Minute,dt.Rows(0).Item(3),offdate) + DateDiff(DateInterval.Minute,CDate(dt.Rows(0).Item(4)),CDate(offtime))

            '判断消费时间和准备时间的大小
            If (spenttime < table.Rows(0).Item(5)) Then
                realitytime = 0
            ElseIf (spenttime < table.Rows(0).Item(4)) Then
                realitytime = table.Rows(0).Item(4)
            Else
                realitytime = spenttime
            End If
            '调用检查卡号的方法，来获取用户类型和余额

            Dim cardfactory As New DAL.Factory
            Dim Ionline As IOnOffLine
            Ionline = cardfactory.CreateOnOffLine

            Dim carddt As DataTable
            carddt = Ionline.CheckCardInfo(online)
            type = carddt.Rows(0).Item(15)     '获得用户类型
            cardbalance = carddt.Rows(0).Item(8)  '获得卡内余额



            Dim basicdata As New Entity.EN_BasicData
            basicdata.FixPrice = table.Rows(0).Item(1)
            basicdata.TempPrice = table.Rows(0).Item(2)

            '调用CashFactory 来计算消费金额
            Dim cashfactory As BLL.CashFactory = New CashFactory()
            Dim csuper As BLL.CashSuper
            csuper = cashfactory.CreateCashAccept(type)
            spentmoney = csuper.AcceptCash(basicdata,realitytime)

            '定义一个实体用来插入上机记录
            Dim onlinerecord As New Entity.EN_CardInfo
            onlinerecord.CardNo = dt.Rows(0).Item(1)
            onlinerecord.StudentName = dt.Rows(0).Item(2)
            onlinerecord.OnDate = dt.Rows(0).Item(3)
            onlinerecord.OnTime = dt.Rows(0).Item(4)
            onlinerecord.OffDate = offdate
            onlinerecord.OffTime = offtime
            onlinerecord.ConsumeTime = spenttime
            onlinerecord.ConsumeMoney = spentmoney
            onlinerecord.Balance = cardbalance - spentmoney
            onlinerecord.WorkerComputer = System.Net.Dns.GetHostName().ToString()
            onlinerecord.Status = online.Status
            onlinerecord.Type = type
            onlinerecord.UserName = Entity.PublicVariables._username

            '用于传给U层显示在文本框中
            Entity.PublicVariables.onlinerecordinfo = onlinerecord

            '调取学生表中的信息，用于填写U层的学生的基本信息
            Dim Cfactory As New DAL.Factory
            Dim CIonline As IOnOffLine
            CIonline = factory.CreateOnOffLine
            Dim Cdt As DataTable
            Cdt = Ionline.CheckCardInfo(online)
            '获得学生的基本信息后，赋给全局变量，然后传递给U层
            Entity.PublicVariables.StudentBasicInfo = Cdt
            '更新上机记录表中的数据
            Dim Ionlinerecord As IOnOffLine
            Dim result As Integer
            Ionlinerecord = factory.CreateOnOffLine
            result = Ionlinerecord.UpdateLineRecord(onlinerecord)

            If result = 0 Then

                MsgBox("更新上机记录失败")

            End If

        End If
    End Sub
End Class

<pre name="code" class="vb">**********************************************
'说明:具体的观察者
'命名空间：Facade
'机器名称：晓
'创建日期：2015/1/6 0:23:04
'作者：郑浩
'版本号：V1.00
'**********************************************
Public Class FacadeFormalOnLine
    ''' <summary>
    ''' 正常上机
    ''' </summary>
    ''' <param name="online"></param>
    ''' <remarks></remarks>
    Public Sub FormalOnLine(ByVal online As Entity.EN_CardInfo)
        Dim Fformalonline As New BLL.NormalOffLine
        Fformalonline.Attach(New BLL.OCardIsExist)
        Fformalonline.Attach(New BLL.OCardIsOnLine)
        Fformalonline.Attach(New BLL.OInsertOnLineRecord)
        Fformalonline.Notify(online)

    End Sub
End Class


 
 
思考
 
 
 
  我们都已经做过了一遍机房收费系统，我们根据需求会发现这样一个问题，当我们判断到卡号不存在时，会给出一个提醒“卡号不存在”，这时候后面的判断就不用进行了，直接退出,但是在观察这模式会自动遍历这些观察者，这就造成重复提示的缺陷，为了避免这个缺陷，我在实体层定义了一个全局变量用来在B层控制是否进行下一个判断。虽然达到做了目的，但是总感觉这样的办法不是最好的，这个问题正在研究中，如果哪位大神有好的想法，请留言提示！ 
 
 
 
小结
 

 

 
 其实下机和上机时计算消费的判断思路差不多，但是为了更好的联系设计模式的知识，所以采用了不同的模式，在上机计算消费时采用了状态模式，详见【机房重构】——策略模式+简单工厂计算消费，在重构的时候主要是对前面学习的这些编程的思想和知识的一个灵活运用，所以在做的时候尽可能的采用不同思路和想法从多个方面来完成相应的功能，在这个阶段的运用没有对错之分，只有用过以后才能在下一次编程的时候更加灵活的运用它，所有希望同学能打开思路进行机房重构，Come On!!1 


      

      
                 
              

            

          

          
          
          

            

              




            

          


          

            

              

                  
    
猜你在找的VB相关文章



                                    
VB Format函数

                                
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...

                                
                                
                            



                                    
vb6/ASP FORMAT MM/DD/YYYY

                                
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...

                                
                                
                            



                                    
VB.net 捕获项目全局异常

                                
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My
    ‘全局错误处理，新的...

                                
                                
                            



                                    
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法

                                
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...

                                
                                
                            



                                    
vb，wps，excel 分裂

                                
Sub 分列()
    ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理
    Dim m...

                                
                                
                            







                                    
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

                                
  Imports MySql.Data.MySqlClient


Public Class Form1


    ‘ GLOBAL DECLARATIONS
...

                                
                                
                            



                                    
VB.NET 使用ADODB連接資料庫滙出到EXCEL

                                
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...

                                
                                
                            



                                    
vb.net 多线程運用 ping

                                
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...

                                
                                
                            



                                    
VB等待进程结束

                                
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...

                                
                                
                            



                                    
vb中去掉string数组的一部分

                                
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...

                                
                                
                            







            

          

        

        
        
        
        

          
          

            

              

                
                
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole

                

              

            

          

          
         
          

            

              
 



              

            

          

          
          
          
          

            

              

                
                
              

            

          

          


          
          

            

              

                
                
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积