返回主页 单片机教程XL2000开发板 单片机学习 自制编程器 单片机资料 软件下载 电子技术产品介绍如何购买 论坛



;********************************************************************************
;adc0804制作的温度控制器, 设一个加热器p2.0一个制冷器p1.4 *
;设定下限温度30度(设4bh)存31h上限温度60度(设96h)存30h *
;调整ad电位器可观察到p2.0,p1.4继电器端口的动作范围*
;此程序仅仅供演示,如果实际应用请另外扩展继电器以及温度/电压转换部分 *
;********************************************************************************
;* 日期: 2007-3-25 *
;* 版本: 3.0 *
;* 作者: 深圳学林电子有限公司 专业8051单片机教程站 *
;* 邮箱: sxj1974@163.com *
;* 网站: http://www.51c51.com http://www.8951.com 更多例程请登陆网站 *
;********************************************************************************
;* 硬件:此程序在本公司xlisp系列单片机实验仪运行通过 *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考,引用请注明版权和作者信息! *
;********************************************************************************

hex格式文件下载(点右键,目标另存为hex即可直接烧写)


;//定义ADC的连接端口................
ad_cs equ P3.6
ad_wr equ P3.2
ad_rd equ P3.7
ad_input equ p1
org 0000h
ajmp main
org 0030h
main:
lcall adc_demo
ajmp main
;........启动AD转换.................
Adc_Start:
clr ad_cs
nop
clr ad_wr
nop
setb ad_wr
nop
setb ad_cs
nop
ret
;.........读AD转换...................
Adc_Read:
mov ad_input,#0ffh
clr ad_cs
nop
clr ad_rd
nop
nop
mov a,AD_INPUT
nop
setb ad_rd
nop
setb ad_cs
ret
;............. AD转换程序.............
Adc_Demo:
lcall Adc_Start
lcall delay1ms
lcall adc_read
mov 34h,a ;现在的温度存34h
mov 31h,#4bh ;下限温度30度存31h
mov 30h,#96h ;上限温度60度存30h
clr c
subb a,32h ;现在的温度和以前的温度相减
jc tdown ;c=0取入值较大,表示上升否则下降
tup:mov a,34h ;取出现有温度
clr c ;c=0
subb a,30h ;与上限温度比较,c=1则需要加热否则c=0则需要制冷
jnc poff
jmp loop
poff:clr p1.4;开始制冷
setb p2.0
jmp loop

tdown:mov a,34h ;取出现有温度
clr c
subb a,31h ;与下限温度比较,c=1则需要加热否则c=0则需要制冷
jc pon
jmp loop

pon: clr p2.0 ;开始加热
setb p1.4
jmp loop

loop:mov 32h,34h ;把现有温度存32h
clr a ;清除a
mov r4,#0ffh ;延长时间
djnz r4,$
jmp Adc_Demo ;继续监测温度

delay1ms: ;延时子程序
movr7,#10
MM:movr6,#50
djnzr6,$ 
djnzr7,MM
ret
end