您的位置:首页技术文栏LED应用
内容搜索:
阅读内容
背景:#EDF0F5 #FAFBE6 #FFF2E2 #FDE6E0 #F3FFE1 #DAFAF3 #EAEAEF 默认  

89C51单片机交通灯程序

[日期:2008-01-29 ] [来源:东哥开发网(www.picavr.com) 作者:佚名] [字体: (投递新闻)
1设计任务

( 按下时依次红灯全亮,同时数码管显示15S的到计时;东西绿灯亮,南北红灯亮,同时数码管显示30S的到计时;计闪次数8次。。。。。。。。。。。。)

2汇编程序

       MIAO EQU 30H

ORG 0000H

LJMP START

ORG 000BH

LJMP INTET0

START: LACALL  JS1

MOV P1,#0F6H                             ;点亮四个红灯

MOV P3,#0DEH

LCALL  DE15S                             ;延时15S

LLL: MOV P1,#0DBH                    ;东西绿灯亮,南北红灯亮

MOV P3,#0DEH

LCALL   DE30S                             ;延时30S

MOV P1,#0FFH                             ;东西绿灯灭,南北红灯亮

MOV P3,#0DEH

MOV R1,#08H                                ; 计闪次数8次

DDD: MOV P1,#0EDH                    ; 东西黄灯亮,南北红灯亮

MOV P3,#0DEH

ACALL DE02S

MOV P1,#0FFH                              ; 东西黄灯灭,南北红灯亮

DE6S: MOV R5,#60                        ;延时6S 

SJMP DE1

DE02S: MOV R5,#02H                    ; 延时0.2S

DE1: MOV R6,#200

DE2: MOV R7,#126

DE3: DJNZ R7,DE3

DJNZ R6,DE2

DJNZ R5,DE1

RET

JS1: MOV TMOD,#01H                ; 50MS定时常数

MOV TH0,#3CH

MOV TL0,#0B0H

MOV R0,#20                                      ; 1S定时常数

SETB EA

SETB ET0

RET

DE30S: MOV MIAO,#00H

NEXT: MOV A,MIAO

MOV B,#10

DIV AB

MOV DPTR,#TABLE

MOVC A,@A+DPTR

MOV P0,A

MOV A,B

MOVC A,@A+DPTR

MOV    P2,A 

LCALL DELY1S

INC MIAO

MOV A,MIAO

DEC  MIAO

MOV A,MIAO

CJNE A,#30,NEXT

LJMP DE30S

DE15S: MOV MIAO,#00H

NEXT: MOV A,MIAO

MOV B,#10

DIV AB

MOV DPTR,#TABLE

MOVC A,@A+DPTR

MOV P0,A

MOV A,B

MOVC A,@A+DPTR

MOV P2,A

LCALL DELY1S

INC MIAO

MOV A,MIAO

DEC  MIAO

MOV A,MIAO

CJNE A,#15,NEXT

LJMP DE15S

DELY1S: MOV R5,#100

D2: MOV R6,#20

D1: MOV R7,#248

DJNZ R7,$

DJNZ R6,D1

DJNZ R5,D2

RET

TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH

END
阅读:
录入:JETTA

推荐 】 【 打印
本文评论
      全部评论
    huazai1105 于03日评论道: 查看全部评论  
高手 你的硬件电路呢? 我看了两遍 还是没法完全看懂 想用protrues 仿真一下 没电路 还是不行
     于03日评论道: 查看全部评论  
是的...加我QQ870811365
    JETTA会员 于12日评论道: 查看全部评论  
这个程序是一个网友写的,不一定完全正确可做参考用,如你发现哪里还有问题,欢迎指正.下次我可改正.谢谢你!
    罗亮富 于12日评论道: 查看全部评论  
这程序有错误啊, 查表干嘛啊? MOV MIAO,#00H ,把00H装进去干吗?
发表评论


点评: 字数
姓名:
赞助商广告