设计模式之工厂方法FACTORYMETHOD(二)

　　派生类为这个选拔基类（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

原文转自：http://www.ltesting.net