|
基于51單片機(jī)的DS18B20溫度+LCD顯示(匯編編寫)
TIM截圖20170902095158.png (12.91 KB, 下載次數(shù): 121)
下載附件
2017-9-2 09:56 上傳
TIM截圖20170902095509.png (26.3 KB, 下載次數(shù): 125)
下載附件
2017-9-2 09:56 上傳
0.png (51.85 KB, 下載次數(shù): 119)
下載附件
2017-9-2 16:05 上傳
單片機(jī)源程序如下:
- TEMP_ZH DATA 24H ;實(shí)時(shí)溫度值存放單元
- TEMPL DATA 25H ;
- TEMPH DATA 26H ;
- TEMP_TH DATA 27H ;高溫報(bào)警值存放單元
- TEMP_TL DATA 28H ;低溫報(bào)警值存放單元
- TEMPHC DATA 29H ;
- TEMPLC DATA 2AH
- K1 EQU P1.4
- K2 EQU P1.5
- K3 EQU P1.6
- K4 EQU P1.7
- BEEP EQU P3.7
- RELAY EQU P1.3
- LCD_X EQU 2FH ;LCD 地址變量
- LCD_RS EQU P2.0
- LCD_RW EQU P2.1
- LCD_EN EQU P2.2
- flag1 equ 20H.0 ;DS18B20是否存在標(biāo)記
- KEY_UD EQU 20H.1 ;設(shè)定 KEY 的UP與DOWN 標(biāo)記
- date_line equ p3.3
- ;=====================================================
- ORG 0000H
- JMP MAIN
-
- ORG 0030H
- MAIN: MOV SP,#60H
- MOV A,#00H
- MOV R0,#20H ;將 20H-2FH 單元清零
- MOV R1,#10H
- CLEAR: MOV @R0,A
- INC R0
- DJNZ R1,CLEAR
- CALL SET_LCD
- CALL RE_18B20
- start: CALL RESET ;18B20復(fù)位子程序
- JNB FLAG1,START1 ;DS1820不存在
- CALL MENU_OK
- CALL READ_E2
- CALL TEMP_BJ ;顯示溫度標(biāo)記
- JMP START2
- START1: CALL MENU_ERROR
- CALL TEMP_BJ ;顯示溫度標(biāo)記
- JMP $
- START2:
- CALL RESET
- JNB FLAG1,START1 ;DS1820不存在
- MOV A,#0CCH ; 跳過ROM匹配
- CALL WRITE
- MOV A,#44H ; 發(fā)出溫度轉(zhuǎn)換命令
- CALL WRITE
- CALL RESET
- MOV A,#0CCH ; 跳過ROM匹配
- CALL WRITE
- MOV A,#0BEH ; 發(fā)出讀溫度命令
- CALL WRITE
- CALL READ
- call CONVTEMP
- Call DISPBCD
- CALL CONV
- CALL TEMP_COMP
- CALL PROC_KEY ; 鍵掃描
- SJMP START2
- ;-----------------------------------------------------
- PROC_KEY:
- JB K1,PROC_K1 ; 按鍵K1處理
- CALL BEEP_BL
- JNB K1,$
- MOV DPTR,#M_ALAX1
- MOV A,#1
- CALL LCD_PRINT
- CALL LOOK_ALARM
- JB K3,$
- CALL BEEP_BL
- JMP PROC_K2
- PROC_K1: ; 按鍵K2處理
- JB K2,PROC_END
- CALL BEEP_BL
- JNB K2,$
- MOV DPTR,#RESET_A1
- MOV A,#1
- CALL LCD_PRINT
- CALL SET_ALARM
- CALL RE_18B20 ;將設(shè)定的TH,TL值寫入DS18B20內(nèi)
- CALL WRITE_E2
- PROC_K2:
- CALL MENU_OK
- CALL TEMP_BJ
- PROC_END:
- RET
- ;============================================
- ;設(shè)定報(bào)警值 TH、TL
- ;============================================
- SET_ALARM:
- ;CALL RESET_ALARM
- CALL LOOK_ALARM
- AS0:
- JB K1,AS00
- CALL BEEP_BL
- JNB K1,$
- CPL 20H.1 ;UP/DOWN 標(biāo)記
- AS00: JB 20H.1,ASZ01 ;20H.1=1,UP
- JMP ASJ01 ;20H.1=0,DOWN
- ASZ01: JB K2,ASZ02 ;TH值調(diào)整(增加)
- CALL BEEP_BL
- INC TEMP_TH
- MOV A,TEMP_TH
- CJNE A,#120,ASZ011
- MOV TEMP_TH,#0
- ASZ011: CALL LOOK_ALARM
- MOV R5,#10
- CALL DELAY
- JMP ASZ01
- ASZ02: JB K3,ASZ03 ;TL值調(diào)整(增加)
- CALL BEEP_BL
- INC TEMP_TL
- MOV A,TEMP_TL
- CJNE A,#99,ASZ021
- MOV TEMP_TL,#00H
- ASZ021: CALL LOOK_ALARM ;
- MOV R5,#10
- CALL DELAY
- JMP ASZ02
- ASZ03: JB K4,AS0 ;確定調(diào)整 OK
- CALL BEEP_BL
- JNB K4,$
- RET
- ASJ01:
- JB K2,ASJ02 ;TH值調(diào)整 (減少)
- CALL BEEP_BL
- DEC TEMP_TH
- MOV A,TEMP_TH
- CJNE A,#0FFH,ASJ011
- JMP ASJ022
- ASJ011: CALL LOOK_ALARM
- MOV R5,#10
- CALL DELAY
- JMP AS0
- ASJ02: JB K3,ASJ03 ;TL值調(diào)整(減少)
- CALL BEEP_BL
- DEC TEMP_TL
- MOV A,TEMP_TL
- CJNE A,#0FFH,ASJ021
- JMP ASJ022
- ASJ021: CALL LOOK_ALARM ;
- MOV R5,#10
- CALL DELAY
- JMP AS0
- ASJ022: CPL 20H.1
- JMP ASZ01
- ASJ03: JMP ASZ03
- RET
- RESET_ALARM:
- MOV DPTR,#RESET_A1 ;指針指到顯示信息區(qū)
- MOV A,#1 ;顯示在第一行
- CALL LCD_PRINT
- RET
- RESET_A1:
- DB "RESET ALERT CODE"
- ;====================================================
- ;實(shí)際溫度值與標(biāo)記溫度值比較子程序
- ;====================================================
- TEMP_COMP:
- MOV A,TEMP_TH
- SUBB A,TEMP_ZH ;減數(shù)>被減數(shù),則
- JC CHULI1 ;借位標(biāo)志位C=1,轉(zhuǎn)
- MOV A,TEMP_ZH
- SUBB A,TEMP_TL ;減數(shù)>被減數(shù),則
- JC CHULI2 ;借位標(biāo)志位C=1,轉(zhuǎn)
- MOV DPTR,#BJ5
- CALL TEMP_BJ3
- CLR RELAY ;繼電器吸合
- RET
- CHULI1:
- MOV DPTR,#BJ3
- CALL TEMP_BJ3
- SETB RELAY ;繼電器關(guān)閉
- CALL BEEP_BL
- RET
- CHULI2:
- MOV DPTR,#BJ4
- CALL TEMP_BJ3
- CALL BEEP_BL
- RET
- ;-----------------------------------------
- TEMP_BJ3:
- MOV A,#0CEH
- CALL WCOM
- MOV R1,#0
- MOV R0,#2
- BBJJ3: MOV A,R1
- MOVC A,@A+DPTR
- CALL WDATA
- INC R1
- DJNZ R0,BBJJ3
- RET
- BJ3:
- DB ">H"
- BJ4:
- DB "<L"
- BJ5:
- DB " !"
- ;==================================================
- ;顯示溫度標(biāo)記子程序
- ;==================================================
- TEMP_BJ:
- MOV A,#0CBH
- CALL WCOM
- MOV DPTR,#BJ1 ;指針指到顯示消息
- MOV R1,#0
- MOV R0,#2
- BBJJ1: MOV A,R1
- MOVC A,@A+DPTR
- CALL WDATA
- INC R1
- DJNZ R0,BBJJ1
- RET
- BJ1:
- DB 00H,"C"
- ;=================================================
- MENU_OK:
- MOV DPTR,#M_OK1 ;指針指到顯示消息
- MOV A,#1 ;顯示在第一行
- CALL LCD_PRINT
- MOV DPTR,#M_OK2 ;指針指到顯示消息
- MOV A,#2 ;顯示在第一行
- CALL LCD_PRINT
- RET
- M_OK1:
- DB " DS18B20 OK ",0
- M_OK2:
- DB " TEMP: ",0
- ;-----------------------------------------------
- MENU_ERROR:
- MOV DPTR,#M_ERROR1 ;指針指到顯示消息1
- MOV A,#1 ;顯示在第一行
- CALL LCD_PRINT
- MOV DPTR,#M_ERROR2 ;指針指到顯示消息1
- MOV A,#2 ;顯示在第一行
- CALL LCD_PRINT
- RET
- M_ERROR1:
- DB " DS18B20 ERROR ",0
- M_ERROR2:
- DB " TEMP: ---- ",0
- ;====================================================
- reset: setb date_line
- nop
- clr date_line
- mov r0,#6bh ;主機(jī)發(fā)出延時(shí)復(fù)位低脈沖
- mov r1,#04h
- tsr1: djnz r0,$
- mov r0,#6bh
- djnz r1,tsr1
- setb date_line ;然后拉高數(shù)據(jù)線
- nop
- nop
- nop
- mov r0,#32h
- tsr2: jnb date_line,tsr3 ;等待DS18B20回應(yīng)
- djnz r0,tsr2
- jmp tsr4 ; 延時(shí)
- tsr3: setb flag1 ; 置標(biāo)志位,表示DS1820存在
- jmp tsr5
- tsr4: clr flag1 ; 清標(biāo)志位,表示DS1820不存在
- jmp tsr7
- tsr5: mov r0,#06bh
- tsr6: djnz r0,[ DISCUZ_CODE_1 ]nbsp; ; 時(shí)序要求延時(shí)一段時(shí)間
- tsr7: setb date_line
- ret
- ;=======================================================
- RE_18B20:
- JB FLAG1,RE_18B20A
- RET
- RE_18B20A:
- CALL RESET
- MOV A,#0CCH ;跳過ROM匹配
- LCALL WRITE
- MOV A,#4EH ;寫暫存寄存器
- LCALL WRITE
- MOV A,TEMP_TH ;TH(報(bào)警上限)
- LCALL WRITE
- MOV A,TEMP_TL ;TL(報(bào)警下限)
- LCALL WRITE
- MOV A,#7FH ;12位精確度
- LCALL WRITE
- RET
- ;------------------------------------------------------------
- WRITE_E2:
- CALL RESET
- MOV A,#0CCH ;跳過ROM匹配
- LCALL WRITE
- MOV A,#48H ;把暫存器里的溫度報(bào)警值拷貝到EEROM
- LCALL WRITE
- RET
- ;--------------------------------------------------------------
- READ_E2:
- CALL RESET
- MOV A,#0CCH ;跳過ROM匹配
- LCALL WRITE
- MOV A,#0B8H ;把EEROM里的溫度報(bào)警值拷貝回暫存器
- CALL WRITE
- RET
- ;--------------------------------------------------------------
- ;將自定義字符寫入LCD1602的CGRAM中
- ;--------------------------------------------------------------
- STORE_DATA:
- MOV A,#40H
- CALL WCOM
- MOV R2,#08H
- MOV DPTR,#D_DATA
- MOV R3,#00H
- S_DATA:
- MOV A,R3
- MOVC A,@A+DPTR
- CALL WDATA ;寫入數(shù)據(jù)
- INC R3
- DJNZ R2,S_DATA
- RET
- D_DATA:
- DB 0CH,12H,12H,0CH,00H,00H,00H,00H
- ;==============================================================
- write: mov r2,#8 ;一共8位數(shù)據(jù)
- CLR C
- wr1:
- clr date_line ;開始寫入DS18B20總線要處于復(fù)位(低)狀態(tài)
- mov r3,#07
- djnz r3,[ DISCUZ_CODE_1 ]nbsp; ;總線復(fù)位保持16微妙以上
- rrc a ;把一個(gè)字節(jié)DATA 分成8個(gè)BIT環(huán)移給C
- mov date_line,c ;寫入一個(gè)BIT
- mov r3,#3CH
- djnz r3,[ DISCUZ_CODE_1 ]nbsp; ;等待100微妙
- setb date_line ;重新釋放總線
- nop
- djnz r2,wr1 ;寫入下一個(gè)BIT
- setb date_line
- ret
- ;--------------------------------------------------------------------
- read: mov r4,#4 ; 將溫度低位、高位、TH、TL從DS18B20中讀出
- mov r1,#TEMPL ; 存入25H、26H、27H、28H
- re00: mov r2,#8
- re01: clr cy
- setb date_line
- nop
- nop
- clr date_line ;讀前總線保持為低
- nop
- nop
- nop
- setb date_line ;開始讀總線釋放
- mov r3,#09 ;延時(shí)18微妙
- djnz r3,$
- mov c,date_line ;從DS18B20總線讀得一個(gè)BIT
- mov r3,#3CH
- djnz r3,[ DISCUZ_CODE_1 ]nbsp; ;等待100微妙
- rrc a ;把讀得的位值環(huán)移給A
- djnz r2,re01 ;讀下一個(gè)BIT
- mov @r1,a
- inc r1
- djnz r4,re00
- ret
- ;*****************************************************
- ; 處理溫度 BCD 碼子程序
- ;****************************************************
- CONVTEMP: MOV A,TEMPH ;判溫度是否零下
- ANL A,#80H
- JZ TEMPC1 ;溫度零上轉(zhuǎn)
- CLR C
- MOV A,TEMPL ;二進(jìn)制數(shù)求補(bǔ)(雙字節(jié))
- CPL A ;取反加1
- ADD A,#01H
- MOV TEMPL,A
- MOV A,TEMPH
- CPL A
- ADDC A,#00H
- MOV TEMPH,A
- SJMP TEMPC11
- TEMPC1: MOV TEMPHC,#0AH ;+
- TEMPC11: MOV A,TEMPHC
- SWAP A
- MOV TEMPHC,A
- MOV A,TEMPL
- ANL A,#0FH ;乘0.0625
- MOV DPTR,#TEMPDOTTAB
- MOVC A,@A+DPTR
- MOV TEMPLC,A ;TEMPLC LOW=小數(shù)部分 BCD
- MOV A,TEMPL ;整數(shù)部分
- ANL A,#0F0H ;取出高四位
- SWAP A
- MOV TEMPL,A
- MOV A,TEMPH ;取出低四位
- ANL A,#0FH
- SWAP A
- ORL A,TEMPL ;重新組合
- MOV TEMP_ZH,A
- LCALL HEX2BCD1
- MOV TEMPL,A
- ANL A,#0F0H
- SWAP A
- ORL A,TEMPHC ;TEMPHC LOW = 十位數(shù) BCD
- MOV TEMPHC,A
- MOV A,TEMPL
- ANL A,#0FH
- SWAP A ;TEMPLC HI = 個(gè)位數(shù) BCD
- ORL A,TEMPLC
- MOV TEMPLC,A
- MOV A,R4
- JZ TEMPC12
- ANL A,#0FH
- SWAP A
- MOV R4,A
- MOV A,TEMPHC ;TEMPHC HI = 百位數(shù) BCD
- ANL A,#0FH
- ORL A,R4
- MOV TEMPHC,A
- TEMPC12: RET
- ;---------------------------------------------------------------
- HEX2BCD1:
- MOV B,#064H ;十六進(jìn)制-> BCD
- DIV AB ;B= A % 100
- MOV R4,A ;R7 = 百位數(shù)
- MOV A,#0AH
- XCH A,B
- DIV AB ;B = A % B
- SWAP A
- ORL A,B
- RET
- ;-------------------------------------------------------------
- ; 小數(shù)部分碼表
- ;-------------------------------------------------------------
- TEMPDOTTAB:
- DB 00H,00H,01H,01H,02H,03H,03H,04H
- DB 05H,05H,06H,06H,07H,08H,08H,09H
- ;=====================================================
- LOOK_ALARM:
- MOV DPTR,#M_ALAX2 ;指針指到顯示信息區(qū)
- MOV A,#2 ;顯示在第二行
- CALL LCD_PRINT
- MOV A,#0C6H
- CALL TEMP_BJ1
- MOV A,TEMP_TH ;加載TH數(shù)據(jù)
- MOV LCD_X,#3 ;設(shè)置位置
- CALL SHOW_DIG2H ;顯示數(shù)據(jù)
- MOV A,#0CEH
- CALL TEMP_BJ1
- MOV A,TEMP_TL ;加載TL數(shù)據(jù)
- MOV LCD_X,#12 ;設(shè)置位置
- CALL SHOW_DIG2L ;顯示數(shù)據(jù)
- RET
- ;--------------------------------------------
- M_ALAX1:
- DB " LOOK ALERT CODE",0
- M_ALAX2:
- DB "TH: TL: ",0
- ;--------------------------------------------
- TEMP_BJ1:
- CALL WCOM
- MOV DPTR,#BJ2 ;指針指到顯示信息區(qū)
- MOV R1,#0
- MOV R0,#2
- BBJJ2: MOV A,R1
- MOVC A,@A+DPTR
- CALL WDATA
- INC R1
- DJNZ R0,BBJJ2
- RET
- BJ2:
- DB 00H,"C"
- ;---------------------------------------------------
- SHOW_DIG2H: ;在 LCD 的第二行顯示數(shù)字
- MOV B,#100
- DIV AB
- ADD A,#30H
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- MOV A,#0AH
- XCH A,B
- DIV AB
- ADD A,#30H
- INC LCD_X
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- INC LCD_X
- MOV A,B
- MOV B,LCD_X
- ADD A,#30H
- CALL LCDP2
- RET
- SHOW_DIG2L: ;在 LCD 的第二行顯示數(shù)字
- MOV B,#100
- DIV AB
- MOV A,#0AH
- XCH A,B
- DIV AB
- ADD A,#30H
- PUSH B
- MOV B,LCD_X
- CALL LCDP2
- POP B
- INC LCD_X
- MOV A,B
- MOV B,LCD_X
- ADD A,#30H
- CALL LCDP2
- RET
- ;-------------------------------------------------------------
- ;顯示區(qū) BCD 碼溫度值刷新子程序
- ;-------------------------------------------------------------
- DISPBCD:
- MOV A,TEMPLC
- ANL A,#0FH
- MOV 70H,A ;小數(shù)位
- MOV A,TEMPLC
- SWAP A
- ANL A,#0FH
- MOV 71H,A ;個(gè)位
- MOV A,TEMPHC
- ANL A,#0FH
- MOV 72H,A ;十位
- MOV A,TEMPHC
- SWAP A
- ANL A,#0FH
- MOV 73H,A ;百位
- MOV A,TEMPHC
- ANL A,#0F0H
- CJNE A,#010H,DISPBCD0
- SJMP DISPBCD2
- DISPBCD0: MOV A,TEMPHC
- ANL A,#0FH
- JNZ DISPBCD2 ;十位數(shù)是0
- MOV A,TEMPHC
- SWAP A
- ANL A,#0FH
- MOV 73H,#0AH ;符號(hào)位不顯示
- MOV 72H,A ;十位數(shù)顯示符號(hào)
- DISPBCD2: RET
- ;==========================================================
- ; LCD 1602 顯示子程序
- ;==========================================================
- CONV:
- MOV A,73H ;加載百位數(shù)據(jù)
- MOV LCD_X,#6 ;設(shè)置位置
- CJNE A,#1,CONV1
- JMP CONV2
- CONV1: MOV A,#" "
- MOV B,LCD_X
- CALL LCDP2
- JMP CONV3
- CONV2: CALL SHOW_DIG2 ;顯示數(shù)據(jù)
- CONV3: INC LCD_X ;
- mov a,72h ;十位
- CALL SHOW_DIG2
- inc LCD_X
- mov a,71h ;個(gè)位
- CALL SHOW_DIG2
- inc LCD_X
- MOV A,#'.'
- MOV B,LCD_X
- CALL LCDP2
- MOV A,70h ;加載小數(shù)點(diǎn)位
- INC LCD_X ;設(shè)置位置
- CALL SHOW_DIG2 ;顯示數(shù)據(jù)
- RET
- ;-------------------------------------------------------
- SHOW_DIG2: ;在 LCD 的第二行顯示數(shù)字
- ADD A,#30H
- MOV B,LCD_X
- CALL LCDP2
- RET
- ;---------------------------------------------------------
- LCDP2: ;在LCD的第二行顯示字符
- PUSH ACC ;
- MOV A,B ;設(shè)置顯示地址
- ADD A,#0C0H ;設(shè)置LCD的第二行地址
- CALL WCOM ;寫入命令
- POP ACC ;由堆棧取出A
- CALL WDATA ;寫入數(shù)據(jù)
- RET
- ;---------------------------------------------------------
- SET_LCD: ;對(duì) LCD 做初始化設(shè)置及測(cè)試
- CLR LCD_EN
- CALL INIT_LCD ;初始化 LCD
- CALL STORE_DATA ;將自定義字符存入LCD的CGRAM
- RET
- INIT_LCD: ;8位I/O控制 LCD 接口初始化
- MOV A,#38H ;雙列顯示,字形5*7點(diǎn)陣
- CALL WCOM
- call delay1
- MOV A,#38H
- CALL WCOM
- call delay1
- MOV A,#38H
- CALL WCOM
- call delay1
- MOV A,#0CH ;開顯示,顯示光標(biāo),光標(biāo)不閃爍
- CALL WCOM
- call delay1
- MOV A,#01H ;清除 LCD 顯示屏
- CALL WCOM
- call delay1
- RET
- ;==================================================
- CLR_LINE1: ;清除LCD的第一行字符
- MOV A,#80H ;設(shè)置 LCD 的第一行地址
- CALL WCOM ;
- MOV R0,#24 ;設(shè)置計(jì)數(shù)值
- C1: MOV A,#' ' ;載入空格符至LCD
- CALL WDATA ;輸出字符至LCD
- DJNZ R0,C1 ;計(jì)數(shù)結(jié)束
- RET
- ;==================================================
- LCD_PRINT: ;在LCD的第一行或第二行顯示字符
- CJNE A,#1,LINE2 ;判斷是否為第一行
- LINE1: MOV A,#80H ;設(shè)置 LCD 的第一行地址
- CALL WCOM ;寫入命令
- CALL CLR_LINE ;清除該行字符數(shù)據(jù)
- MOV A,#80H ;設(shè)置 LCD 的第一行地址
- CALL WCOM ;寫入命令
- JMP FILL
- LINE2: MOV A,#0C0H ;設(shè)置 LCD 的第二行地址
- CALL WCOM ;寫入命令
- CALL CLR_LINE ;清除該行字符數(shù)據(jù)
- MOV A,#0C0H ;設(shè)置 LCD 的第二行地址
- CALL WCOM
- FILL: CLR A ;填入字符
- MOVC A,@A+DPTR ;由消息區(qū)取出字符
- CJNE A,#0,LC1 ;判斷是否為結(jié)束碼
- ……………………
- …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼
所有資料51hei提供下載:
單片機(jī)DS18B20.rar
(79.88 KB, 下載次數(shù): 148)
2017-9-2 09:56 上傳
點(diǎn)擊文件名下載附件
下載積分: 黑幣 -5
|
評(píng)分
-
查看全部評(píng)分
|