【正文】 End If End If PreValue = ValueStr NowX = NowX + 1 39。由上一次的位置畫至此點 39。設(shè)定起點 Else 39。清空上一次數(shù)據(jù) = Format(ValueStr, ) amp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。以下設(shè)定繪圖范圍，(Xmin,YMax)(XMax,YMin) (0, 50)(MaxPlotNo, 0) = 2 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。單擊【開始檢測】按鈕后激活此事件39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。, vbCritical + vbOKOnly, 系統(tǒng)信息End Sub39。打開通信端口 = False 39。Private Sub cmdOpenCOM_Click() 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。激活【開始檢測】按鈕39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。單擊【結(jié)束】按鈕后激活此事件39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。關(guān)閉通信端口 End If = 已停止檢測并關(guān)閉通訊端口 = True 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。當選擇通信端口的Combo控件被選中后激活此事件39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。前一個測量值39。 dot3flag=~dot3flag。 }//數(shù)據(jù)接收void RX(void){ SetRxMode()。i++) { TxRxBuf[i]=SpiRead()。 // Spi enable for write a spi mand nrf905_Delay(1)。// TRX_CE=0。 return 1。 TRX_CE=1。 // Set TRX_CE low}//設(shè)置發(fā)送初始狀態(tài)void SetTxMode(void){ TRX_CE=0。 // Spi disable TRX_CE=1。 // Write address mand for (i=0。 // Write 32 bytes Tx data } CSN=1。 SpiWrite(WTP)。 } CSN=1。 // Spi enable for write a spi mand //SpiWrite(WC)。 // nRF905 power on TRX_CE=0。 // Spi clock line init low DR=1。 DATA_BUF=DATA_BUF1。i8。 } return DATA_BUF。 if (MISO) //讀取最高位，保存至最末尾，通過左移位完成整個字節(jié) { DATA_BUF|=BYTE_BIT0。 for (j=0。 while(n) for(i=0。sbit DR=P1^3。sbit MOSI=P1^5。*//* 主機NRF接口定義*///NRF905工作模式控制端口sbit TXEN=P3^3。sbit CSN=P1^4。sbit PWR=P3^0。code TxAddress[4]={0xcc,0xcc,0xcc,0xcc}。BYTE_BIT7) != 0)define DATA0 ((DATA_BUFamp。 case 2: break。dot2flag=1。 temp=ReadTemperature()*。 }}/* 溫度檢測模塊*/void Temperature_work(){ uchar i。 } if(esw0){wsta=0。 wsta=2。} case 2:{RX()。 d2=TxRxBuf[0]/100。 d1=TxRxBuf[0]%100/10。 // 發(fā)送命令數(shù)據(jù) if(secflag) {secflag=0。 d0=TxRxBuf[0]%100%10。 if(esw0){wsta=1。} break。} break。} break。 KeyScan()。 while(1) { while(!TF0)。 dot=0。 default: break。 } if(esw0){wsta=0。 SendByte(d1+48)。 d0=14。*/ d3=TxRxBuf[0]。 /*d3=(TxRxBuf[0]%100)/10。 wsta=1。} break。 d1=TxRxBuf[0]%100/10。 break。 d0=TxRxBuf[0]%100%10。 } if(esw0){wsta=2。 TxRxBuf[0]++。} case 1:{SetTxMode()。 d2=TxRxBuf[0]/100。 } }}/* 數(shù)據(jù)收發(fā)測試模塊*/void TRtest_work(){ switch(wsta) { case 0:{ if(f500flag) d3=d2=d1=d0=12。 if(esw3){msta=0。//測溫模塊 if(esw3){msta=2。 //測試模塊 if(esw3){msta=1。 TH0=0xdc。 nRF905Init()。 // 溫度檢測模塊/* 主函數(shù)*/void main(){ //uchar i。7 參考文獻[1] , 基于NRF905的無線多點溫度測量系統(tǒng)[A].[2],[3]童詩白，華成英 ，高等教育出版社. [4] 崔政委,汪焰恩,魏生民,董芊里, 基于單片機和nRF905SE的無線射頻收發(fā)模塊的系統(tǒng)設(shè)計[A].[5]朱建林，上位機與下位機通信的設(shè)計初步[J].可編程控制器與工廠自動化，[6]邱李華，計算機程序設(shè)計基礎(chǔ) Visual Basic版[M].北京：機械工業(yè)出版社，2005：169～186致謝感謝此次設(shè)計中，給予我?guī)椭椭笇У睦蠋熀屯瑢W。系統(tǒng)設(shè)計的難點在于軟件部分，由于對溫度的讀取，無線收發(fā)模塊的操作都需要較長的時間，一般都在幾百毫秒以上，系統(tǒng)又采用數(shù)碼管動態(tài)顯示，對時間要求比較高，需采用定時器中斷解決時間上的沖突。 測試結(jié)果在室內(nèi)，將從機置于與主機30米左右位置處，上電后通過按鍵將從機調(diào)整到發(fā)射接收測試模塊，同時將主機也調(diào)整到發(fā)射接收測試模塊，可以觀測到主從機能夠準確的通過NRF905無線模塊進行數(shù)據(jù)間的交換；再將主從機調(diào)整到測溫模塊，從機能夠有效的對溫度進行有效的采集，并通過數(shù)碼管顯示出來，之后通過NRF905無線模塊將溫度信息發(fā)射出去；主機能夠通過NRF905無線模塊正確接收從機發(fā)來的溫度信息并在數(shù)碼管上顯示出來；主機通過串口將溫度信息傳送給PC機，并通過上位機顯示出來。本系統(tǒng)通過MSComm控件，開發(fā)出了一個比較簡單的可以實時顯示溫度并繪制其曲線的上位機程序。Input 從接收緩沖區(qū)返回和刪除字符。屬性設(shè)置：CommPort 設(shè)置并返回通訊端口號。它源自于BASIC編程語言。按照RS232通信要求，分別設(shè)置上下位機的數(shù)據(jù)收發(fā)波特率，數(shù)據(jù)位數(shù)等信息。功耗非常低，以10dBm的輸出功率發(fā)射時電流只有11mA。例如＋125℃的數(shù)字輸出為07D0H（正溫度直接把16進制數(shù)轉(zhuǎn)成10進制即得到溫度值）55℃的數(shù)字輸出為FC90H。DS18B20內(nèi)部結(jié)構(gòu)主要由四部分組成：64位光刻ROM、溫度傳感器、非揮發(fā)的溫度報警觸發(fā)器TH和TL、配置寄存器。其中LM7805給單片機最小系統(tǒng)、顯示電路等提供+5V電源；+。由于本系統(tǒng)主機與PC機距離比較近，采用RS232標準即可滿足要求。RS485采用平衡發(fā)送和差分接收，抗噪聲干擾性好，具有抑制共模干擾的能力[3]。如采用150pF/m的通信電纜時，最大通信距離為15m；若每米電纜的電容量減小，通信距離可以增加。數(shù)碼管具有：低能耗、低壓、高頻特性好，單色性好，亮度高，顯示穩(wěn)定，使用壽命長，成本低，便于廣泛使用。基于以上分析擬訂采用方案一。這樣一條總線上可以掛多個DS18B20，大大節(jié)省了資源，因而使系統(tǒng)結(jié)構(gòu)更趨簡單。