体育运动会计算机管理系统的关键技术讨论

2014-10-07 15:06:50 大云网　点击量：评论 (0)

摘　要：将计算机技术应用到体育运动会的管理当中，研制出体育运动会计算机管理系统，显著提高运动会的现代化管理水平。本文主要阐述在具体实现过程中使用到的一些关键技术。关键词：体育运动会　计算机管理系统

摘　要：将计算机技术应用到体育运动会的管理当中，研制出体育运动会计算机管理系统，显著提高运动会的现代化管理水平。本文主要阐述在具体实现过程中使用到的一些关键技术。

关键词：体育运动会　计算机管理系统　智能分组分道

2010年，沈阳药科大学体育部提出加强体育运动会现代化管理技术的需求，与我校计算机中心联合共同研制了体育运动会计算机管理系统，该系统投入使用后，显著提升运动会管理者的工作效率，与传统人工实现相比，在准确性、及时性、智能化和高效率等方面占有绝对优势；系统还受到沈阳市某事业单位的关注和使用。在研发和完善系统的过程中，运动员注册、分组分道、成绩录入、数据导出和打印报告单/成绩单等的功能设计部分都涉及不同的关键技术。

　　1　关键技术

　　1.1　智能分组分道

　　所谓智能分组分道技术，是指由计算机按一定规则对某项目的报名数据进行分组分道，模拟人工实现的过程效率高、速度快、准确无误。技术算法实现如下：

　　（1）将某项目报名数据所有运动员号码读取到动态数组c中，并进行排序。

　　Set g = Grid1

　　ReDim c(1 To g.rows - 1)

　　For i = 1 To g.rows - 1

　　 c(i) = g.Cell(i, 3).Text

　　Next i

　　排序代码省略。

　　（2）定义二维动态数组s，其中第一维大小为小组数，第二维大小为道数。

　　ReDim s(1 To lblXZS.Caption, 1 To lblDS.Caption)

　　（3）开始分组。这一步是将前面排好序的运动员号码以道次为优先，为每小组分配一个队员，这样保证了同一参赛单位的队员尽量不出现在一个小组当中，如图1所示。

　　For j = 1 To lblDS.Caption

　　 For i = 1 To lblXZS.Caption

　　 If (j - 1) * lblXZS.Caption + i > UBound(c) Then Exit For

　　 s(i, j) = c((j - 1) * lblXZS.Caption + i)

　　 Next i

　　 If i <= lblXZS.Caption Then Exit For

　　Next j

　　其中，(j - 1) * lblXZS.Caption + i > UBound(c)判断是否分配完毕。

　　（4）重新随机分道。针对此问题，我们在设计中采用类似约瑟夫环问题解决：对某小组i分道时，统计该组运动员数量ecount，随机生成一个位置j，并将该位置的号码s(i,j)移动到s(i,ecount)位置去，其j位置之后直到ecount位置的号码前移，该组运动员数量ecount减1；重复此操作ecount-1遍，VB中的For循环终值一旦确定不会再改变。

　　For i = 1 To lblXZS.Caption

　　 ecount = 0

　　 For j = 1 To lblDS.Caption

　　 If s(i, j) <> "" Then ecount = ecount + 1

　　 Next j

　　 For k = 1 To ecount - 1

　　 j = Int(Rnd * ecount + 1)

　　 t = s(i, j)

　　 For M = j + 1 To ecount

　　 s(i, M - 1) = s(i, M)

　　 Next M

　　 s(i, M - 1) = t