.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
设计模式之工厂方法(FACTORY METHOD))(二)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

 

接上页)派生类为这个选拔基类(Seeding)分别建立一个实例来调用这些方法。我们现在建立这两个具体的选拔子类:StraightSeeding CircleSeeding类。PrelimEvent类将返回CircleSeeding类的实例,TimedFinalEvent类则返回StraightSeeding类实例。

结构如下:

 

  

通过整个事件层次,可以看到PrelimEvent类、TimedFinalEvent类都包含getSeeding方法,PrelimEvent类将返回CircleSeeding类的实例,TimedFinalEvent类则返回StraightSeeding类实例。在这个简单的例子当中我们并没有指出真正的工厂(Factory),然而,实例化哪一个Event类决定了哪一个Seeding类将被实例化。

       虽然它看起来像是在两个类之间存在一对一相应的通信。 但,这不是必需的。可以有许多不同类型的Events类但他们只使用少一部分Seeding类。

 

Swimmer

      Swimmer类包含一些游泳运动员的具体信息和在选拔之后修改运动员的组以及泳道的方法。Event类在数据库(在这个例子中为文本文件)读取运动员信息。当调用Event类的getSeeding方法时将这个运动员的集合传递到Seeding类。

 

Events

      我们已经定义了一个抽象基类,在实际的应用当中,我们只是使用它来读取游泳运动员的数据信息(在这个例子中为文本文件)。

 

Prelimevent类返回CircleSeeding实例

 

Public Class Prelimevent

    Inherits Events

        Dim sd As Seeding

    Public Overrides Function getSeeding() As Seeding

        Return New CircleSeeding(swmmers, numLanes)

    End Function

   

    Public Overrides Function isFinal() As Boolean

        isFinal = False

    End Function

   

    Public Overrides Function isPrelim() As Boolean

        isPrelim = True

    End Function

   

    Public Overrides Function isTimedFinal() As Boolean

        isTimedFinal = False

    End Function

   

    Public Sub New(ByVal Filename As String, ByVal lanes As Integer)

        MyBase.New(Filename, lanes)

        numLanes = lanes

    End Sub

End Class

 

TimedFinalEvent类返回StraightSeeding实例

 

public Class TimedFinalEvent

    Inherits Events

 

    Public Sub New(ByVal Filename As String, ByVal lanes As Integer)

        MyBase.New(Filename, lanes)

    End Sub

    '------   

    Public Overrides Function getSeeding() As Seeding

        Dim sd As Seeding

        'create seeding and execute it

        sd = New StraightSeeding(swmmers, numLanes)

        sd.seed()

        getSeeding = sd

    End Function

    '------   

    Public Overrides Function isFinal() As Boolean

        isFinal = False

    End Function

    '------

    Public Overrides Function isPrelim() As Boolean

        isPrelim = False

    End Function

    '------

    Public Overrides Function isTimedFinal() As Boolean

        isTimedFinal = True

    End Function

 

End Class




相关文章

相关软件