最新基于單片機(jī)與pc機(jī)串口通信的溫度記錄儀畢業(yè)設(shè)計(jì)-閱讀頁
2025-07-13 04:43本頁面
【正文】 bitcode[]={0xfe,0xfd,0xfb,0xf7, }。 // 讀出溫度暫放unsigned char dispbuf[5]={0,0,0,0,0}。dispbuf[0]=a0。dispbuf[2]=a2。for(i=0。i++) { P2=0xff。 P2=dispbitcode[i]。}} }/********** 該程序?yàn)榭偩€上只有一個(gè)器件 **********///毫秒延時(shí) Mhzvoid dmsec (unsigned int count) { unsigned int i。i125。}//復(fù)位脈沖void tmreset (void) { DQ = 0。 // 精確延時(shí) 大于 480usDQ = 1。 // 90，4 可以小范圍變化}//存在脈沖void tmpre (void) { while (DQ)。Delay(4)。bit dat。 i++。大概 1usDQ = 1。 i++。Delay(8)。}//讀一個(gè)比特unsigned char tmrbyte (void) { unsigned char i,j,dat。for (i=1。i++) {j = tmrbit ()。}return (dat)。unsigned char j。for (j=1。j++) {testb = dat amp。dat = dat 1。 // 先拉低 i++。 // 1us DQ = 1。 }else {// Write 0DQ = 0。 // 大一點(diǎn) 沒影響，但不能太大，寫一個(gè)位在 30us 內(nèi) DQ = 1。 i++。 tmreset ()。 dmsec (1)。 // skip rom福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)31 tmwbyte (0x44)。tmpre ()。tmwbyte (0xcc)。 // 轉(zhuǎn)換temp_data[0] = tmrbyte ()。 // MSB 高 8 位if((temp_data[1] amp。temp_data[0]=~temp_data[0]+1。}else{Tflag=1。 uchar lsb,msb。tmstart()。 // 初始化 ds18b20福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)33 while(1){tmstart()。 read_temp()。0x0f。dispbuf[4]=((temp_data[0]amp。0x0f)4)。dispbuf[1]=dispbuf[4]%100。dispbuf[1]=dispbuf[1]%10。lsb=last%10。i0。} //溫度小于 100 度，福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)34則百位不顯示 else {msb=msb%10。}。 } //溫度大于 125 度時(shí)顯示else { if(dispbuf[4]56) //負(fù)溫大于55 度時(shí)正常顯示 {digitalshow(11,dispbuf[2],dispbuf[1],dispbuf[0])。}} //負(fù)溫小于55 度時(shí)顯示為}} }福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)35附錄 3PC 機(jī)程序：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è)定輸入錯(cuò)誤，不發(fā)送 Else = Select Case Len(Trim()) Case 5 = Trim() Case 4 = 0 amp。 Trim() End Select = C = True End IfEnd SubPrivate Sub Command2_Click() ‘單擊按鈕執(zhí)行數(shù)據(jù)采集或停止采集 If = 采集數(shù)據(jù) Then = 停止采集 = True = A Else = 采集數(shù)據(jù)福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)36 = False = B = B End IfEnd SubPrivate Sub Command4_Click() ‘單擊按鈕清空數(shù)據(jù) = = End SubPrivate Sub Command5_Click() ‘單擊按鈕開關(guān)通信端口 If = 開通信端口 Then = 關(guān)通信端口 = False = True = True = True Select Case 39。9600 波特，無校驗(yàn)， 8 位數(shù)據(jù)位，1 位停止位 = InputModeText 39。讀出接收緩沖區(qū)的所有內(nèi)容 = 1024 = 1024 = 1 39。打開串口 Else = False = B福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)37 = 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í)讀出數(shù)據(jù) Select Case Case EvReceive = amp。 ℃ = Time amp。 Chr$(6) amp。 amp。 = Time$n = n + 1End IfIf n = 100 Then n = 0 = End IfEnd SubPrivate Sub Text5_Change() ‘改變讀數(shù)據(jù)的時(shí)間 = 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(, 福建工程學(xué)院國脈信息學(xué)院本科畢業(yè)設(shè)計(jì)397, 2)) 200 * Val() + i * Val() + 1If a 0 Thena = a + 86400ElseIf a 86400 Thena = a 86400End IfIf a \ 3600 10 Thena1 = 0 amp。 ((a Mod 3600) \ 60)Elsea2 = (a Mod 3600) \ 60End IfIf ((a Mod 3600) Mod 60) 10 Thena3 = 0 amp。 : amp。 :
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1