基于51单片机和AD590温度传感器温度采集的程序

Answer 1

这是一个项目中的汇编程序，供你参考
org 000h
jmp main
org 0030h
main:
mov r0,#40h
mov dptr,#0bff8h ;指向0809首地址
movx @dptr,a ;启动A/D转换
tt1:
movx a,@dptr ;读数
movx @r0,a ;存数
movx @dptr,a ;启动A/D转换
lcall delay128us ;等待转换完毕（至少128us）
movx a,@dptr
mov @r0,a
lcall tran ;模数-数据转换
lcall disp ;数据的静态显示
lcall delay1s
sjmp main
;;;;;;;;;;;;;;;;数据转换;;;;;;;;;;;;;;;
tran: ;数据转换
mov r0,#40h
mov r3,#00h
mov a,@r0 ;把r0中的数给a
mov b,#03h ;标度变换 3格一度
div ab
mov r3,b
mov b,#0ah ;将标度变换结果的整数部分进行BCD码转换
div ab
mov @r0,a ;将十位数送显示缓冲单元

inc r0 ;指向缓冲单元下一地址
mov @r0,b ;将个位数送显示缓冲单元

mov a,r3 ;标度转换结果小数部分处理
mov b,#03h ;实现三格一度
mul ab
inc r0
mov @r0,a ;送显示缓冲单元
lop: ret
;;;;;;;;;;静态显示子程序-串入并出;;;;;;;

disp:
mov dptr,#tab
mov r0,#40h ;r0指向缓存区首地址
mov a,@r0 ;将整数位数给a
movc a,@a+dptr ;利用表格计算十位七段LED数码管的段码
mov 40h,a ;将段码结果送入40h

inc r0 ;r0指向缓存区下一地址
mov a,@r0 ;将个位数给a
movc a,@a+dptr ;利用表格计算个位七段LED数码管的段码
mov 41h,a ;将段码结果送入41h

inc r0 ;r0指向缓存区下一地址
mov a,@r0 ;将小数给a
movc a,@a+dptr ;利用表格计算小数位七段LED数码管的段码
mov 42h,a ;将段码结果送入42h
;;;;;;;;;;;最后一位清零;;;;;;;;;;;;
mov 43h,#00h
mov a,43h
mov r7,#8
ccc: jb acc.7,aaa ;
clr p3.0 ;
jmp bbb
aaa: setb p3.0
bbb: setb p3.1
clr p3.1
rl a
djnz r7,ccc

;;;;;;;;小数位数显示;;;;;;;
mov a,42h
mov r7,#8
cc:
jb acc.7,aa ;
clr p3.0 ;
jmp bb
aa: setb p3.0
bb: setb p3.1
clr p3.1
rl a
djnz r7,cc ;所有位检测后顺序执行
;;;;;;;;;;;;个位数显示;;;;;;;;;;;
orl 41h,#80h ;个位数后置小数点
mov a,41h
mov r7,#8
dd: jb acc.7,ee
clr p3.0
jmp ff
ee: setb p3.0
ff: setb p3.1
clr p3.1
rl a
djnz r7,dd
;;;;十位数数显示;;;;;
mov a,40h
mov r7,#8
gg: jb acc.7,hh
clr p3.0
jmp ii
hh: setb p3.0
ii: setb p3.1
clr p3.1

rl a
djnz r7,gg

tab: db 3fh,06h,5bh,4fh,66h
db 6dh,7dh,07h,7fh,6fh

lop1:
ret
;;;;;;;;;;ADC0809转换所需时间;;;;;;;;;;
delay128us:
mov r5,#30
delay1:
mov r7,#5
delay2:
nop
nop
djnz r7,delay2
djnz r5,delay1
ret

;;;;;;;;;;为使数据显示稳定延时;;;;;;;;
delay1s:
mov r4,#10
delay00:
mov r5,#100
delay11:
mov r7,#249
delay22:
nop
nop
djnz r7,delay22
djnz r5,delay11
djnz r4,delay00
Ret

追问

求帮帮 这个程序改编成 可以就不用LED 显示 单片机处理的温度最后用无线模块传出去的程序吗？

Answer 2

我来帮你！！

追问

你好 会吗

追答

简单

追问

qq上聊吧

追答

我空间个人资料上有的！！

追问

没找到