📄 制作简单的红外测障器.htm
字号:
<P>Ｃ５１源码如下 <BR>/*---------------------------------------- <BR>IREye.c </P>
<P>红外测障器 <BR>用于模型或机器人制作中，这是一个测试用的 <BR>版本，功能基本按设想完成了。我想这是我做
<BR>机器人DIY的一个好的开端，还要努力呀！！ </P>
<P>Copyright
2003<BR>htpp://www.cdle.net<BR>http://cdle.yeha.net<BR>http://cdle.126.com<BR>All
rights reserved. <BR>明浩 E-mail: pnzwzw@163.com or
pnzwzw@cdle.net<BR>----------------------------------------*/ </P>
<P>#include <AT892051.h> </P>
<P><BR>static unsigned char data LR; <BR>static bit OP; </P>
<P>void main(void) <BR>{ <BR>EA = 1; //允许CPU中断 <BR>TMOD = 0x11;
//设定时器0和1为16位模式1 <BR>ET0 = 1; //定时器0中断允许 <BR>ET1 = 1; //定时器1中断允许 <BR>IT0 =
1; //INT0下降沿有效 <BR>EX0 = 1; //外部中断允许 <BR>LR = 0; <BR>P1_6 = 0; <BR>P1_7 =
0; <BR>TH0 = 0xFF; <BR>TL0 = 0xE6; //设定时值0为38K 也就是每隔26us中断一次 <BR>TH1 =
0x9A; <BR>TL1 = 0x70; //设定时值1为26*1000us <BR>TR0 = 1;//开始计数 <BR>TR1 = 1;
<BR>do <BR>{ <BR>//这里可加别的东西如LED指示灯闪烁 <BR>} <BR>while(1); <BR>} </P>
<P>//定时器0中断处理 <BR>void timeint(void) interrupt 1 <BR>{ <BR>TH0=0xFF;
<BR>TL0=0xE6; //设定时值为38K 也就是每隔26us中断一次 <BR>if (P3_7==1) <BR>{ <BR>if
(OP==0) <BR>OP = 1; <BR>else <BR>OP = 0; <BR>if (LR==0) <BR>P3_4 = OP;
<BR>else <BR>P3_5 = OP; //根据LR标志点亮左或右IRLED <BR>} <BR>} </P>
<P>void timeint2(void) interrupt 3 <BR>{ <BR>if (LR==0) //左右IRLED轮换 <BR>LR
= 1; <BR>else <BR>LR = 0; <BR>TH1=0x9A; <BR>TL1=0x70; //设定时值1为26*1000us
<BR>} </P>
<P>void INT0Fun(void) interrupt 0 <BR>{ <BR>unsigned int data a; //输出
<BR>if (LR==0) <BR>P1_7 = 1; <BR>else <BR>P1_6 = 1; <BR>for (a=0;
a<3000; a++); <BR>P1_6 = 0; <BR>P1_7 = 0; <BR>}<BR></P><A title=点击图片看全图
href="制作简单的红外测障器.files/2004421037243.gif" target=_blank>
<P align=center><IMG alt="" src="制作简单的红外测障器.files/2004421037243.gif"
width=467
onload="javascript:if(this.width>screen.width-333)this.width=screen.width-333"
border=0></A><BR>点击放大</P>
<CENTER></CENTER></TD></TR>
<TR>
<TD class=Article_tdbgall align=right colSpan=2> </TD></TR>
<TR>
<TD width=5></TD>
<TD width=752>
<LI>上一篇文章： <A class=LinkPrevArticle
title="文章标题：自动启闭窗帘控制器 作 者：佚名 更新时间：2004-3-31 16:00:56"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=724">自动启闭窗帘控制器</A><BR>
<LI>下一篇文章： <A class=LinkNextArticle
title="文章标题：红外微电脑自动泵液器 作 者：佚名 更新时间：2004-4-2 12:01:03"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=726">红外微电脑自动泵液器</A></LI></TD></TR>
<TR class=Article_tdbgall align=right>
<TD colSpan=2>【<A
href="http://www.ggdz.net/Article/Comment.asp?ArticleID=725"
target=_blank>发表评论</A>】【<A
href="http://www.ggdz.net/User/User_Favorite.asp?Action=Add&ChannelID=1&InfoID=725"
target=_blank>加入收藏</A>】【<A
href="http://www.ggdz.net/Article/SendMail.asp?ArticleID=725"
target=_blank>告诉好友</A>】【<A
href="http://www.ggdz.net/Article/Print.asp?ArticleID=725"
target=_blank>打印此文</A>】【<A href="javascript:window.close();">关闭窗口</A>】
</TD></TR></TBODY></TABLE>
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR>
<TD class=main_shadow></TD></TR></TBODY></TABLE><!--文章显示代码结束--><!--最新热点、最新推荐、相关文章代码开始-->
<TABLE class=center_tdbgall style="WORD-BREAK: break-all" cellSpacing=0
cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD class=main_title_282 width="33%"><B>最新热点</B></TD>
<TD width=5 rowSpan=2></TD>
<TD class=main_title_282 width="33%"><B>最新推荐</B></TD>
<TD width=5 rowSpan=2></TD>
<TD class=main_title_282 width="33%"><B>相关文章</B></TD></TR>
<TR>
<TD class=main_tdbg_760 vAlign=top height=100>
<SCRIPT language=javascript
src="制作简单的红外测障器.files/Article_Hot3.js"></SCRIPT>
</TD>
<TD class=main_tdbg_760 vAlign=top width="33%">
<SCRIPT language=javascript
src="制作简单的红外测障器.files/Article_Elite3.js"></SCRIPT>
</TD>
<TD class=main_tdbg_760 vAlign=top width="33%"><A
class=LinkArticleCorrelative
title="文章标题：饮水机自动开关电路 作 者：未知 更新时间：2006-12-22 9:59:36"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=8898"
target=_self>饮水机自动开关电路</A><BR><A class=LinkArticleCorrelative
title="文章标题：自动洗手器电路图 作 者：未知 更新时间：2006-7-13 3:02:48"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=8491"
target=_self>自动洗手器电路图</A><BR><A class=LinkArticleCorrelative
title="文章标题：自动干手器电路图 作 者：未知 更新时间：2006-7-13 3:01:15"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=8490"
target=_self>自动干手器电路图</A><BR><A class=LinkArticleCorrelative
title="文章标题：热释电红外线传感信号处理器BISS0001 作 者：佚名 更新时间：2004-8-16 10:18:00"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=7793"
target=_self>热释电红外线传感信号处理器</A><BR><A class=LinkArticleCorrelative
title="文章标题：热释电红外线传感信号处理器 OT0001 作 者：佚名 更新时间：2004-4-10 14:09:52"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=7604"
target=_self>热释电红外线传感信号处理器</A><BR><A class=LinkArticleCorrelative
title="文章标题：人体遥感照明电路 作 者：佚名 更新时间：2004-11-9 1:49:58"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=1166"
target=_self>人体遥感照明电路</A><BR><A class=LinkArticleCorrelative
title="文章标题：自制人体热电自动节能灯 作 者：佚名 更新时间：2004-8-7 17:28:39"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=1158"
target=_self>自制人体热电自动节能灯</A><BR><A class=LinkArticleCorrelative
title="文章标题：红外线光控开关 作 者：佚名 更新时间：2004-4-29 23:20:37"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=1150"
target=_self>红外线光控开关</A><BR><A class=LinkArticleCorrelative
title="文章标题：WHY-1型外气红外显示仪电路剖析 作 者：虞荣生 更新时间：2005-3-23 1:27:47"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=785"
target=_self>WHY-1型外气红外显示仪电路剖</A><BR><A class=LinkArticleCorrelative
title="文章标题：红外抽油烟机开关控制器 作 者：佚名 更新时间：2004-11-22 8:03:00"
href="http://www.ggdz.net/Article/ShowArticle.asp?ArticleID=774"
target=_self>红外抽油烟机开关控制器</A><BR></TD></TR></TBODY></TABLE>
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR>
<TD class=main_shadow></TD></TR></TBODY></TABLE><!--最新热点、最新推荐、相关文章代码结束--><!--网友评论代码开始-->
<TABLE class=center_tdbgall style="WORD-BREAK: break-all" cellSpacing=0
cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR class=main_title_760>
<TD height=25> <IMG src="制作简单的红外测障器.files/TEAM.gif"
align=absMiddle> <STRONG>网友评论：</STRONG>（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
</TD></TR>
<TR>
<TD class=main_tdbg_760>
<SCRIPT language=javascript src="制作简单的红外测障器.files/Comment.htm"></SCRIPT>
</TD></TR></TBODY></TABLE>
<TABLE class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center
border=0>
<TBODY>
<TR>
<TD class=main_shadow>
<P align=center><IFRAME id=baiduframe border=0 marginWidth=0
frameSpacing=0 marginHeight=0 src="制作简单的红外测障器.files/barnners.htm"
frameBorder=0 width=740 scrolling=no height=50>
</IFRAME></P></TD></TR>
<TR>
<TD>
<P align=center>
<SCRIPT
src="C:\材料\平步青云\全国电子设计 大赛暑期培训\简易智能电动车设计\资料\制作简单的红外测障器.files\9vadshow(1).htm"></SCRIPT>
</P></TD></TR></TBODY></TABLE><!--网友评论代码结束--><!-- ********网页中部代码结束******** --><!-- ********网页底部代码开始******** -->
<TABLE class=Bottom_tdbgall style="WORD-BREAK: break-all" cellSpacing=0
cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR align=middle>
<TD class=Bottom_Adminlogo colSpan=3>| <A class=Bottom
onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.ggdz.net');"
href="http://www.ggdz.net/$">设为首页</A> | <A class=Bottom
href="javascript:window.external.addFavorite('http://www.ggdz.net','光辉电子资源中心综合网');">加入收藏</A>
| <A class=Bottom href="mailto:www.ggdz.net@126.com">联系站长</A> | <A
class=Bottom href="http://www.ggdz.net/FriendSite/Index.asp"
target=_blank>友情链接</A> | <A class=Bottom
href="http://www.ggdz.net/Copyright.asp" target=_blank>版权申明</A> | <A
class=Bottom href="http://www.ggdz.net/Admin/Admin_Index.asp"
target=_blank>管理登录</A> | </TD></TR>
<TR class=Bottom_Copyright>
<TD width=180><IMG height=60 src="制作简单的红外测障器.files/powerease_logo.gif"
width=180></TD>
<TD width=580>
<P align=center>电子爱好者QQ群：6150918(满员) 12931662(满员) 3610042
12931671<BR>郾城网吧服务QQ群：6151196 站长：<A
href="mailto:www.ggdz.net@126.com"><BR></A><A title=""
href="http://www.miibeian.gov.cn/" target=_blank><FONT
color=#ee0000><STRONG>豫ICP备05027165号</STRONG></FONT></A><A
href="mailto:www.ggdz.net@126.com"></P></A></TD>
<TD><IMG style="WIDTH: 180px; HEIGHT: 61px" height=60
src="制作简单的红外测障器.files/powerease_logo.gif" width=180></TD></TR></TBODY></TABLE>
<P align=center><FONT size=2>以下为自动链接交换，不是本站内容，如发现不良信息请及时通知 站长</FONT> <BR>
<SCRIPT language=JavaScript1.1 src="制作简单的红外测障器.files/textclick.htm"></SCRIPT>
<BR>
<SCRIPT language=javascript src=""></SCRIPT>
<SCRIPT language=javascript>
<!--
var m_tc_server="vip7.t2t2.com";
var m_tc_website="105638";
var m_tc_parent_website="0";
var m_tc_style="1";
//-->
</SCRIPT>
<SCRIPT language=javascript src="制作简单的红外测障器.files/visit.js"></SCRIPT>
</P>
<SCRIPT language=javascript src="制作简单的红外测障器.files/11.js"></SCRIPT>
<SCRIPT language=javascript src="制作简单的红外测障器.files/12.js"></SCRIPT>
<!-- ********网页底部代码结束******** --><NOSCRIPT><IFRAME
src="制作简单的红外测障器.files/bdun.htm" width=0
height=0></IFRAME></IFRAME></NOSCRIPT></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -