【導讀】等組成，采用串口總線通訊，語言包括VB，匯編語言。評委在各自的打分終端上輸入比。本文介紹了系統(tǒng)的工作原理，軟件和硬件設計，給出了關鍵源代碼及部分電路。隨著近幾年來各種各樣競賽的風靡，主辦方急需一個操作方便，價格低廉的打分系統(tǒng)，乒乓球競賽、足球競賽等。有效節(jié)省成本，節(jié)約時間。等)和一個串行口，兩個16位計數/定時器。終端上要有顯示器，用于告知評委他打的分數是什么，可選用LCD或LED數碼管。碼管亮秒，4個一共是秒。在中斷處理函數里，我們實現了不同數碼管的依次顯示。加好幾倍，所以鍵盤連接成m×n的矩陣形式，占用單片機的7根口線。

　　

【正文】 rol ” 選中它并點擊“確定 ”按鈕即可。 當系統(tǒng)啟動時觸發(fā)得分表 Form_Load 這個事件時，系統(tǒng)將將把該控件進行初始化設置，設置為 21 行， 11 列，其代碼如下： = 11 = 1 = 21 = 12 淮陰師范學院畢業(yè)論文（設計） 37 其中一行為表頭，其余為 20 個選手，當添加選手超過 20 行，表的行樹將會自動擴展。而行的擴展是在選手姓名編輯過程中就完成了。其實現方法如下： Do While I = Len(S) And K 0 If J = 1 Then 39。若行數超過表的最后一行則擴展一行 = J + 1 For K = 1 To 1 = J 39。設置當前單元格 = K = 4 39。該行各格文字居中中間對齊 Next K (J * ) = CStr(J) amp。 39。為該行加上編號 End If K = InStr(I, S, vbCrLf) 39。找回車符位置 If K 0 Then C = Mid(S, I, K I) ElseIf I = Len(S) Then C = Mid(S, I, Len(S) I + 1) End If (J * + 1) = C J = J + 1 39。行數加一 I = K + 2 39。I 指針指向回車換行符后的字符 Loop 表的列數是固定的，不可擴展，最左邊一列用于顯示行號（即選手編號），其余各列用于顯示選手姓名，各評委的打分和最后得分；表的行數據是可以擴展的，系統(tǒng)剛啟動時默認 21 行，一行作表頭，其余 20 可放 20 個選手的比賽成績，添加選手人數超過 20 人或打開的成績文件中選手人數超過 20 人時，表的行數會看上去擴充。 為了保存和打開得分表文件，設計了文件處理模塊，分為“保存”，“另存為” 淮陰師范學院畢業(yè)論文（設計） 38 和“打開”三個模塊。 對于未保存的 新表格，用戶點擊“保存”命令，將自動打開“另存為”對話框，這時要求用戶輸入保存路徑和文件名，實現以上功能的代碼如下： Public Sub Save_Click() 39。保存文件 If Fname Then On Error Resume Next Open Fname For Output As 1 If Err 0 Then 39。Err=0 為無錯誤 MsgBox Error, 16 Fname = Exit Sub End If A = Write 1, A For I = To 1 For J = To 1 A = (I * + J) Write 1, A Next J Next I Change = False Close Else Call SavAs_Click 39。轉文件 另存為 End If Caption = 比賽成績表 amp。 文件名 : amp。 Fname End Sub Private Sub SavAs_Click() Dim A As String, I As Integer, J As Integer 淮陰師范學院畢業(yè)論文（設計） 39 = *.sco(比賽成績文件 )|*.sco = 6 39。使“另存為”對話框當選擇的文件已經存在時應產生一個信息框，用戶必須確認是否覆蓋該文件 ,隱藏只讀復選框。 = True 39。當選取“取消”按鈕時是出錯 On Error Resume Next If Err = cdlCancel Then Exit Sub End If Fname = If Fname = Then Exit Sub On Error Resume Next Open Fname For Output As 1 If Err 0 Then 39。Err=0 為無錯誤 MsgBox Error, 16 Fname = Exit Sub End If A = Write 1, A For I = To 1 For J = To 1 A = (I * + J) Write 1, A Next J Next I Change = False Caption = 比賽成績表 amp。 文件名 : amp。 Fname Close 淮陰師范學院畢業(yè)論文（設計） 40 End Sub 對保存過的的得分表再進行保存時，不會出現對話框而是按照原來的路徑和文件名保存。 本系統(tǒng)中文件的格式采用順序文件，純文本方式，文件后綴為“ .sco” ，用 Windows 的記事本也可以打開，用記事本打開時第一行為比賽名稱，其余每一行對應表格中的一個單元格，順序為從左到右，從上到下的方式。 圖 為了不遺忘保存數據，我們在系統(tǒng)設置了 一個全局的邏輯型變量用作文件被修改標志，該邏輯變量在標準模塊中定義如下： Public Change As Boolean 有了這個變量，一旦成績被修改，就 `將其設置為 Ture，保存過后將其設置為 False。若成績被修改后未保存就關閉程序，系統(tǒng)會出現一個對話框，提示用戶選擇“保存成績退出”、“不保存成績退出”或“放棄退出”。 在文本處理模塊中我們還用了一個公共對話框控件 Common Dialog。 Common Dialog 控件功能強大，可以打開許多種 Windows 對話框，在本系統(tǒng)中只使用了“另存為”和“打開 ”著兩個功能，這兩個功能在上文已經敘述過，在這里就不再重復了。 在設置 Common Dialog 的屬性時，見圖 ，我們把 Cancel Erron 設置為 Ture，這個作用是當用戶點擊“取消”按鈕時，發(fā)出錯誤信息。 FileName 屬性值是用戶在對話框中選定或輸入的文件路徑和文件名。 排序模塊：當用戶點擊圖 上的“名次”命令時，系統(tǒng)啟動排序程序，這里使用的是選擇排序方法，排序的依據是表中各行的“得分”一欄，序列為從高到低，即降序?；搓帋煼秾W院畢業(yè)論文（設計） 41 這時各行的序號即為選手名次，排列中沒有考慮并列名次 。 Private Sub Sort_Click() 39。排名次 Dim I As Integer, J As Integer, K As Integer Dim T(10) As String, M As Integer, N As Integer M = : N = For I = To M 2 For J = I + 1 To M 1 If (J * N + 10) = Then Exit For If Val((J * N + 10)) Val((I * N + 10)) Then Change = True For K = 1 To 10 T(K) = (J * N + K) (J * N + K) = (I * N + K) (I * N + K) = T(K) Next K End If Next J Next I End Sub 參考書籍： [1]張宏林 孔艷 王哲 編著 《 Visual Basic 開發(fā)數據庫》人民郵電出版社 2020 [2]Evangelos Petroutsos Kevin Hough 著 邱仲潘 等譯 《 Visual Basic 高級開發(fā)指南》 電子工業(yè)出版社出版 1999 [3] 林卓然 《 Visual Basic 高級開發(fā)指南》 電子工業(yè)出版社 2020 淮陰師范學院畢業(yè)論文（設計） 42 結 束 語 經過這次畢業(yè)設計，我覺得自己學到了不少東西。歸納起來，主要有以下幾點： 大學 四 年的時間都在學習理論知識，并未真正去應用和實踐。經過這次畢業(yè)設計，我接觸到了更多平時沒有接觸到的 新問題、新 設備、 新 器件，發(fā)現了自己很多不足之處。我還體會到了所學理論知識的重要性：知識掌握得越多，設計得就更全面、更順利、更好。 了解 了 進行 電子產品 設計 開發(fā) 必不可少的幾個階段。畢業(yè)設計能夠從理論設計和工程實踐相 結合、鞏固基礎知識與培養(yǎng)創(chuàng)新意識相結合、個人作用和集體協(xié)作相結合等方面全面的培養(yǎng)學生的素質。我經過這次系統(tǒng)的畢業(yè)設計，熟悉了對一項課題進行研究、設計和實驗的詳細過程。這些在我們在將來的工作和學習當中都會有很大的幫助。 學會了怎樣查閱資料和利用工具書。平時課堂上所學習的知識大多比較陳舊，作為 電子信息 工程 專業(yè)的 學生，由于專業(yè)特點自己更要積極查閱當前的最新 技術 資料。一個人不可能什么都學過，什么都懂，因此，當你在設計過程中需要用一些不曾學過的東西時，就要去有針對性地查找資料，然后加以吸收利用，以提高自己的應用 能力，而且還能增長自己見識，補充最新的專業(yè)知識。 實踐能力得到了進一步提高，在調試過程中積累了一些經驗。 畢業(yè)設計對以前學過的理論知識起到了回顧作用，并對其加以進一步的消化和鞏固。 畢業(yè)設計培養(yǎng)了嚴肅認真和實事求是的科學態(tài)度。而且培養(yǎng)了吃苦耐勞的精神以及相對應的工程意識，同學之間的友誼互助也充分的在畢業(yè)設計當中體現出來了。 淮陰師范學院畢業(yè)論文（設計） 43 致 謝 在這里，我要感謝我的導師 教授，他對我們嚴格要求，無論是在理論還是實踐上都給我們很好的指導， 他認真 負責的工作態(tài)度和深厚的理論水平 更使我收益 匪淺。 在此我深表謝意！ 我還要感謝 和我的同組的 同學，他和我團結協(xié)作，配合默契，對我完成畢業(yè)設計起到了不可替代的作用 。 另外，我還要真誠的感謝給予我?guī)椭凸膭畹乃型瑢W，謝謝你們！