綜合實(shí)驗(yàn)：用18B20（數(shù)字溫度采集）74LS47(數(shù)碼管譯碼)74LS138(三八譯碼) DS18B20是DALLAS公司生產(chǎn)的一線式數(shù)字溫度傳感器，具有3引腳TO－92小體積封裝形式；溫度測(cè)量范圍為－55℃～＋125℃,可編程為9位～12位A/D轉(zhuǎn)換精度，測(cè)溫分辨率可達(dá)0.0625℃，被測(cè)溫度用符號(hào)擴(kuò)展的16位數(shù)字量方式串行輸出.

主機(jī)控制DS18B20完成溫度轉(zhuǎn)換必須經(jīng)過(guò)三個(gè)步驟：初始化、ROM操作指令、存儲(chǔ)器操作指令。必須先啟動(dòng)DS18B20開(kāi)始轉(zhuǎn)換，再讀出溫度轉(zhuǎn)換值。本程序僅掛接一個(gè)芯片，使用默認(rèn)的12位轉(zhuǎn)換精度，外接供電電源，讀取的溫度值高位字節(jié)送WDMSB單元，低位字節(jié)送WDLSB單元，再按照溫度值字節(jié)的表示格式及其符號(hào)位，經(jīng)過(guò)簡(jiǎn)單的變換即可得到實(shí)際溫度值。

在本系統(tǒng)中： 為了簡(jiǎn)化程序， 采用了74LS47(數(shù)碼管譯碼)74LS138(三八譯碼)。即P0口的P0.0,P0.1,P0.2,P0.3 四個(gè)端口接到74LS47進(jìn)行硬件數(shù)碼管譯碼，然后輸出到數(shù)碼管部分的數(shù)據(jù)口JP5。

P0.4,P0.5,P.0.6三個(gè)端口接到74LS138進(jìn)行38譯碼， 然后輸出到數(shù)碼管的位控制JP8.

系統(tǒng)綜合原理圖：

;

;本程序測(cè)量溫度范圍：0~125度，精確到0.06；
DAT BIT P3.0 ;數(shù)據(jù)通信口
WDLSB DATA 30H ;讀出的溫度低字節(jié)
WDMSB DATA 31H ;讀出的溫度高字節(jié)
;***************************************************************
ORG 0000H
LJMP MAIN
ORG 000BH
SJMP TIMER0 ;定時(shí)顯示

;****************************************************************
;定時(shí)顯示子程序，采用循環(huán)掃描方式
;顯示緩沖區(qū)40H~47H
ORG 0040H
TIMER0:

MOV P0,40H ;最后一位值送p0
ORL P0,#70H; 點(diǎn)亮最后一位
CALL T1MS
MOV P0,41H
ORL P0,#60H
CALL T1MS
MOV P0,42H
ORL P0,#50H
CALL T1MS
MOV P0,43H
ORL P0,#40H
MOV TH0,#LOW(65536-10000) ;定時(shí)器10MS中斷
MOV TL0,#HIGH(65536-10000)
RETI
T1MS: mov r5,#00h ;延時(shí)子程序
tt: mov r6,#9
djnz r6,$
djnz r5,tt
ret

;*********************************************************
;主程序:

MAIN: MOV SP,#60H
MOV P2,#0FFH
MOV R2,#8
MOV R0,#40H ;
OVER: MOV @R0,#00H
INC R0
DJNZ R2,OVER
MOV TMOD,#01H
MOV TH0,#LOW(65536-10000)
MOV TL0,#HIGH(65536-10000)
SETB EA
SETB ET0
SETB TR0
LOOP: LCALL DSWD ;調(diào)用讀出DS18B20溫度程序
SJMP LOOP ; 讀出DS18B20溫度程序
DSWD:
CLR EA
LCALL RST
JNB F0,KEND ;如果沒(méi)有應(yīng)答，返回主程序
MOV R0,#0CCH
LCALL SEND_BYTE ;跳過(guò)ROM匹配
MOV R0,#44H ;發(fā)出溫度轉(zhuǎn)換命令
LCALL SEND_BYTE
SETB EA
MOV P1,#00001111B
MOV 48H,#1 ;廷時(shí)75ms以上準(zhǔn)備讀
SS2: MOV 49H,#255
SS1: MOV 4AH,#255
SS0: DJNZ 4AH,SS0
DJNZ 49H,SS1
DJNZ 48H,SS2
MOV P1,#11111100B
CLR EA
LCALL RST
JNB F0,KEND
MOV R0,#0CCH ;跳過(guò)ROM匹配
LCALL SEND_BYTE
MOV R0,#0BEH ;發(fā)出讀溫度命令
LCALL SEND_BYTE
LCALL READ_BYTE
MOV WDLSB,A
LCALL READ_BYTE
MOV WDMSB,A
LCALL TRANS12
KEND: mov p1,#01010101b
SETB EA
RET
;**********************************************************
;溫度轉(zhuǎn)換程序：精確到：0.06 ;
TRANS12:MOV A,30H
ANL A,#0F0H
MOV 3AH,A
MOV A,31H
ANL A,#0FH
ORL A,3AH
SWAP A
MOV B,#10
DIV AB
MOV 43H,A
MOV 42H,B ;
MOV DPTR,#TABB
MOV A,30H
ANL A,#0FH
MOV B,#2
MUL AB
MOVC A,@A+DPTR
MOV 41H,A
MOV A,30H
ANL A,#0FH
MOV B,#2
MUL AB
INC A
MOVC A,@A+DPTR
MOV 40H,A
RET
TABB: DB 0,0,0,6,1,2,1,8,2,5,3,1,3,7,4,3,5,0
DB 5,6,6,2,6,8,7,5,8,1,8,7,9,3
;*************************************************

SEND_BYTE: ;發(fā)送一個(gè)字節(jié)程序
MOV A,R0
MOV R5,#8
SEN3: CLR C
RRC A
JC SEN1
LCALL WRITE_0
SJMP SEN2
SEN1: LCALL WRITE_1
SEN2: DJNZ R5,SEN3 ; 循環(huán)8次，寫一個(gè)字節(jié)
RET
READ_BYTE: ;讀一個(gè)字節(jié)程序
MOV R5,#8
READ1: LCALL READ
RRC A
DJNZ R5,READ1 ; 循環(huán)8次，讀一個(gè)字節(jié)
MOV R0,A
RET
;復(fù)位程序，如果復(fù)位置位F0,沒(méi)有就復(fù)位F0
RST: SETB DAT
NOP
NOP
CLR DAT
MOV R6,#250 ;主機(jī)發(fā)復(fù)位脈沖持續(xù)3μs