控制循环灯实验.docVIP

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
控制循环灯实验

实验目的与任务 1. 学习keil软件编程与proteus仿真 2. 更深刻的认识51单片机的使用 3.了解并掌握循环灯的原理和编程 实验方案 1.利用proteus软件设计电路接线图,选用AT89C51单片机 2.利用KEIL编写汇编语言如下: ORG 0000H ;伪指令起始位置 LJMP MAIN ;跳转至主程序 ORG 0013H ;采用INT1中断 LJMP INT ;跳转中断程序 ORG 0100H ;主程序位置 MAIN: MOV SP,#70H ;堆栈栈底 SETB EA ;启动中断总开关 SETB EX1 ;启动INT1中断 CLR ET1 ;启动T1中断 MOV A,#0FEH 一个灯先亮 ABC: MOV P1,A ;给P1口赋值第一个灯亮 LCALL DELAY ;延时子程序 RL A ;左循环 SJMP ABC ;循环给P1口赋值第二个灯亮以此类推 INT: SETB RS0 CLR RS1 ;保护延时,改变寄存器所在组数,原先是0组,现在变成1组 MOV R7,#5 ;闪烁次数 ABD: MOV P1,#00H ;灯全亮 LCALL DELAY ;延时亮 MOV P1,#0FFH ;灯全灭 LCALL DELAY ;延时灭 DJNZ R7,ABD ;判断是否闪了5次 CLR RS0 ;返回开始的延时区,即0组延时数据 RETI DELAY: ;延时程序 MOV R5,#200 D1: MOV R6,#255 D2: DJNZ R6,D2 DJNZ R5,D1 RET END 3.将KEIL生成的HEX文件导入PROTEUS中的单片机中仿真,并进行调试。 三、实验结果 灯循环点亮,当按下中断开关时8个灯闪五次,结束后返回先前。 实验分析与总结: 1.在实验刚开始的时候,接好电路,但是灯不亮,发现是电阻阻值太大,导致电路不通。于是将电阻阻值改为200 2.中断时按下,灯没有闪烁。考虑可能是闪烁时间太短,人的眼睛分辨不出,所以增加LCALL延时子程序。 注意:延时时数值不能超出范围。 二:高低4位灯轮流点亮,并带有中断程序 程序:在原有程序基础上进行修改 ORG 0000H ;伪指令起始位置 LJMP MAIN ;跳转至主程序 ORG 0013H ;采用INT1中断 LJMP INT ;跳转中断程序 ORG 0100H ;主程序位置 MAIN: MOV SP,#70H ;堆栈栈底 SETB EA ;启动中断总开关 SETB EX1 ;启动INT1中断 CLR ET1 ;启动T1中断 MOV A,#0F0H 四个灯先亮 ABC: MOV P1,A ;给P1口赋值第一个灯亮 LCALL DELAY ;延时子程序 MOV P1,#00FH ;后四个灯亮 LCALL DELAY ;延时子程序 SJMP ABC ;循环给P1口赋值第二个灯亮以此类推 INT: SETB RS0 CLR RS1 ;保护延时,改变寄存器所在组数,原先是0组,现在变成1组 MOV R7,#5 ;闪烁次数 ABD: MOV P1,#00H ;灯全亮 LCALL DELAY ;延时亮 MOV P1,#0FFH ;灯全灭 LCALL DELAY ;延时灭 DJNZ R7,ABD ;判断是否闪了5次 CLR RS0 ;返回开始的延时区,即0组延时数据 RETI DELAY: ;延时程序 MOV R5,#200 D1: MOV R6,#255 D2: DJNZ R6,D2 DJNZ R5,D1 RET END 修改如上图所示,其他的程序语句不变

文档评论(0)

wuyuetian + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档