【正文】 。39。 初始化表格 Call ScaleSys 39。 填充停止?fàn)顟B(tài) = False 39。如果串口已經(jīng)打開，則提示 MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) Case Else MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 溫度采集系統(tǒng) End Select = amp。HFFamp。 打開串口 = True 39。 ,n,8,2 39。Sub setCom()On Error GoTo err: = Val(Mid(, 4, 1)) 39。39。 關(guān)閉串口 Unload Me 39。 卸載窗體39。 發(fā)送開始標(biāo)志 End Sub39。程序中儀表號（即地址代號）要與儀表設(shè)定值一致，否則不能返回?cái)?shù)據(jù)。每隔 x ms向儀表發(fā)送讀數(shù)據(jù)命令串39。 定時(shí)發(fā)送采集標(biāo)志39。置在第一頁 = 1 End Sub39。 Rows 的值必須至少比 FixedRows 的值大一 (0) = 650 39。Public Sub tabinit() = 2 39。39。Private Sub renew() If num = 0 Then Exit Sub = : = = : = Call ScaleSys For i = 0 To num 1 datatemp(i) = 0 Next i num = 0 counter = 0 Call tabinit 39。39。 設(shè)置線寬 = vbSolid For i = 1 To num 1 X1 = (i 1): Y1 = datatemp(i 1) X2 = i: Y2 = datatemp(i) (X1, Y1)(X2, Y2), QBColor(0) 39。39。39。 39。39。 調(diào)用計(jì)算極值、平均值子程序 Call draw 39。 控制滾動(dòng)條的滾動(dòng) TempText = Format$(datatemp(num), ) 39。顯示測量溫度值 If counter = num + 1 Then 39。 amp。 Trim(Mid(buffer, 1, 2)) Else datatemp2a = Mid(buffer, 1, 2) End If If Len(Trim(Mid(buffer, 4, 2))) = 1 Then datatemp2b = Str(0) amp。保存數(shù)據(jù) Data_save (datatemp(num)) 39。 Mid(buffer, 3, 3) amp。 Mid(buffer, 1, 2)) * Else datatemp(num) = Val(amp。 Mid(buffer, 3, 3) amp。獲取十進(jìn)制測量數(shù)據(jù) If Len(Trim(Mid(buffer, 1, 2))) = 1 Then datatemp(num) = Val(amp。 基數(shù)器加1 For i = LBound(Inbyte) To UBound(Inbyte) 39。 接收溫度數(shù)據(jù) If count 2 Then Exit Sub 39。讀取儀表返回?cái)?shù)據(jù)串 Select Case Case EvReceive count = 39。H80FFamp。 接收個(gè)數(shù)判斷 = False 39。 十六進(jìn)制溫度數(shù)據(jù) Dim count As Integer 39。 溫度數(shù)據(jù)緩沖 Dim datatemp2a, datatemp2b As String 39。每發(fā)送一次指令，觸發(fā)下面事件，返回?cái)?shù)據(jù)串Private Sub MSComm1_OnComm() Dim Inbyte() As Byte 39。39。39。 打開串口 mark = True = False Exit Suberr: Select Case Case PortAlreadyOpen 39。 調(diào)用表格初始化子程序 Call ScaleSys 39。 發(fā)送1個(gè)字符觸法OnComm 事件 = 9600,n,8,2 39。 二進(jìn)制輸入模式 = 1 39。Private Sub Form_Load()On Error GoTo err: = 1 39。39。串口初始化39。HFFamp。 停止采集 If mark = True Then If = True Then = False mark = False = False = 繼續(xù)采集 = amp。 停止溫度采集39。 重新開始End Sub39。H808080 39。Sub setAcquiescence() = 200 39。39。 mark = True Call renew 39。 設(shè)置間隔采樣時(shí)間 = 重新采集 = True = 停止采集 = amp。 設(shè)置串口 Call tabinit 39。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。, 49, 溫度采集系統(tǒng) Call setAcquiescence 39。 開始采集 If (Txttimes 200) Or (Txttimes 1) Then 39。 溫度采集39。 暫停標(biāo)志Dim strSql As StringPrivate Sub cmd_Search_Click() strSql = select * from Tbl_wD where 1=1 Set Rs = New = adUseClient strSql, Db, adOpenKeyset, adLockReadOnly If 1 Then MsgBox (數(shù)據(jù)庫中沒有數(shù)據(jù)！) Exit Sub End If Set = Rs End Sub39。 用于存儲(chǔ)采樣值個(gè)數(shù)Dim counter As Integer 39。在顯示、繪圖、報(bào)警等過程中使用Dim datatemp(200) As Single 39。 }}附錄二：上位機(jī)程序：39。s=s+x。s=y。 if(f==1) P3_7=1。while(1) { covert1()。P2=0x00。 }main(){float s。 while(TI==0)。 TR1=1。 PCON=0x00 。 } }void UART_InitBaud(){ SCON=0xD8 。 P0=0xff。i++) //顯示時(shí)間 { P0=tab[shijian[i]]。 for(i=0。 }display() //顯示函數(shù){ unsigned char i。 shijian[6]=y/10。 shijian[3]=x/10。y=t[0]amp。 if(xwendu) f=1。 x+=(t[0]amp。 } else shijian[2]=11。 t[0]++。 t[0]=~t[0]。 if(t[1]0x07) { shijian[19]=10。 pt++。 pt=ReadTemperature()。j) 。k) for (j=125。 for(k=z。unsigned char t[2],*pt。int f=0。unsigned char shijian[]={11,11,11,11,11,13,11,11}。再一次對我的母校表示感謝。王偉老師的一絲不茍的工作作風(fēng)使我終生受益，在此表示真誠地感謝和深深的謝意。此外，整個(gè)設(shè)計(jì)過程中由于指導(dǎo)老師的幫助下，開拓了我的思維，提高了將所學(xué)知識(shí)學(xué)以致用的能力。為以后的工作積累了經(jīng)驗(yàn)，增強(qiáng)了信心。有時(shí)發(fā)現(xiàn)一個(gè)問題的時(shí)候，需要做大量的工作，花大量的時(shí)間才能解決。我們學(xué)習(xí)的知識(shí)是有限的，在以后的工作中我們肯定會(huì)遇到許多未知的領(lǐng)域，這方面的能力便會(huì)使我們受益非淺。在本次設(shè)計(jì)中，我們需要大量的以前沒有學(xué)到過的知識(shí)，于是圖書館和INTERNET成了我們很好的助手。按健復(fù)位電路是最簡單的手動(dòng)復(fù)位，使用比較方便，在程序跑飛時(shí)，以手動(dòng)復(fù)位，這樣就不用在重起單片機(jī)電源，就可以實(shí)現(xiàn)復(fù)位。此外還接有蜂鳴器，當(dāng)DS18B20不能正常工作時(shí)可以達(dá)到報(bào)警的目的。顯示電路采用8個(gè)共陽極的LED顯示，顯示代碼由P0口發(fā)送，當(dāng)使用P0口時(shí)需要接上拉電阻，P2口的邏輯狀態(tài)作位選線信號，達(dá)到分時(shí)選通的目的，當(dāng)相應(yīng)口為高電平時(shí)LED才能顯示相應(yīng)代碼。建立的數(shù)據(jù)庫庫文件和VB中創(chuàng)建的工程文件必須放在放在同一目錄下。串口的波特率，串口號都采用下拉選擇的方式，在使用中可跟據(jù)情況選擇讀串口數(shù)據(jù)的原理是,只要當(dāng)有數(shù)據(jù)向串口發(fā)數(shù)據(jù)來時(shí),計(jì)算機(jī)就會(huì)自動(dòng)將其數(shù)據(jù)寫到一個(gè)