单片机制作—3x138 24LED流水灯程序+电路图 -

标题: 单片机制作—3x138 24LED流水灯程序+电路图 [打印本页]

作者: lianlian 时间: 2015-7-14 17:01
标题: 单片机制作—3x138 24LED流水灯程序+电路图

程序清单：

51汇编

3x138，24灯流水

;D:\DPJ\3x138_24LED流水灯\LSD.ASM

ORG 00H

AJMP MAIN

ORG 30H

MAIN:

MOV P2,A

SETB P2.3

ACALL DLY

CLR P2.3

INC A

CJNE A,#8,MAIN

MOV A,#0

CLR P2.3

MAIN2:

MOV P2,A

SETB P2.4

ACALL DLY

CLR P2.4

INC A

CJNE A,#8,MAIN2

MOV A,#0

CLR P2.4

MAIN3:

MOV P2,A

SETB P2.5

ACALL DLY

SETB P2.4

CLR P2.5

INC A

CJNE A,#8,MAIN3

MOV A,#0

CLR P2.5

AJMP MAIN

DLY: ;0.5S

MOV R7,#4

MOV R6,#255

MOV R5,#255

DJNZ R5,$

DJNZ R6,$-4

DJNZ R7,$-8

RET

END

--------------------------------------------------------------------

51c

/3只138，控制24只LED流水灯

//2011 04 23 E:\DPJ_C\8x138LSD.c

#include <reg51.h>

#define uchar unsigned char

sbit E10=P2^3; //第1 片138 E1

sbit E11=P2^4; //第2 片138 E1

sbit E12=P2^5; //第3 片138 E1

delay_ms(unsigned int ms)

{

uchar i;

while(ms--)

for(i=123;i>0;i--);

}

void main(void)

{

uchar a=0;

while(a!=8)

{

P2=a;

E10=1;

delay_ms(500 );

E10=0;

a++;

}

a=0;

while(a!=8)

{

P2=a;

E11=1;

delay_ms(500);

E11=0;

a++;

}

a=0;

while(a!=8)

{

P2=a;

E12=1;

delay_ms(500 );

E12=0;

a++;

}

欢迎光临 (http://www.51hei.com/bbs/)