用MS-51单片机编写的跑马灯程序

[复制链接]
3129|5
 楼主| laslison 发表于 2010-1-21 23:16 | 显示全部楼层 |阅读模式
汇编的:
;p1口八个灯作跑马灯。

org 0000h
ajmp start
org 0030h
start:
mov a,#0ffh ;
clr c ;
mov r2,#08h ;循环八次。
loop: rlc a ;带进位左移。
mov p2,a ;输出到P1口。
call delay ;延时一段时间
djnz r2,loop ;反复循环
mov r2,#07h ;再往回循环。
loop1:
rrc a ;带进位右移
mov p2,a ;输出到P1口。
call delay ;延时一段时间
djnz r2,loop1 ;反复循环
jmp start ;重新开始

delay:
mov r3,#20 ;延时子程序
d1: mov r4,#200
d2: mov r5,#248
djnz r5,$
djnz r4,d2
ret

end


C语言的:

//例程:LED流水灯


#include<reg51.h>
#include <intrins.h>


void delayms(unsigned char ms)
// 延时子程序
{
unsigned char i;
while(ms--)
{
for(i = 0; i < 120; i++);
}
}

main()
{
unsigned char LED;
LED = 0xfe;
P0 = LED;

while(1)
{
delayms(250);
LED = _crol_(LED,1); //循环右移1位,点亮下一个LED
P2 = LED;
}
}
god_like 发表于 2010-1-21 23:50 | 显示全部楼层
哦,LZ自己做出来的
Karlshen 发表于 2010-1-24 18:05 | 显示全部楼层
我最近在学51,看看啊
xiaoxin1986 发表于 2010-1-24 22:17 | 显示全部楼层
不错写的挺好的,继续努力
 楼主| laslison 发表于 2010-1-26 12:27 | 显示全部楼层
2# god_like
哦,不是,在别的地方看到的,贴出来让大家看看
wangwo 发表于 2010-1-29 14:34 | 显示全部楼层
两个版本对比,不错
您需要登录后才可以回帖 登录 | 注册

本版积分规则

95

主题

791

帖子

1

粉丝
快速回复 在线客服 返回列表 返回顶部