设计模式之工厂方法(FACTORY METHOD))(三)

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

接上页

Straight Seeding类

在这个小程序在实际应用当中,会发现大部分工作在Straight Seeding类中完成的。我们实例化StraightSeeding 类,复制、修改游泳运动员的集合和所属泳道位置。

Public Class StraightSeeding

Inherits Seeding

Public Overrides Sub seed()

Dim lastHeat As Integer

Dim lastlanes As Integer

Dim i, j, count, heats As Integer

Dim swmr As Swimmer

Try

sw = sort(sw)

laneOrder = calcLaneOrder(numLanes)

count = sw.Count

lastHeat = count Mod numLanes

If (lastHeat < 3) And lastHeat > 0 Then

lastHeat = 3 'last heat must have 3 or more

End If

count = sw.Count

lastlanes = count - lastHeat

numheats = lastlanes \ numLanes

If (lastHeat > 0) Then

numheats = numheats + 1

End If

heats = numheats

'place heat and lane in each swimmer's object

j = 0

For i = 0 To lastlanes - 1

swmr = sw.swm(i)

swmr.setLane(CType(laneOrder(j), Integer))

j = j + 1

swmr.setHeat(heats)

If (j >= numLanes) Then

heats = heats - 1

j = 0

End If

Next i

'Add in last partial heat

If (lastHeat > 0) Then

If j > 0 Then

heats = heats - 1

End If

j = 0

For i = lastlanes To count - 1

swmr = CType(sw(i), Swimmer)

swmr.setLane(CType(laneOrder(j), Integer))

j = j + 1

swmr.setHeat(heats)

Next i

End If

Catch e As Exception

Console.WriteLine(i.ToString + j.ToString + e.ToString)

Console.WriteLine(e.StackTrace)

End Try

End Sub

'-----

Public Sub New(ByVal swmrs As Swimmers, ByVal lanes As Integer)

MyBase.new(swmrs, lanes)

End Sub

End Class

当调用getSwimmers方法时,StraightSeeding 类将创建被选拔的游泳运动员数组。

Circle Seeding类

CircleSeeding 类是从StraightSeeding 类派生的。

Public Class CircleSeeding

Inherits StraightSeeding

Private circlesd As Integer

'-----

Public Sub New(ByVal swmrs As Swimmers, ByVal lanes As Integer)

MyBase.New(swmrs, lanes)

End Sub

'-----

Public Overrides Sub seed()

Dim i, j, k, numHeats As Integer

laneOrder = calcLaneOrder(numLanes)

sw = sort(sw) '排序

MyBase.seed()

numheats = MyBase.getHeats

If (numheats >= 2) Then

If (numheats >= 3) Then

circlesd = 3

Else

circlesd = 2

End If

i = 0

For j = 0 To numLanes - 1

For k = 1 To circlesd

sw.swm(i).setLane(CType(laneOrder(j), Integer))

sw.swm(i).setHeat(numheats - k + 1)

i = i + 1

Next k

Next j

End If

End Sub

'-----

End Class

运行

在这个例子当中,我们使用完成500m自由泳和100m自由泳的运动员列表来创建TimedFinalEvent 类和PrelimEvent类。

刚开始学习设计模式在.NET中的应用,希望对大家在学习过程中有所帮助!

可以写信给我进行交流!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航