體育運動會計算機管理系統的關鍵技術討論

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