【導(dǎo)讀】為提高溫度測(cè)量效率，降低系統(tǒng)。成本，擴(kuò)展傳輸距離，設(shè)計(jì)出一種新型溫度采集系統(tǒng)。本文介紹了一種基于。利用VB提供MSComm對(duì)上位機(jī)進(jìn)行編程，形成可視化串口傳輸窗口。明，該系統(tǒng)結(jié)構(gòu)簡(jiǎn)單、方便移植，能夠?qū)崿F(xiàn)400m范圍的傳輸。

　　

【正文】 } } 39 //SPI 口寫(xiě)數(shù)據(jù)到 nRF905 void SpiWrite(uchar b) { uchar i=8。 while (i) { Delay(10)。 SCK=0。 MOSI=(bit)(bamp。0x80)。 b=1 。 Delay(10)。 SCK=1。 Delay(10)。 SCK=0。 } SCK=0。 } //由 nRF905 讀數(shù)據(jù) uchar SpiRead(void) { uchar i=8。 uchar ddata=0。 while (i) { ddata=1 。 SCK=0。 _nop_()。_nop_()。 ddata|=MISO。 SCK=1 。 _nop_()。_nop_()。 40 } SCK=0。 return ddata。 } //接收數(shù)據(jù)包 void RxPacket(void) { uchar i。 i=0。 while(DR) { TxRxBuffer[i] = SpiRead()。 i++。 } } // void DelayMs(uint n) //j=115@F= { uchar j。 while(n) {for(j=0。j115。j++)。} } //等待接收數(shù)據(jù)包 uchar temp。 void Wait_Rec_Packet(void) { TXEN=0。 TRX_CE=1。 while(1) { 41 if(DR) { TRX_CE=0。 //若數(shù)據(jù)準(zhǔn)備好則進(jìn)入待機(jī)模式，操作 SPI CSN=0。 SpiWrite(0x24)。 RxPacket()。 CSN=1。 LED2=0。 DelayMs(200)。 LED2=1。 //如果接收的數(shù)據(jù)正確 //} break。 } } } //初始化配置寄存器 void Ini_System(void) { uchar i。 LED1=0。 Delay(10000)。 LED1=1。 lcdbit=1。 CSN=1。 SCK=0。 PWR=1。 TRX_CE=0。//SPI 寫(xiě)入 TXEN=0。 _nop_()。 CSN=0。 42 for(i=0。i11。i++){ SpiWrite(RFConf[i])。 } CSN=1。 PWR=1。 TRX_CE=1。// TXEN=0。 Delay(1000)。 } // void main(void) { uint i。 DelayMs(100)。 LED1=0。 DelayMs(1000)。 LED1=1。 Init_MCU()。 Send_PC(0xAA)。 Send_PC(0xBB)。 Ini_System()。 while(1) { Wait_Rec_Packet()。 //等待接收完成 for(i=0。i4。i++) Send_PC(TxRxBuffer[i])。 } 43 } 附錄 3 上位機(jī)程序 Dim w As Integer Dim datatemp(1000) As Integer Dim num As Integer Private Sub Command1_Click() 39。打開(kāi)串口 Dim rstr As String Dim n As Integer With MSComm1 = True If .PortOpen = False Then 39。判斷通信口是否打開(kāi) .PortOpen = True 39。打開(kāi)通信口 .DTREnable = True .RTSEnable = True = vbGreen If Err Then 39。錯(cuò)誤處理 MsgBox 串口通信無(wú)效 Exit Sub End If End If 44 End With End Sub Private Sub Command2_Click() 39。退出 With MSComm1 = False If .PortOpen = True Then 39。判斷通信口是否打開(kāi) .PortOpen = False End If End With 39。程 序退出關(guān)閉設(shè)備 End End Sub Private Sub Command3_Click() = False With MSComm1 If .PortOpen = True Then = vbWhite .PortOpen = False End If End With End Sub Private Sub Comres_Click() 39。重置各測(cè)量數(shù)據(jù)區(qū)和繪圖區(qū) With MSComm1 If .PortOpen = True Then .PortOpen = False End If If num = 0 Then Exit Sub 45 = : = = : = = : = For i = 0 To num 1 datatemp(i) = 0 Next i num = 0 w = 2 = vbWhite End With End Sub Private Sub Form_Load() = 7305 = 9480 = vbWhite 39。串口打開(kāi) /關(guān)閉顯示 = True 39。接收計(jì)數(shù)器 = 39。顯示接收計(jì)數(shù) = = = = = w = 4 num = 0 With MSComm1 .CommPort = 1 .Settings = 19200,N,8,1 46 .InputMode = 1 39。設(shè)置接收數(shù)據(jù)模式為二進(jìn)制形式 .InBufferSize = 4096 .InBufferCount = 0 39。清除接收緩沖區(qū) .RThreshold = 1 39。接收一個(gè)字節(jié)產(chǎn)生 OnComm 事件 On Error Resume Next 39。改變錯(cuò)誤處理的方式。 End With End Sub Private Sub MSComm1_OnComm() Dim Inbyte() As Byte Dim ss As String Dim buffer As String Dim n As Integer Dim MyDate Dim datatemp2a, datatemp2b As String Dim datatemp2 As String w = w + 1 = CStr(w) Select Case 39。判斷 MSComm1 通訊事件 Case EvReceive 39。收到 Rthreshold 個(gè)字節(jié)產(chǎn)生的接收事件 = 0 39。關(guān) 閉 OnComm 事件 n = 39。輸入緩沖區(qū)中的數(shù)據(jù)個(gè)數(shù) ReDim Inbyte(n) rvar = Inbyte = n 47 rvar = 39。保存到字節(jié)數(shù)據(jù)類(lèi)型數(shù)組 Inbyte = rvar For i = 0 To n 1 buffer = Hex(Inbyte(i)) ss = ss + buffer Next i buffer = MyDate = Date 39。 MyDate 的值為系統(tǒng)當(dāng)前的日期。 buffer = CStr(MyDate) + + CStr(Time) + + Mid(ss, 2, 2) + . + Right(ss, 1) + 度 = amp。 buffer amp。 vbCrLf = Mid(ss, 2, 2) + . + Right(ss, 1) datatemp(num) = Val(ss) num = num + 1 Call cal Call draw Case Else End Select Call draw = 1 39。設(shè)置接收一個(gè)字節(jié)產(chǎn)生 OnComm事件 End Sub Private Sub draw() Dim x0, y0, h, w As Single y0 = + x0 = (100, 25500)(, 0) 48 h = / 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 i End Sub 39。計(jì)算極值平均值 Sub cal() On Error GoTo hh Sum = 0 Max = datatemp(0): Min = Max For i = 0 To num 1 If datatemp(i) = Max Then Max = datatemp(i) If datatemp(i) = Min Then Min = datatemp(i)