【正文】 STC89C51 單片機作為溫控器，選用 DS18B20 數(shù)字溫度傳感器，單片機與上位機之間通過MAX232 串口進(jìn)行通信，對測試點溫度采集，實時顯示，數(shù)據(jù)處理。 ：：研究基于單片機的低功耗溫度記錄儀，可以以一定的時間間隔連續(xù)記錄系統(tǒng)溫度，并提供通訊接口將溫度數(shù)據(jù)上傳到 PC 機。 PC 機提供的 COMCom2 是采用 RS232 借口標(biāo)準(zhǔn)的。 系統(tǒng)軟件設(shè)計方案：9 / 40①單片機軟件設(shè)計單片機程序由主程序和中斷子程序組成的。 Vss（20 腳）：接低電平。作輸入口時，應(yīng)先軟件置“ 1” 。作輸入口時，應(yīng)先軟件置“ 1” 。 RST/Vpd（9 腳）：復(fù)位信號輸入端（高電平有效） 。 PSEN（29 腳）：外部程序存儲器讀選通信號。外部復(fù)位電路是為內(nèi)部復(fù)位電路提供兩個機器周期以上的電平而設(shè)計的。在本系統(tǒng)設(shè)計中，C 取10uf,R 取 10kΩ。10uF。（3） EA接高電平，選用片內(nèi)程序存儲器。 共陰數(shù)碼管碼表? 0x3f , 0x06 , 0x5b , 0x4f , 0x66 , 0x6d ,? 0 1 2 3 4 5? 0x7d , 0x07 , 0x7f , 0x6f , 0x77 , 0x7c ,? 6 7 8 9 A B? 0x39 , 0x5e , 0x79 , 0x71 , 0x00? C D E F 無顯示靜態(tài)顯示方式LED 顯示器工作方式有兩種：靜態(tài)顯示方式和動態(tài)顯示方式。缺點是硬件電路比較復(fù)雜，成本較高。動態(tài)顯示的亮度比靜態(tài)顯示要差一些，所以在選擇限流電阻時應(yīng)略小于靜態(tài)顯示電路中的。這是最簡單的連接方法，但是對我們來說已經(jīng)足夠使用了，電路如下圖所示，MAX232 的第 10 腳和單片機的 11 腳連接，第 9 腳和單片機的 10 腳連接。電源供電電路如圖所示：系統(tǒng)供電電源總體電路圖 單片機與 PC 機串口連接電路：目前RS232是PC機與通信工業(yè)中應(yīng)用最廣泛的一種串行接口。典型的RS232信號在正負(fù)電平之間擺動，在發(fā)送數(shù)據(jù)時，發(fā)送端驅(qū)動器輸出正電平在+5～+15V，負(fù)電平在5～15V電平。RS232是為點對點（即只用一對收、發(fā)設(shè)備）通訊而設(shè)計的，其驅(qū)動器負(fù)載為3～7k217。 在進(jìn)行異步通信時，數(shù)據(jù)的發(fā)送和接收分別在各自的時鐘（TCLK 和 RCLK）控制下進(jìn)行的，但都必須與字符位數(shù)的波特率保持一致。接收端 RXD 一位位地接收數(shù)據(jù)，直到收到一個完整的字符數(shù)據(jù)后，控制電路進(jìn)行最后一次移位，自動去掉啟始位，使接收中斷標(biāo)志 RI 置“1” ，并向 CPU 申請中斷。VB 是極有和功能強大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護(hù)的生成代碼。（2）采用簡單易學(xué)的 Basic 語言。（4）易于擴充。（6）提供了多種向?qū)?。這一部分硬件調(diào)試主要分成兩大塊：上電前的調(diào)試和上電后的調(diào)試。電阻的測量，用萬用表的歐姆檔測量。通過萬用表的檢測,沒有發(fā)現(xiàn)短路和斷路的地方了，電路基本正常后再進(jìn)行下一步調(diào)試。由于 DS18B20 與單片機采用串行數(shù)據(jù)傳送，因此，對DS18B20 進(jìn)行讀/寫編程時必須嚴(yán)格地保證讀/寫時序，否則將無法讀取測量結(jié)果。利用C語言編制,運行程序該系統(tǒng)的主要特點是: 1)適用性強，利用VB友好的人機界面，用戶只需對界面參數(shù)進(jìn)行設(shè)置并啟動系統(tǒng)正常運行便可實現(xiàn)對溫度的測量、記錄與數(shù)據(jù)處理。最后由于時間緊迫，本設(shè)計還有諸多地方需要改進(jìn)，比如改用RS485串行接口或是網(wǎng)線，實現(xiàn)遠(yuǎn)距離操作。最大的收獲是心智的成熟，一千多個日子里曾悲傷過、失落過、苦惱過，委屈過。//溫度正負(fù)標(biāo)志sbit DQ=P3^7。 //共陰 led 段碼表0x40 負(fù)unsigned char dispbitcode[]={0xfe,0xfd,0xfb,0xf7, }。dispbuf[0]=a0。for(i=0。 P2=dispbitcode[i]。i125。 // 精確延時 大于 480usDQ = 1。Delay(4)。 i++。 i++。}//讀一個比特unsigned char tmrbyte (void) { unsigned char i,j,dat。i++) {j = tmrbit ()。unsigned char j。j++) {testb = dat amp。 // 先拉低 i++。 }else {// Write 0DQ = 0。 i++。 dmsec (1)。tmpre ()。 // 轉(zhuǎn)換temp_data[0] = tmrbyte ()。temp_data[0]=~temp_data[0]+1。 uchar lsb,msb。 // 初始化 ds18b2033 / 40 while(1){tmstart()。0x0f。0x0f)4)。dispbuf[1]=dispbuf[1]%10。i0。}。}} //負(fù)溫小于55 度時顯示為}} }35 / 40附錄 3PC 機程序：Dim n As IntegerDim t As Integer ‘定義全局變量Private Sub Command1_Click() ‘單擊溫度設(shè)置按鈕程序Dim i As Integer If Len(Trim()) 3 Or Val() 100 Or Val() 0 Or Left(Right(, 2), 1) . Then = 設(shè)定輸入錯誤，不發(fā)送 Else = Select Case Len(Trim()) Case 5 = Trim() Case 4 = 0 amp。9600 波特，無校驗， 8 位數(shù)據(jù)位，1 位停止位 = InputModeText 39。打開串口 Else = False = B37 / 40 = B = 開通信端口 = True = False = 采集數(shù)據(jù) = False = False = False End IfEnd SubPrivate Sub Command7_Click() ‘單擊按鈕保存溫度數(shù)據(jù) = 2Open For Append As 1 Write 1, Now Write 1, Close 1End SubPrivate Sub Form_Load() COM1 COM2 COM3 COM4End SubPrivate Sub MSComm1_OnComm() ‘串口接收到數(shù)據(jù)時讀出數(shù)據(jù) Select Case Case EvReceive = amp。 Chr$(6) amp。 = Time$n = n + 1End IfIf n = 100 Then n = 0 = End IfEnd SubPrivate Sub Text5_Change() ‘改變讀數(shù)據(jù)的時間 = Val() * 1000End SubPrivate Sub Timer1_Timer() ‘采集數(shù)據(jù)后進(jìn)行繪圖 = ADim a As SingleDim a1 As StringDim a2 As StringDim a3 As StringDim k As IntegerStatic b(200) As Integer = Time For k = 1 To 199 b(k) = b(k + 1) Next k b(200) = Val()With MSChart1For i = 1 To 200a = Val(Mid(, 1, 2)) * 3600 + Val(Mid(, 4, 2)) * 60 + Val(Mid(, 39 / 407, 2)) 200 * Val() + i * Val() + 1If a 0 Thena = a + 86400ElseIf a 86400 Thena = a 86400End IfIf a \ 3600 10 Thena1 = 0 amp。 :