共2条
1/1 1 跳转至页
ds18b20 各位帮我看看ds18b20的显示程序
问
大家有用过ds18b20的吗？帮我看看我的程序。采集温度之后，送三个8段led显示，3片74hc164，at89c2051串行工作方式0，分别控制指示灯，温度个位，温度十位。大家看看我的程序有没有问题。
temp equ 40h
temp1 equ 41h
temp2 equ 42h
TEMPER_NUM equ 60h
main:
acall readtemp
acall TEMPER_COV
acall led_wendu
ajmp main
RESET:
L0: CLR p3.5 ; 长英科技2000/9/27
MOV R2,#200
L1: NOP
DJNZ R2,L1 ;主机发置位脉冲持续3us﹡200=600us
SETB p3.5 ;主机释放总线控制p3.5口改为输入口
MOV R2,#30
L4: DJNZ R2,L4 ;DS18B20等待2us﹡30=60us
CLR C
ORL C,p3.5 ;DS18B20数据线应变低
JC L0 ;DS18B20没准备好，重来
MOV R6,#80
L5: ORL C,p3.5
JC L3 ;DS18B20数据线变高，初始化成功
DJNZ R6,L5 ;DS18B20数据线低电平状态可持续3us﹡80=240us
SJMP L0 ;初始化失败，重来
L3: MOV R2,#250
L2: DJNZ R2,L2 ;DS18B20应答过程最少 > 480us
RET
WRITE: MOV R3,#8
WR1: SETB p3.5
MOV R4,#8
RRC A
CLR p3.5
WR2: DJNZ R4,WR2 ;DS18B20栽数据线变低16us
MOV p3.5,C ;将命令字按位依次送给DS18B20
MOV R4,#20
WR3: DJNZ R4,WR3 ;保证整个写过程持续60us
DJNZ R3,WR1 ;送完整个命令字节
SETB p3.5
RET
READ: MOV R6,#8
RE1: CLR p3.5
MOV R4,#6
NOP ;低电平持续2us
SETB p3.5 ;p3.5口设为输入口
RE2: DJNZ R4,RE2 ;等待12us
MOV C,p3.5 ;主机按位读入DS18B20的数据
RRC A ;数据送入A
MOV R5,#30
RE3: DJNZ R5,RE3 ;保证读数据过程持续2us﹡30=60us
DJNZ R6,RE1 ;读完8位
MOV TEMP,A ;将读出值送变量TEMP保存
SETB p3.5
RET
READTEMP : acall RESET ;复位
MOV A,#0CCH ;发SKIP ROM命令
acall WRITE
MOV A,#44H ;发开始温度转换命令
acall WRITE
acall DELAY_1000 ;延时 1000 MS
acall RESET ;复位
MOV A,#0CCH ;发SKIP ROM命令
acall WRITE
MOV A,#0BEH ;发读存储器命令
acall WRITE
CALL READ ；读出温度值低
MOV TEMP1,TEMP
CALL READ ；读出温度值高
MOV TEMP2,TEMP
acall RESET ;复位
RET
TEMPER_COV:
MOV A,#0F0H
ANL A,temp1 ; 舍去温度低位中小数点后的四位温度数值
SWAP A
MOV TEMPER_NUM,A
MOV A,temp1
JNB ACC.3,TEMPER_COV1 ; 四舍五入去温度值
INC TEMPER_NUM
TEMPER_COV1:
MOV A,temp2
ANL A,#07H
SWAP A
ORL A,TEMPER_NUM
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 TEMPER_NUM,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
DB 80H,81H,82H,83H,84H,85H,86H,87H
DB 88H,89H,90H,91H,92H,93H,94H,95H
DB 96H,97H,98H,99H
delay_1000:
一秒延时
ret
LED_WENDU: ;显示采样水温
MOV A,60H
ANL A,#0FH
ACALL LED_0
MOV A,60H
SWAP A
ANL A,#0FH
ACALL LED_0
MOV A,#0FFH;灯不亮
ACALL CHUANKOUSHUCHU
RET
LED_0:
CJNE A, #00H, LED_1
MOV A, #81H
AJMP CHUANKOUSHUCHU
LED_1:
CJNE A, #01H, LED_2
MOV A, #0CFH
AJMP CHUANKOUSHUCHU
LED_2:
CJNE A, #02H, LED_3
MOV A, #92H
AJMP CHUANKOUSHUCHU
LED_3:
CJNE A, #03H, LED_4
MOV A, #86H
AJMP CHUANKOUSHUCHU
LED_4:
CJNE A, #04H, LED_5
MOV A, #0CCH
AJMP CHUANKOUSHUCHU
LED_5:
CJNE A, #05H, LED_6
MOV A, #0A4H
AJMP CHUANKOUSHUCHU
LED_6:
CJNE A, #06H, LED_7
MOV A, #0A0H
AJMP CHUANKOUSHUCHU
LED_7:
CJNE A, #07H, LED_8
MOV A, #8FH
AJMP CHUANKOUSHUCHU
LED_8:
CJNE A, #08H, LED_9
MOV A, #80H
AJMP CHUANKOUSHUCHU
LED_9:
MOV A, #84
CHUANKOUSHUCHU:
MOV SCON,#00H;串行工作方式0
MOV SBUF,A;发送数据到缓冲器
CHUANKOU1:
JBC TI,CHUANKOU2;TI为1发送完毕，返回
SJMP CHUANKOU1;未发送完，继续等待
CHUANKOU2:
CLR TI;TI清零
RET
END
答 1: 单片机AT89S52DS18B20在HJ51/AVR单片机学习开发系统上的应用（供参考，摘自恒坚电器网站）：
; DS18B20 温度传感器读数接口
; 正确下载了程序以后，系统会利用数码管的后3位显示当前的温度值，最后一位是小数。
; 如果要移植这个程序中读取DS18B20的相关函数，您需要修改以下几个内容
; 根据您所选择晶振和我们板子上的晶振6M的关系，重新计算
; 初始化和读取，写入三个函数延时相关部分系数，用*标出
; 这个温度测试程序的温度精度是0.5C。
beep equ p3.7
segdata equ p0 ;数据 输出
sege equ p2.7 ;显示 选中
segb equ p2.6 ;位 选
segd equ p2.5 ;段 选
tmp0 equ 40h
tmp1 equ 41h
tmp2 equ 42h
tmp3 equ 43h
tmp equ 44h
buf equ 45h
dstmp bit p3.2 ;DS18B20在外部中断T0口，连器件的时候注意了
;我们活动式设计，您只要把DS18B20三只脚分开，准确识别三只脚的含义
;(这在我们光盘中提供了说明文件)，然后分别对应，插入面板下主芯片下
;方的扩展座对应的引脚即可
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
MOV SP,#30H
clr beep
LCALL GET_TEMP ;首先获得温度值
mov tmp,r7 ; R7是温度的低位
clr c
mov a,r6 ; R6是温度的高位
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成一次移位
mov a,r6
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成2次移位
mov a,r6
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成3次移位，这样以后便与计算
mov a,r7
mov b,#2
div ab
mov r0,a ;高位商
mov r1,b ;余数
mov b,#10
div ab
mov tmp1,b ;个位
mov b,#10
div ab
mov tmp2,b ;十位
mov tmp3,a ;百位
clr c
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数操作
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数扩大16倍
mov dptr,#ft
movc a,@a+dptr
mov tmp0,a
mov a,tmp3
jz noe ;0消隐
mov b,#3
acall display ;显示百位
noe: mov a,tmp2
mov b,#2
acall display ;在第二位显示十位
mov a,tmp1
add a,#16
mov b,#1 ;第1位显示个位，带小数点
acall display
mov a,tmp0
mov b,#0 ;显示小数
acall display
SJMP main
GET_TEMP:
CLR PSW.4
SETB PSW.3 ;设置工作寄存器当前所在的区域
CLR EA ;使用ds1820一定要禁止任何中断产生
LCALL INT ;调用初使化子程序
MOV A,#0CCH
LCALL WRITE ;送入跳过ROM命令
MOV A, #44H
LCALL WRITE ;送入温度转换命令
LCALL INT ;温度转换完全,再次初使化ds1820
MOV A,#0CCH
LCALL WRITE ;送入跳过ROM命令
MOV A,#0BEH
LCALL WRITE ;送入读温度暂存器命令
LCALL READ
MOV R7,A ;读出温度值低字节存入R7
LCALL READ
MOV R6,A ;读出谩度值高字节存入R6
SETB EA
RET
INT: ;初始化ds1820子程序
CLR EA
L0:CLR dstmp ;ds1820总线为低复位电平
MOV R2,#100 ;****** <== 移植需要修改参数，下同
L1:CLR dstmp
DJNZ R2,L1 ;总线复位电平保持400us
SETB dstmp ;释放ds1820总线
MOV R2,#15 ;*********************
L4:DJNZ R2,L4 ;释放ds1820总线保持60us
CLR C ;清存在信号(存在C=0,不存在C=1)
ORL C,dstmp
JC L0 ;存在吗?不存在则重新来
MOV R6,#40 ;*********************
L5:ORL C,dstmp
JC L3
DJNZ R6,L5
SJMP L0
L3:MOV R2,#120 ;**********************
L2:DJNZ R2,L2
RET
WRITE: ;向ds1820写操作命令子程序
CLR EA
MOV R3,#8 ;写入ds1820的bit数,一个字节8个bit
WR1:SETB dstmp
MOV R4,#4 ;**********************
RRC A ;把一个字节data(A)分成8个bit环移给 C
CLR dstmp ;开始写入ds1820总线要处于复位(低)状态
WR2:DJNZ R4,WR2 ;ds1820总线复位保持16us
MOV dstmp,C ;写入一个bit
MOV R4,#10 ;**********************
WR3:DJNZ R4,WR3 ;等待40us
DJNZ R3,WR1 ;写入下一个bit
SETB dstmp ;重新释放ds1820总线
RET
READ:
CLR EA
MOV R6,#8 ;连续读8个bit
RE1:CLR dstmp ;读前总线保持为低
MOV R4,#2 ;**********************
NOP
SETB dstmp ;开始读，总线释放
RE2:DJNZ R4,RE2 ;持续8us
MOV C,dstmp ;从ds1820总线读得一个bit
RRC A ;把读得的位值环移给 A
MOV R5,#15
RE3:DJNZ R5,RE3 ;持续60us
DJNZ R6,RE1 ;读下一个bit
SETB dstmp ;重新释放ds1820总线
RET
;================定义一组小数表示码表
ft: db 0,0,1,1,2,3,4,4,5,6,6,7,7,8,9,9
;===================================================================================
;*** 显示参数说明 *********************
; A里面存放需要显示的数字
; B里面存放需要显示的数码管位数
; 如果B大于8，那么消隐所有数码显示内容
; 另外使用了一个临时存储单元，segtmp
;
display:
clr sege
mov dptr,#tab_nu
movc a,@a+dptr
mov segdata,a
setb segd
nop
clr segd
mov a,#1
lp: rl a
djnz b,lp
mov segdata,a
setb segb
nop
clr segb
acall delayds
mov segdata,#0
setb segb
nop
clr segb
ret
;************* 和显示配套的延时子程序 *********************************************
;*********** 延时 5ms ****************
delayds:
push psw
clr psw.3
setb psw.4
mov r0,#250
d5: djnz r0,d5
pop psw
ret
;************************************************************************************
;这是数字显示表格，其中 带小数点的数字比不带小数点的数字大16
; 比如 0 的显示代码为 0;那么 0.的显示代码为 16；如此类推
tab_nu:
db 0c0h, 0f9h, 0a4h, 0b0h, 99h , 92h , 82h, 0f8h ; 数字0-7 不带小数点代码
db 80h , 90h, 88h , 83h , 0c6h, 0a1h, 86h, 8eh ; 数字8-f 不带小数点代码
db 40h , 79h, 24h , 30h , 19h , 12h , 02h, 78h ; 数字0-7 带小数点代码
db 00h , 10h, 08h , 03h , 46h , 21h , 06h, 0eh ; 数字8-f 带小数点代码
;=======================================================================================================
END
temp equ 40h
temp1 equ 41h
temp2 equ 42h
TEMPER_NUM equ 60h
main:
acall readtemp
acall TEMPER_COV
acall led_wendu
ajmp main
RESET:
L0: CLR p3.5 ; 长英科技2000/9/27
MOV R2,#200
L1: NOP
DJNZ R2,L1 ;主机发置位脉冲持续3us﹡200=600us
SETB p3.5 ;主机释放总线控制p3.5口改为输入口
MOV R2,#30
L4: DJNZ R2,L4 ;DS18B20等待2us﹡30=60us
CLR C
ORL C,p3.5 ;DS18B20数据线应变低
JC L0 ;DS18B20没准备好，重来
MOV R6,#80
L5: ORL C,p3.5
JC L3 ;DS18B20数据线变高，初始化成功
DJNZ R6,L5 ;DS18B20数据线低电平状态可持续3us﹡80=240us
SJMP L0 ;初始化失败，重来
L3: MOV R2,#250
L2: DJNZ R2,L2 ;DS18B20应答过程最少 > 480us
RET
WRITE: MOV R3,#8
WR1: SETB p3.5
MOV R4,#8
RRC A
CLR p3.5
WR2: DJNZ R4,WR2 ;DS18B20栽数据线变低16us
MOV p3.5,C ;将命令字按位依次送给DS18B20
MOV R4,#20
WR3: DJNZ R4,WR3 ;保证整个写过程持续60us
DJNZ R3,WR1 ;送完整个命令字节
SETB p3.5
RET
READ: MOV R6,#8
RE1: CLR p3.5
MOV R4,#6
NOP ;低电平持续2us
SETB p3.5 ;p3.5口设为输入口
RE2: DJNZ R4,RE2 ;等待12us
MOV C,p3.5 ;主机按位读入DS18B20的数据
RRC A ;数据送入A
MOV R5,#30
RE3: DJNZ R5,RE3 ;保证读数据过程持续2us﹡30=60us
DJNZ R6,RE1 ;读完8位
MOV TEMP,A ;将读出值送变量TEMP保存
SETB p3.5
RET
READTEMP : acall RESET ;复位
MOV A,#0CCH ;发SKIP ROM命令
acall WRITE
MOV A,#44H ;发开始温度转换命令
acall WRITE
acall DELAY_1000 ;延时 1000 MS
acall RESET ;复位
MOV A,#0CCH ;发SKIP ROM命令
acall WRITE
MOV A,#0BEH ;发读存储器命令
acall WRITE
CALL READ ；读出温度值低
MOV TEMP1,TEMP
CALL READ ；读出温度值高
MOV TEMP2,TEMP
acall RESET ;复位
RET
TEMPER_COV:
MOV A,#0F0H
ANL A,temp1 ; 舍去温度低位中小数点后的四位温度数值
SWAP A
MOV TEMPER_NUM,A
MOV A,temp1
JNB ACC.3,TEMPER_COV1 ; 四舍五入去温度值
INC TEMPER_NUM
TEMPER_COV1:
MOV A,temp2
ANL A,#07H
SWAP A
ORL A,TEMPER_NUM
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 TEMPER_NUM,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
DB 80H,81H,82H,83H,84H,85H,86H,87H
DB 88H,89H,90H,91H,92H,93H,94H,95H
DB 96H,97H,98H,99H
delay_1000:
一秒延时
ret
LED_WENDU: ;显示采样水温
MOV A,60H
ANL A,#0FH
ACALL LED_0
MOV A,60H
SWAP A
ANL A,#0FH
ACALL LED_0
MOV A,#0FFH;灯不亮
ACALL CHUANKOUSHUCHU
RET
LED_0:
CJNE A, #00H, LED_1
MOV A, #81H
AJMP CHUANKOUSHUCHU
LED_1:
CJNE A, #01H, LED_2
MOV A, #0CFH
AJMP CHUANKOUSHUCHU
LED_2:
CJNE A, #02H, LED_3
MOV A, #92H
AJMP CHUANKOUSHUCHU
LED_3:
CJNE A, #03H, LED_4
MOV A, #86H
AJMP CHUANKOUSHUCHU
LED_4:
CJNE A, #04H, LED_5
MOV A, #0CCH
AJMP CHUANKOUSHUCHU
LED_5:
CJNE A, #05H, LED_6
MOV A, #0A4H
AJMP CHUANKOUSHUCHU
LED_6:
CJNE A, #06H, LED_7
MOV A, #0A0H
AJMP CHUANKOUSHUCHU
LED_7:
CJNE A, #07H, LED_8
MOV A, #8FH
AJMP CHUANKOUSHUCHU
LED_8:
CJNE A, #08H, LED_9
MOV A, #80H
AJMP CHUANKOUSHUCHU
LED_9:
MOV A, #84
CHUANKOUSHUCHU:
MOV SCON,#00H;串行工作方式0
MOV SBUF,A;发送数据到缓冲器
CHUANKOU1:
JBC TI,CHUANKOU2;TI为1发送完毕，返回
SJMP CHUANKOU1;未发送完，继续等待
CHUANKOU2:
CLR TI;TI清零
RET
END
答 1: 单片机AT89S52DS18B20在HJ51/AVR单片机学习开发系统上的应用（供参考，摘自恒坚电器网站）：
; DS18B20 温度传感器读数接口
; 正确下载了程序以后，系统会利用数码管的后3位显示当前的温度值，最后一位是小数。
; 如果要移植这个程序中读取DS18B20的相关函数，您需要修改以下几个内容
; 根据您所选择晶振和我们板子上的晶振6M的关系，重新计算
; 初始化和读取，写入三个函数延时相关部分系数，用*标出
; 这个温度测试程序的温度精度是0.5C。
beep equ p3.7
segdata equ p0 ;数据 输出
sege equ p2.7 ;显示 选中
segb equ p2.6 ;位 选
segd equ p2.5 ;段 选
tmp0 equ 40h
tmp1 equ 41h
tmp2 equ 42h
tmp3 equ 43h
tmp equ 44h
buf equ 45h
dstmp bit p3.2 ;DS18B20在外部中断T0口，连器件的时候注意了
;我们活动式设计，您只要把DS18B20三只脚分开，准确识别三只脚的含义
;(这在我们光盘中提供了说明文件)，然后分别对应，插入面板下主芯片下
;方的扩展座对应的引脚即可
ORG 0000H
AJMP MAIN
ORG 0030H
MAIN:
MOV SP,#30H
clr beep
LCALL GET_TEMP ;首先获得温度值
mov tmp,r7 ; R7是温度的低位
clr c
mov a,r6 ; R6是温度的高位
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成一次移位
mov a,r6
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成2次移位
mov a,r6
rrc a
mov r6,a
mov a,r7
rrc a
mov r7,a ;完成3次移位，这样以后便与计算
mov a,r7
mov b,#2
div ab
mov r0,a ;高位商
mov r1,b ;余数
mov b,#10
div ab
mov tmp1,b ;个位
mov b,#10
div ab
mov tmp2,b ;十位
mov tmp3,a ;百位
clr c
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数操作
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数
mov a,tmp
rlc a
mov tmp,a
mov a,r1
rlc a
mov r1,a ;小数扩大16倍
mov dptr,#ft
movc a,@a+dptr
mov tmp0,a
mov a,tmp3
jz noe ;0消隐
mov b,#3
acall display ;显示百位
noe: mov a,tmp2
mov b,#2
acall display ;在第二位显示十位
mov a,tmp1
add a,#16
mov b,#1 ;第1位显示个位，带小数点
acall display
mov a,tmp0
mov b,#0 ;显示小数
acall display
SJMP main
GET_TEMP:
CLR PSW.4
SETB PSW.3 ;设置工作寄存器当前所在的区域
CLR EA ;使用ds1820一定要禁止任何中断产生
LCALL INT ;调用初使化子程序
MOV A,#0CCH
LCALL WRITE ;送入跳过ROM命令
MOV A, #44H
LCALL WRITE ;送入温度转换命令
LCALL INT ;温度转换完全,再次初使化ds1820
MOV A,#0CCH
LCALL WRITE ;送入跳过ROM命令
MOV A,#0BEH
LCALL WRITE ;送入读温度暂存器命令
LCALL READ
MOV R7,A ;读出温度值低字节存入R7
LCALL READ
MOV R6,A ;读出谩度值高字节存入R6
SETB EA
RET
INT: ;初始化ds1820子程序
CLR EA
L0:CLR dstmp ;ds1820总线为低复位电平
MOV R2,#100 ;****** <== 移植需要修改参数，下同
L1:CLR dstmp
DJNZ R2,L1 ;总线复位电平保持400us
SETB dstmp ;释放ds1820总线
MOV R2,#15 ;*********************
L4:DJNZ R2,L4 ;释放ds1820总线保持60us
CLR C ;清存在信号(存在C=0,不存在C=1)
ORL C,dstmp
JC L0 ;存在吗?不存在则重新来
MOV R6,#40 ;*********************
L5:ORL C,dstmp
JC L3
DJNZ R6,L5
SJMP L0
L3:MOV R2,#120 ;**********************
L2:DJNZ R2,L2
RET
WRITE: ;向ds1820写操作命令子程序
CLR EA
MOV R3,#8 ;写入ds1820的bit数,一个字节8个bit
WR1:SETB dstmp
MOV R4,#4 ;**********************
RRC A ;把一个字节data(A)分成8个bit环移给 C
CLR dstmp ;开始写入ds1820总线要处于复位(低)状态
WR2:DJNZ R4,WR2 ;ds1820总线复位保持16us
MOV dstmp,C ;写入一个bit
MOV R4,#10 ;**********************
WR3:DJNZ R4,WR3 ;等待40us
DJNZ R3,WR1 ;写入下一个bit
SETB dstmp ;重新释放ds1820总线
RET
READ:
CLR EA
MOV R6,#8 ;连续读8个bit
RE1:CLR dstmp ;读前总线保持为低
MOV R4,#2 ;**********************
NOP
SETB dstmp ;开始读，总线释放
RE2:DJNZ R4,RE2 ;持续8us
MOV C,dstmp ;从ds1820总线读得一个bit
RRC A ;把读得的位值环移给 A
MOV R5,#15
RE3:DJNZ R5,RE3 ;持续60us
DJNZ R6,RE1 ;读下一个bit
SETB dstmp ;重新释放ds1820总线
RET
;================定义一组小数表示码表
ft: db 0,0,1,1,2,3,4,4,5,6,6,7,7,8,9,9
;===================================================================================
;*** 显示参数说明 *********************
; A里面存放需要显示的数字
; B里面存放需要显示的数码管位数
; 如果B大于8，那么消隐所有数码显示内容
; 另外使用了一个临时存储单元，segtmp
;
display:
clr sege
mov dptr,#tab_nu
movc a,@a+dptr
mov segdata,a
setb segd
nop
clr segd
mov a,#1
lp: rl a
djnz b,lp
mov segdata,a
setb segb
nop
clr segb
acall delayds
mov segdata,#0
setb segb
nop
clr segb
ret
;************* 和显示配套的延时子程序 *********************************************
;*********** 延时 5ms ****************
delayds:
push psw
clr psw.3
setb psw.4
mov r0,#250
d5: djnz r0,d5
pop psw
ret
;************************************************************************************
;这是数字显示表格，其中 带小数点的数字比不带小数点的数字大16
; 比如 0 的显示代码为 0;那么 0.的显示代码为 16；如此类推
tab_nu:
db 0c0h, 0f9h, 0a4h, 0b0h, 99h , 92h , 82h, 0f8h ; 数字0-7 不带小数点代码
db 80h , 90h, 88h , 83h , 0c6h, 0a1h, 86h, 8eh ; 数字8-f 不带小数点代码
db 40h , 79h, 24h , 30h , 19h , 12h , 02h, 78h ; 数字0-7 带小数点代码
db 00h , 10h, 08h , 03h , 46h , 21h , 06h, 0eh ; 数字8-f 带小数点代码
;=======================================================================================================
END
共2条
1/1 1 跳转至页
回复
| 有奖活动 | |
|---|---|
| 【有奖活动】分享技术经验，兑换京东卡 | |
| 话不多说，快进群！ | |
| 请大声喊出：我要开发板！ | |
| 【有奖活动】EEPW网站征稿正在进行时，欢迎踊跃投稿啦 | |
| 奖！发布技术笔记，技术评测贴换取您心仪的礼品 | |
| 打赏了！打赏了！打赏了！ | |
| 打赏帖 | |
|---|---|
| vscode+cmake搭建雅特力AT32L021开发环境被打赏30分 | |
| 【换取逻辑分析仪】自制底板并驱动ArduinoNanoRP2040ConnectLCD扩展板被打赏47分 | |
| 【分享评测，赢取加热台】RISC-V GCC 内嵌汇编使用被打赏38分 | |
| 【换取逻辑分析仪】-基于ADI单片机MAX78000的简易MP3音乐播放器被打赏48分 | |
| 我想要一部加热台+树莓派PICO驱动AHT10被打赏38分 | |
| 【换取逻辑分析仪】-硬件SPI驱动OLED屏幕被打赏36分 | |
| 换逻辑分析仪+上下拉与多路选择器被打赏29分 | |
| Let'sdo第3期任务合集被打赏50分 | |
| 换逻辑分析仪+Verilog三态门被打赏27分 | |
| 换逻辑分析仪+Verilog多输出门被打赏24分 | |
STM32
MCU
通讯及无线技术
物联网技术
电子DIY
板卡试用
基础知识
软件与操作系统
我爱生活
小e食堂