基于單片機的溫度報警器的設計——理工類-資料下載頁

【導讀】料均已作明確標注，論文中的結論和成果為本人獨立完成，真實可靠，書使用過的材料。與我一同工作的同志對本研究所做的任何貢獻均已。本人授權青島農業大學可以將本畢業論文（設計）全部或部分內。保存和匯編本畢業論文（設計）。名為青島農業大學。因為單片機具有低功耗、高性能、可靠性好、易于產品化等特點，因此采用

　　

【正文】 。。 TIN: 。溫度檢測 CALL INIT_1820 。初始化程序 CALL RE_CONFIG 。寫 DS18B20 暫存存儲器設定值 CALL GET_TEMPER CALL TEMPER_COV RET 。溫度檢測 。 DS18B20 初始化程序 INIT_1820: SETB NOP CLR MOV R0,06BH MOV R1,0FH TSR1: DJNZ R0,TSR1 。 延時 MOV R0,6BH DJNZ R1,TSR1 SETB NOP NOP NOP MOV R0,25H TSR2: JNB ,TSR3 DJNZ R0,TSR2 LJMP TSR4 。 延時 TSR3: SETB FLAG1 。 置標志位 ,表示 DS1820 存在 LJMP TSR5 TSR4: CLR FLAG1 。 清標志位 ,表示 DS1820 不存在 LJMP TSR7 TSR5: MOV R0,06BH TSR6: DJNZ R0,TSR6 。 延時 TSR7: SETB RET 。 重新寫 DS18B20 暫存存儲器設定值 RE_CONFIG: JB FLAG1,RE_CONFIG1 。 若 DS18B20 存在 ,轉 RE_CONFIG1 RET RE_CONFIG1: MOV A,0CCH 。 發 SKIP ROM 命令 LCALL WRITE_1820 MOV A,4EH 。 發寫暫存存儲器命令 LCALL WRITE_1820 MOV A,00H 。 TH(報警上限 )中寫入 00H LCALL WRITE_1820 33 MOV A,00H 。 TL(報警下限 )中寫入 00H LCALL WRITE_1820 MOV A,1FH 。 選擇 9位溫度分辨率 LCALL WRITE_1820 RET 。 讀出轉換后的溫度值 GET_TEMPER: SETB 。 定時入口 LCALL INIT_1820 JB FLAG1,TSS2 RET 。 若 DS18B20 不存在則返回 TSS2: MOV A,0CCH 。 跳過 ROM 匹配 CALL WRITE_1820 MOV A,44H 。 發出溫度轉換命令 LCALL WRITE_1820 LCALL INIT_1820 MOV A,0CCH 。 跳過 ROM 匹配 LCALL WRITE_1820 MOV A,0BEH 。 發出讀溫度命令 LCALL WRITE_1820 LCALL READ_18200 MOV TEMPER_NUM,A 。 將讀出的溫度數據保存 MOV A,0ECH CALL WRITE_1820 RET 。 讀 DS18B20 的程序 ,從 DS18B20 中讀出一個字節的數據 READ_1820: MOV R2,8 RE1: CLR C SETB NOP NOP CLR NOP NOP NOP SETB MOV R3,7 DJNZ R3,$ MOV C, 。MOV R3,23 MOV R3,200 DJNZ R3,$ RRC A DJNZ R2,RE1 RET 34 。 寫 DS18B20 的程序 WRITE_1820: MOV R2,8 CLR C WR1: CLR MOV R3,6 DJNZ R3,$ RRC A MOV ,C MOV R3,23 DJNZ R3,$ SETB NOP DJNZ R2,WR1 SETB RET 。 讀 DS18B20 的程序 ,從 DS18B20 中讀出兩個字節的溫度數據 READ_18200: MOV R4,2 。 將溫度高位和低位從 DS18B20 中讀出 MOV R1,36H 。 低位存入 36H(TEMPER_L),高位存入 35H(TEMPER_H) RE00: MOV R2,8 RE01: CLR C SETB NOP NOP CLR NOP NOP NOP SETB MOV R3,9 。09 RE10: DJNZ R3,RE10 MOV C, MOV R3,23 RE20: DJNZ R3,RE20 RRC A DJNZ R2,RE01 MOV @R1,A DEC R1 DJNZ R4,RE00 RET 。 將從 DS18B20 中讀出的溫度數據進行轉換 TEMPER_COV: MOV A,0F0H ANL A,TEMPER_L 。 舍去溫度低位中小數點后的四位溫度數值 35 SWAP A MOV TEMPER_NUM,A MOV A,TEMPER_L JNB ,TEMPER_COV1 。 四舍五入去溫度值 INC TEMPER_NUM TEMPER_COV1: MOV A,TEMPER_H ANL A,07H SWAP A ORL A,TEMPER_NUM dec a dec a dec a dec a mov 36h,00h mov 35h,00h mov 37h,00h MOV TEMPER_NUM,A 。 保存變換后的溫度數據 LCALL BIN_BCD RET 。 將 16 進制的溫度數據轉換成壓縮 BCD碼 BIN_BCD: MOV DPTR,TEMP_TAB MOV A,TEMPER_NUM MOVC A,@A+DPTR MOV 20H,A MOV 40H,A ANL A,0FH MOV 31H,A MOV A,20H SWAP A ANL A,0FH MOV 30H,A RET TEMP_TAB: DB 00H,01H,02H,03H,04H,05H,06H,07H DB 08H,09H,10H,11H,12H,13H,14H,15H DB 16H,17H,18H,19H,20H,21H,22H,23H DB 24H,25H,26H,27H,28H,29H,30H,31H DB 32H,33H,34H,35H,36H,37H,38H,39H DB 40H,41H,42H,43H,44H,45H,46H,47H DB 48H,49H,50H,51H,52H,53H,54H,55H DB 56H,57H,58H,59H,60H,61H,62H,63H DB 64H,65H,66H,67H,68H,69H,70H,71H DB 72H,73H,74H,75H,76H,77H,78H,79H 36 DB 80H,81H,82H,83H,84H,85H,86H,87H DB 88H,89H,90H,91H,92H,93H,94H,95H DB 96H,97H,98H,99H 。。。 DISP: ACALL HTB 。。。 DISP1: PUSH ACC SETB RS0 SETB RS1 MOV R0,T10 MOV R1,00H MOV R2,02H MOV R3,07FH mov p2,R3 DISP2: MOV A,@R0 MOV DPTR,TAB1 MOVC A,@A+DPTR MOV P0,A MOV A,R3 MOV P2,A DJNZ R1,$ DJNZ R1,$ DJNZ R1,$ DJNZ R1,$ DJNZ R1,$ DJNZ R1,$ RR A MOV R3,A INC R0 MOV A,@R0 DJNZ R2,DISP2 CLR RS0 CLR RS1 POP ACC RET TAB1: DB 01h,9fh,24h,06h,1ah,42h,0c0h,17h,00h,02h 。。。。。 HTB: MOV A,BT0 MOV B,10 DIV AB MOV T,B MOV T10,A RET 37 。。。。 CONT: ACALL TEN MOV A,TEMP0 。溫度控制 CLR C SUBB A,ST0 JNC LOFF LON: CLR SETB SJMP EXIT LOFF: SETB ajmp sound EXIT: RET 。。。。 TEN: PUSH B PUSH PSW MOV A,40H PUSH ACC ANL A,0F0H SWAP A MOV B,10 MUL AB MOV B,A POP ACC ANL A,0FH ADD A,B MOV TEMP0,A POP PSW POP B RET 。。。。 DELAY: MOV R3,0FFH 。延時 DEL2: MOV R4,0FFH DEL1: NOP NOP NOP NOP NOP NOP DJNZ R4,DEL1 DJNZ R3,DEL2 RET 。。。 。***************** 聲子程序 **** 38 sound: mov r2,1。響 2 個周期 bb bit 。 slop1: clr bb CLR CLR 。 acall d1ms 。延時 setb bb 。使 v1 9015 截止 SETB SETB acall d1ms djnz r2,slop1 ret 。*******************1ms 延時子程序 d1ms: mov r0,0ffffh dloop: mov r1,150 。改變 r0的數值將改變聲音頻率 djnz r1,$ djnz r0,dloop ret 。*************** 延時子程序 **************** d05s: mov r0,0ffh d05l1: mov r1,0ffh d05l2: mov r2,250 djnz r2,$ djnz r1,d05l2 djnz r0,d05l1 ret BIBISTAR: setb setb acall sound acall d1ms acall d1ms clr acall d05s acall d1ms acall d1ms acall d1ms RET END