设计模式之工厂方法（FACTORY METHOD））（三）

新客网 XKER.COM 2004-06-03 来源： 收藏本文

（接上页）

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

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决