欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

VB.NET & 策略模式(下机用户类型选择)

程序员文章站 2022-06-07 20:33:40
上篇文章讲述了对于下机操作和基本数据设定的时间联系,今天主要就是应用“策略模式”来了解了解对于固定用户,以及临时用户之间的选择,看学习设计模式的时候自己对于策略模式的理解,我们可以把固定用户和临时...

上篇文章讲述了对于下机操作和基本数据设定的时间联系,今天主要就是应用“策略模式”来了解了解对于固定用户,以及临时用户之间的选择,看学习设计模式的时候自己对于策略模式的理解,我们可以把固定用户和临时用户封装起来,这样就可以按照用户的类型来进行选择了。当然前提首先要抽象一个类,来封装这两个用户类型。

看类图:

VB.NET & 策略模式(下机用户类型选择)

代码具体化:喎? f/ware/vc/"="" target="_blank" class="keylink">vcd4kpha+ytfpyl+0s+np88dgo7pctf9dyxnou3vwzxistqjs5cg91tbwp7pwy+o3qlxeuau5sr3tv9o8l3a+cjxwpjxwcmugy2xhc3m9"brush:java;">'''

''' 抽象类,定义所有支持算法的公共接口 ''' ''' public mustinherit class bl_cashsuper '根据上机时间,卡的类型,计算出消费金额(抽象方法) public mustoverride function getconsumemondey(byval time as integer) as single end class再看两个具体的算法类:bl_cashtmp,bl_cashvip

imports entity.rechargeentity
public class bl_cashtmp : inherits bl_cashsuper
    dim querybasicdata as new basicdatabll   '实例化类basicdatabll
    dim enbasicdata as new entity.basicdataentity    '定义基础数据实体
    dim basicdatalist as ilist(of entity.basicdataentity)   '定义实体的泛型集合
    dim tmphourcash as single   '定义一个变量-存放临时用户每小时费用

    public overrides function getconsumemondey(time as integer) as single
        '赋值给实体泛型集合
        basicdatalist = querybasicdata.readbasic(enbasicdata)

        tmphourcash = basicdatalist(0).tmprate     '给变量赋值,临时用户每小时费用

        dim consumecash as single    '定义变量存放消费金额
        consumecash = csng(time) * csng(tmphourcash / 60)    '计算消费金额(csng把表达式转化成single类型)
        return consumecash
    end function
imports entity.rechargeentity
''' 
''' 具体策略类,计算会员用户消费金额,封装的具体的算法或行为,继承于类bl_cashsuper
''' 
''' 
public class bl_cashvip : inherits bl_cashsuper
    dim querybasicdata as new basicdatabll   '实例化类basicdatabll
    dim enbasicdata as new entity.basicdataentity    '定义基础数据实体
    dim basicdatalist as ilist(of entity.basicdataentity)   '定义实体的泛型集合
    dim viphourcash as single   '定义一个变量-存放固定用户半小时费用

    public overrides function getconsumemondey(time as integer) as single
        '赋值给实体泛型集合
        basicdatalist = querybasicdata.readbasic(enbasicdata)

        viphourcash = basicdatalist(0).rate    '给变量赋值,固定用户半小时费用

        dim consumecash as single    '定义变量存放消费金额
        consumecash = csng(time) * csng(viphourcash / 30)    '计算消费金额(csng把表达式转化成single类型)
        return consumecash
    end function
最后我们需要建立一个接口,来将用户的类型传入进来,进行判断:

imports bll
imports system.reflection
''' 
''' 应用简单工厂,通过传入的卡的类型,来具体选择应用那个算法,加一个反射,这样才能完美的实现开发封闭的原则,当我再需要增加一个算法的时候,我只需要在另外增加一个b层就好,而无需修改任何地方
''' 
''' 
public class bl_cashcontext
    private cashsuper as bl_cashsuper    '定义抽象类

    public sub new(byval cardtype as string)

        '应用反射技术根据卡号类型自动选择应该实例化的类  ,优化简单工厂
        dim strinstance as string = "bll.bl_cash" + cardtype   'bl_cash+(tmp or vip)
        cashsuper = ctype(assembly.load("bll").createinstance(strinstance), bl_cashsuper)
    end sub
    public function getresult(byval time as integer) as single
        '调用相关的消费处理类计算收费方法
        dim times as single
        '具体计算
        times = cashsuper.getconsumemondey(time)
        return times
    end function
来看看u层是如何实现调用的:

select case cardlist(0).cardtype
            case "固定用户"
                cardtype = "vip"
            case "临时用户"
                cardtype = "tmp"
            case else
                cardtype = ""
        end select
        '实例化类bl_cashcontext,传入用户类型
        dim cashcontext as new bl_cashcontext(cardtype)
        '调用策略模式计算出余额并赋值给consumecash
        dim consumecash as single = cashcontext.getresult(enline.consumetime)
        '定义变量newbalance,用于存放最新的余额
        dim newbalance as single = csng(qcardl(0).balance.tostring) - csng(consumecash)

这样使用策略模式则很好的就自动调用了其需求的卡类型,真的是很人性化啊!!而且还方便后期的维护。回归到自己刚开始的出门旅行的例子,其实都是一个道理,建立一个抽象类,封装算法,让其自动调用就好。既简单化同时还降低了使用者与其各种算法的联系!何乐而不为呢?
喎?>