📄 adc0804制作的温度控制器,.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0039)http://www.8951.com/TEST/TEST/tl002.htm -->
<HTML><HEAD><TITLE>单片机通信</TITLE><LINK href="adc0804制作的温度控制器,.files/gpszx.css"
type=text/css rel=stylesheet><LINK href="../index.files/gpszx.css" type=text/css
rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId></HEAD>
<BODY>
<DIV align=center>
<TABLE height=356 cellSpacing=0 cellPadding=0 width=769 bgColor=#66ccff
borderColorLight=#000000 border=0>
<TBODY>
<TR>
<TD align=middle width=752 bgColor=#ffffff colSpan=5 height=356>
<P align=left><FONT font><FONT color=#ff0000>单片机提高</FONT><FONT
color=#ff0000><IMG height=11 src="adc0804制作的温度控制器,.files/gif091.gif"
width=28 border=0></FONT><FONT color=#454545>WWW.51C51.COM
自学单片机的网站：作中国单片机编程技术普及推广第一站！倚天一出宝刀屠龙</FONT></FONT><IMG height=100
src="adc0804制作的温度控制器,.files/titou2.jpg" width=760 border=0> <FONT
color=#454545 font><A href="http://www.8951.com/index.htm">返回主页 给我留言</A>
<A href="http://www.8951.com/jiaoxue.htm">单片机教学</A> <A
href="http://www.8951.com/tigao.htm">单片机提高</A> <A
href="http://www.8951.com/pinzhi.htm">品质技术</A> <A
href="http://www.8951.com/1000/WANGZHI.HTM">单片机网址</A> <A
href="http://www.8951.com/down/down.htm">软件下载</A> <A
href="http://www.8951.com/yejin/yejin.htm">学液晶显示</A> <A
href="http://www.8951.com/chanpin.htm">产品介绍</A> <A
href="http://www.8951.com/10/huikan.htm">如何购买</A></FONT><FONT size=2>
<BR><BR>;adc0804制作的温度控制器,
设一个加热器p2.0一个制冷器p1.4<BR>;设定下限温度30度(设4bh)存31h上限温度60度(设96h)存30h<BR>;调整腾龙版的ad电位器可观察到p2.0,p1.4继电器端口的动作范围<BR>;此程序仅仅供演示,如果实际应用请另外扩展继电器以及温度/电压转换部分<BR>;***************************************************************************<BR>;*
(程序转载请著明出处
，未声明可适应本站腾龙/isp开发套件/倚天版开发套件
*<BR>;* E-mail:sxj1974@163.com (51c51 test web)
51单片机学习网，自学单片机的网站
*<BR>;* Create by :石学军 <A
href="http://www.51c51.com/">http://www.51c51.com/</A>
www.8951.com
更多例程请登陆网站
*<BR>;***************************************************************************<BR>;//定义ADC的连接端口<BR>ad_cs
equ P3.6<BR>ad_wr equ P3.2<BR>ad_rd equ P3.7<BR>ad_input equ p1<BR>org
0000h<BR>ajmp main<BR>org 0030h<BR>main:<BR>lcall adc_demo<BR>ajmp
main<BR>;........启动AD转换.................<BR>Adc_Start:<BR>clr
ad_cs<BR>nop<BR>clr ad_wr<BR>nop<BR>setb ad_wr<BR>nop<BR>setb
ad_cs<BR>nop<BR>ret<BR><BR>;.........读AD转换...................<BR><BR>Adc_Read:<BR>mov
ad_input,#0ffh<BR>clr ad_cs<BR>nop<BR>clr ad_rd<BR>nop<BR>nop<BR>mov
a,AD_INPUT<BR>nop<BR>setb ad_rd<BR>nop<BR>setb
ad_cs<BR>ret<BR>;............. AD转换程序.............<BR>Adc_Demo:<BR>lcall
Adc_Start<BR>lcall delay1ms<BR>lcall adc_read<BR>mov 34h,a
;现在的温度存34h<BR>mov 31h,#4bh ;下限温度30度存31h<BR>mov 30h,#96h
;上限温度60度存30h<BR>clr c<BR>subb a,32h ;现在的温度和以前的温度相减<BR>jc tdown
;c=0取入值较大,表示上升否则下降<BR>tup:mov a,34h ;取出现有温度<BR>clr c ;c=0<BR>subb a,30h
;与上限温度比较,c=1则需要加热否则c=0则需要制冷<BR>jnc poff<BR>jmp loop<BR>poff:clr p1.4
;开始制冷<BR>setb p2.0<BR>jmp loop<BR><BR>tdown:mov a,34h ;取出现有温度<BR>clr
c<BR>subb a,31h ;与下限温度比较,c=1则需要加热否则c=0则需要制冷<BR>jc pon<BR>jmp
loop<BR><BR>pon: clr p2.0 ;开始加热<BR>setb p1.4<BR>jmp loop<BR><BR>loop:mov
32h,34h ;把现有温度存32h<BR>clr a ;清除a<BR>mov r4,#0ffh ;延长时间<BR>djnz r4,$<BR>jmp
Adc_Demo ;继续监测温度<BR><BR>delay1ms: ;延时子程序<BR>mov r7,#10<BR>MM:mov
r6,#50<BR>djnz r6,$ <BR>djnz
r7,MM<BR>ret<BR>end<BR><BR><BR><BR><BR><BR><BR><BR></FONT></P></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -