【正文】 致 謝在這里，我要感謝我的導(dǎo)師 教授，他對我們嚴格要求，無論是在理論還是實踐上都給我們很好的指導(dǎo)，他認真負責的工作態(tài)度和深厚的理論水平更使我收益匪淺。實踐能力得到了進一步提高，在調(diào)試過程中積累了一些經(jīng)驗。這些在我們在將來的工作和學習當中都會有很大的幫助。我還體會到了所學理論知識的重要性：知識掌握得越多，設(shè)計得就更全面、更順利、更好。Private Sub Sort_Click() 39。在設(shè)置Common Dialog的屬性時，我們把Cancel Erron設(shè)置為Ture，這個作用是當用戶點擊“取消”按鈕時，發(fā)出錯誤信息。 為了不遺忘保存數(shù)據(jù)，我們在系統(tǒng)設(shè)置了一個全局的邏輯型變量用作文件被修改標志，該邏輯變量在標準模塊中定義如下：Public Change As Boolean有了這個變量，一旦成績被修改，就`將其設(shè)置為Ture，保存過后將其設(shè)置為False。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。 FnameEnd SubPrivate Sub SavAs_Click() Dim A As String, I As Integer, J As Integer = *.sco(比賽成績文件)|*.sco = 6 39。保存文件 If Fname Then On Error Resume Next Open Fname For Output As 1 If Err 0 Then 39。行數(shù)加一I = K + 2 39。該行各格文字居中中間對齊 Next K (J * ) = CStr(J) amp。而行的擴展是在選手姓名編輯過程中就完成了。發(fā)送完畢，關(guān)閉定時器2，退出 End If = “000” amp。 點擊“開始打分”按鈕，啟動定時器2(Timer2), 定時器2的時間常數(shù)是200毫秒，（T命令），發(fā)完自動禁止定時器。退出，放棄本次收到的數(shù)據(jù)End IfN = Val(Left(Buf, 4)) S = Val(Right(Buf, L 4)) Text1(N 1).Text = S L = Val() (L * + N + 1) = S Sum = 0 For I = 0 To 7 Sum = Sum + Val(Text1(I).Text) Next IIf Then Sum = Sum / Val() If Sum = 1 Then = CStr(Sum) Else = 0 amp。除最后一個字符外，循環(huán)求前面各個字符的累加和 N = N + Val(Mid(Buf, I, 1))Next IN = N Mod 16 39。下面是Timer1_Timer事件過程的原代碼：Private Sub Timer1_Timer()Dim L As Integer, N As Integer, S As Single, Sum As Single, I As Integer = False 39。由于打分終端發(fā)送每個數(shù)據(jù)的字符個數(shù)不等，為了能夠保證完整接收數(shù)據(jù)，在 MSComm1_OnComm 事件過程中沒有立刻接收數(shù)據(jù)，而是啟動了一個定時器 ，這時在定時器的Timer1_Timer事件過程中接收數(shù)據(jù)，因為傳輸率為9600bps,，所以10個字符傳輸?shù)臅r間最多為11毫秒。在上面的程序里我門還能選擇裁判人數(shù)，同時實現(xiàn)把沒有被選擇的裁判所在的格子變成灰色。灰色 (I).Visible = False Next I For I = 0 To N 1 39。在本系統(tǒng)里計算選手最后得分要根據(jù)評分規(guī)則和評委人數(shù)，可以求總分或著求均分，其默認為求總分。Private Sub Command1_Click() 39。并且在該窗口中可以記錄保存選手的成績或者調(diào)出以往選手的成績。本課題中打分終端數(shù)量少，所以不能去掉最高分和最低分，采用求總分或求均分的方法。（5）　顯示終端本應(yīng)使用單片機控制大型LED數(shù)碼管顯示總得分，因條件限制，只使用4個小LED數(shù)碼管作顯示終端。四個LED數(shù)碼管采用動態(tài)掃描方式。4．2 打分終端設(shè)計打分終端是一個單片機系統(tǒng)，包括顯示器，鍵盤、RS485接口等部件。多串口卡大屏幕這種方式軟件設(shè)計簡單，通信距離遠（數(shù)十米），但連線多，另外，且主機需要有多串口卡。這種方式軟件和硬件設(shè)計簡單，但連線多，另外，通信距離有限（數(shù)米內(nèi)）。所以，設(shè)計本系統(tǒng)首先要確定各個終端與計算機的通信問題。什么是可視化的編程方法呢？采用這種編程方法，可以不必通過代碼來描述界面上元素的外形和位置，只需要把事先建立的對象拖到屏幕上，再通過鼠標的調(diào)節(jié)他們的位置和尺寸。在這些API中還包含了成千上萬的函數(shù)，例如，類型和常量定義，通過在visual basic程序中聲明外部過程，能夠訪問并使用這些Windows API及其它外部DL