【正文】 程序退出關(guān)閉設(shè)備EndEnd Sub。退出窗體 OK!With MSComm1 If .PortOpen = True Then 39。圖片的高 ，寬. w = / = QBColor(1) = 1 = QBColor(15) For i = 1 To num 1 X1 = x0 + (i 1) * w Y1 = y0 datatemp(i 1) * h X2 = x0 + i * w Y2 = y0 datatemp(i) * h (X1, Y1)(X2, Y2), vbBlack Next iEnd Sub 39。 vbCrLf = Mid(ss, 2, 2) + . + Right(ss, 1) datatemp(num) = Val(ss) num = num + 1 Call cal Call draw Case ElseEnd Select Call draw = 1 39。 buffer = CStr(MyDate) + + CStr(Time) + + Mid(ss, 2, 2) + . + Right(ss, 1) + 度 = amp。保存到字節(jié)數(shù)據(jù)類型數(shù)組 Inbyte = rvar For i = 0 To n 1 buffer = Hex(Inbyte(i)) ss = ss + buffer Next i buffer = MyDate = Date 39。關(guān)閉 OnComm 事件 n = 39。判斷 MSComm1 通訊事件 Case EvReceive 39。改變錯誤處理的方式。清除接收緩沖區(qū) .RThreshold = 1 39。顯示接收計數(shù) = = = = = w = 4基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計46num = 0With MSComm1 .CommPort = 1 .Settings = 19200,N,8,1 .InputMode = 1 39。串口打開/關(guān)閉顯示 = True 39。程序退出關(guān)閉設(shè)備 EndEnd SubPrivate Sub Command3_Click() = False With MSComm1 If .PortOpen = True Then = vbWhite .PortOpen = False End If End WithEnd SubPrivate Sub Comres_Click() 39。退出With MSComm1 = False If .PortOpen = True Then 39。打開通信口 .DTREnable = True .RTSEnable = True = vbGreen If Err Then 39。打開串口 Dim rstr As String Dim n As Integer With MSComm1 = True If .PortOpen = False Then 39。i++)基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計43 Send_PC(TxRxBuffer[i])。 //等待接收完成 for(i=0。Ini_System()。Send_PC(0xAA)。LED1=1。LED1=0。}// void main(void){ uint i。// TXEN=0。 PWR=1。i++){ SpiWrite(RFConf[i])。 for(i=0。基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計42 _nop_()。 TRX_CE=0。 SCK=0。 lcdbit=1。 Delay(10000)。 } }}//初始化配置寄存器void Ini_System(void){ uchar i。LED2=1。 LED2=0。 RxPacket()。 //若數(shù)據(jù)準(zhǔn)備好則進(jìn)入待機(jī)模式，操作 SPI CSN=0。 TRX_CE=1。}}//等待接收數(shù)據(jù)包uchar temp。j115。 }}//void DelayMs(uint n) //j=115F={ uchar j。 while(DR) { TxRxBuffer[i] = SpiRead()。}//接收數(shù)據(jù)包void RxPacket(void){ uchar i。 } SCK=0。 _nop_()。 ddata|=MISO。 _nop_()。 while (i) { ddata=1 。}//由 nRF905 讀數(shù)據(jù)uchar SpiRead(void){ uchar i=8。 SCK=0。 SCK=1。 b=1 。 MOSI=(bit)(bamp。 while (i) { Delay(10)。i++){ _nop_()。 for(i=0。bit lcdbit。} ////RF 寄存器配置//unsigned char idata RFConf[11]={ 0x00, //配置命令 0x6C, //CH_NO,配置頻段在 0x0C, //輸出功率為 10db,不重發(fā)，節(jié)電為正常模式 0x44, //地址寬度設(shè)置，為 4 字節(jié) 0x04,0x04, //接收發(fā)送有效數(shù)據(jù)長度為 4 字節(jié) 0xE7,0xE7,0xE7,0xE7,//接收地址 0xDE, //CRC 允許，16 位 CRC 校驗 ，外部時鐘信號使能，16M晶振}。 while(TI==0)。LED2=1。 TR1=1。 PCON=0x80。 TH1=0xfd。sbit LED2 = P3^5。sbit DR = P3^2。//狀態(tài)輸出口//sbit CD = P1^4。sbit SCK = P3^7。//SPI 口定義//sbit MISO = P1^1。sbit TRX_CE = P1^6。typedef unsigned int uint。 DelayMs(2022)。while(1){ Do_Temp()。LED2=1。LED2=0。LED1=1。LED1=0。 Delay(1000)。 } CSN=1。i11。 CSN=0。 TXEN=0。 PWR=1。 CSN=1。 LED1=1。LED1=0。 //等待發(fā)送完成 TRX_CE=0。 TRX_CE=1。基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計35 _nop_()。 //個位SpiWrite(dis_buf[3])。 //四字節(jié)數(shù)據(jù)，符號位或百位 SpiWrite(dis_buf[1])。 SpiWrite(0x20)。_nop_()。 CSN=1。 SpiWrite(0xE7)。 //寫發(fā)送地址,后面跟 4 字節(jié)地址// SpiWrite(0xE7)。 CSN=0。 } SCK=0。 Delay(10)。 Delay(10)。0x80)。 SCK=0。 }}//用 SPI 口寫數(shù)據(jù)至 NRF905void SpiWrite(uchar b){ uchar i=8。ix。 } }//延時void Delay(uint x){ uint i。 dis_buf[1]=(tx%100)/10。//小數(shù)部分 tx=tx=4。 } else { dis_buf[3]=(txamp。 dis_buf[1]=tx/10。//小數(shù)部分基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計33 tx=tx=4。 dis_buf[3]=(txamp。 tx=Read_Temp()。 //Start Conversion return 。 write_byte(0xCC)。 [0]=read_byte()。 // Skip ROM write_byte(0xBE)。 reset()。 uint tx。 } delayUs(5)。 DQ = 1。0x01。 i) { DQ = 0。 for (i=8。 } return(value)。 //延時 15us if(DQ)value|=0x80。 DQ = 1。i) { value=1。 for (i=8。 //yes=0 有芯片，} //uchar read_byte(void)//從單總線上讀一個字節(jié){ uchar i。 delayUs(25)。 delayUs(3)。 delayUs(29)。}//uchar reset(void)//DS18B20 復(fù)位{ uchar yes。us0。j++)。 while(n) {for(j=0。uchar dis_buf[4]。sbit DQ =P2^7。 sbit LED1 = P3^4。 sbit DR = P3^0。sbit CSN = P3^1。sbit MOSI = P3^2。sbit PWR = P1^6。 //配置口定義//sbit TXEN = P1^5。單片機(jī)的 C 語言應(yīng)用程序設(shè)計 北京：北京航空航天大學(xué)出版社，1999【2】唐繼堯 51 單片機(jī)工程應(yīng)用實例 北京：北京航空航天大學(xué)出版社，2022【3】張友德 單片微型機(jī)原理、應(yīng)用與實驗 上海：復(fù)旦大學(xué)出版社 2022【4】譚浩強(qiáng) C 語言程序設(shè)計 北京：清華大學(xué)出版社 1999【5】AT89C52 datasheet ，可在中國電子資源網(wǎng)、集成電路資料下載【6】Dallas 【7】Nordic 【8】李江全 Visual Basic 串口通信與測控應(yīng)用技術(shù)實戰(zhàn)詳解 北京：人民郵電出版社 2022【9】求是科技 Visual C++、Visual Basic 串并口開發(fā)技術(shù)工程應(yīng)用實例導(dǎo)航 北京：人民郵電出版社 2022【10】康華光 電子技術(shù)基礎(chǔ)模擬部分（第五版）北京：高等教育出版社 2022【11】康華光 電子技術(shù)基礎(chǔ)數(shù)字部分（第五版）北京：高等教育出版社 2022【12】馬云峰 單片機(jī)與數(shù)字溫度傳感器 DS18B20 的接口設(shè)計 (4) 【13】劉海萍 基于 DS18B20 的溫度采集系統(tǒng)設(shè)計 科教可沿 2022 年第 11 期基于 nRF905 的無線溫度采集系統(tǒng)的設(shè)計29附錄附錄 1 系統(tǒng)發(fā)送程序include