【正文】 tmp = Mid(B, m, 1) If tmp = 1 Then result = result + 2 ^ (k m 4) Next m = result P = result = 0End SelectEnd SubPrivate Sub Timer1_Timer()Dim y As CurrencyDim number As VariantDim outbyte(4) As ByteDim i As Integer = For i = 0 To 4outbyte(i) = Val(amp。H amp。 Mid(, i * 3 + 1, 3))Next i = outbyte = 0 39。畫圖程序If col 12 ThenFor i = col To col x = 10 * i y = P px(i) = x 39。 當前點坐標 py(i) = y Next i col = col + 1 pl = pl + 1 39。以上調(diào)試合格 ElseIf col 49 Then 39。12col24 For i = col To col py(col) = P Next i For t = 0 To col px(t) = 110 10 * (col t) Next t col = col + 1 Else For t = 0 To 48 py(t) = py(t + 1) px(t) = 120 10 * (col t) Next t py(48) = P End IfIf pl = 2 Then (px(0), py(0)) For i = 1 To col (px(i 1), py(i 1)), QBColor(2) Next iEnd IfEnd SubPrivate Sub CmdAdd_Click() 39。添加記錄 For i = 0 To 2 Text4(i).Enabled = True Text4(i).Text = Next i Text4(0).SetFocus = False = False = False = TrueEnd SubPrivate Sub CmdModify_Click() 39。修改記錄 If 0 Then For i = 0 To 2 Text4(i).Enabled = True Next i = True = False = False = False Else MsgBox (沒有要修改的數(shù)據(jù)!) End IfEnd SubPrivate Sub CmdDelete_Click() 39。刪除記錄 Dim myval As String myval = MsgBox(是否要刪除該記錄？, vbYesNo) If myval = vbYes Then If = True Then For i = 0 To 2 Text4(i).Enabled = False Next i End IfEnd SubPrivate Sub CmdSave_Click() If Text4(0).Text = Then MsgBox 編號不允許為空！ Exit Sub End If If Text4(1).Text = Then MsgBox 時間不允許為空！ Exit Sub End If If Text4(2).Text = Then MsgBox 溫度不允許為空！ Exit Sub End If 39。更新記錄 39。設(shè)置控件不可用 For i = 0 To 2 Text1(i).Enabled = False Next i = False = True = True = TrueEnd SubPrivate Sub CmdExit_Click() Unload MeEnd SubPrivate Sub Timer2_Timer()Text4(0).Text = 01Text4(1).Text = NowText4(2).Text = P = False = False = False = TrueEnd Sub結(jié) 論本系統(tǒng)在設(shè)計上具有結(jié)構(gòu)清晰、便于實現(xiàn)的特點，另外由于設(shè)計思想的先進性和采用的核心技術(shù)及硬件的先進性，該系統(tǒng)具備了無線性、多參數(shù)性、數(shù)據(jù)準確性和易用性等特點，因此是一種行之有效的高壓開關(guān)柜母線溫度在線監(jiān)測的方法，該方案通用性好,自動化水平高，還可以方便地移植到其他測溫場合。本人在導(dǎo)師的細心指導(dǎo)下，認真的完成了這個設(shè)計。同時鞏固了以前所學知識，并且將其運用到本次的設(shè)計中。通過本次設(shè)計，我掌握了許多單片機應(yīng)用和VB編程知識，使我更意識到學習是永無止境的，知識就是力量。參考文獻[1] 沙占友等. 智能化集成溫度傳感器原理與應(yīng)用. 北京：機械工業(yè)出版2002[2] 馬忠梅等. 單片機的C語言應(yīng)用程序設(shè)計. 北京：北京航空航天大學工業(yè)出版社，2001[3] 趙亮 侯國銳 單片機C語言編程與實例. 北京：人民郵電出版社，2003[4] 周立公 LPC900系列Flash單片機應(yīng)用技術(shù)（上冊）. 北京：北京航空航天大學工業(yè)出版社，2005[5] 費萬民 呂征宇 耿福江等 高壓開關(guān)觸點和母線溫度在線檢測與監(jiān)視系統(tǒng) 電力系統(tǒng)自動化 2004 .28（3）[6] 李泰軍 肖成鋼 王章啟 開關(guān)柜母線溫度的在線監(jiān)側(cè) 高壓電器 2001. 37（3）[7] 楊占軍 楊英杰 基于無線傳輸技術(shù)的多路溫度數(shù)據(jù)采集系統(tǒng)設(shè)計 東北電力學院學報 2005. 25（1）[8] 張肅文，陸兆熊. 高頻電子線路. 高等教育出版社 1997[9] 徐文進，張阿卜 智能溫度傳感器DS18b20在多路測溫中的應(yīng)用 現(xiàn)代電子技術(shù) 2004 .189（22）[10] 武興建 吳金宏 無線收發(fā)數(shù)傳MODEM模塊PTR2000的原理與應(yīng)用 國外電子元器件 [11] 陳勇 黃石紅 液晶顯示模塊與單片機接口技術(shù) 南京林業(yè)大學學報 2002 .26（5）[12] 王偉 數(shù)據(jù)采集與無線收發(fā)模塊的設(shè)計 現(xiàn)代電子技術(shù) 2003 .160（17）[13] 朱衛(wèi)華 黃智偉 基于無線數(shù)字溫度傳感器的多點溫度測量系統(tǒng)設(shè)計 2003. 16（6）[14] 李業(yè)德 唐詩 單片機和DS18b20組成的多點溫度測控系統(tǒng) 山東工程學院學報 2001 15（4）[15] Hiroshi Performance Modeling for Layered Communication Protocol..IEEE INFOCOM，1990，[16] John Omunge and Robert Simple Adaptive Data Link Protocal for Performance Enhancement on Network with Variable Quality Links，IEEE Pacific Rim Conference on Computer Commumication and Signal Processing，1990，2[17] Charles and Result of telemunications Deregulation Communications Magazine. 1999. vol. 37 [18] Pravin Bhagwat. Bluetooth, Technology for ShortRange Wireless Applications. IEEE INTERNET COMPUTING, MAYJUNE 2001, 致 謝本文的立項和調(diào)研、設(shè)計階段都得到了田老師的大力支持和悉心指導(dǎo)，多次過問進展情況并提供諸多幫助，同時在論文修改階段田老師給予非常有責任心的關(guān)心和指導(dǎo)，多次給出修改意見，使文章能不斷提高質(zhì)量。田老師嚴謹務(wù)實的治學態(tài)度令本人受益匪淺，田老師的設(shè)計思想也滲透在本文各章節(jié)中，再次對田老師一貫的認真教導(dǎo)和悉心幫助表示感謝! 37