131 1300 0010
在8X8點陣LED上顯示柱形，讓其先從左往右平滑移動三次，其次從右往左平滑移動三次，再次從上往下平滑移動三次，最后從下往上平滑移動三次，如此循環。
1． 程序設計內容
8X8點陣LED工作原理說明 ：8X8點陣共需要64個發光二極管組成，且每個發光二極管是放置在行線和列線的交叉點上，當對應的某一列置1電平，某一行置0電平，則相應的二極管就亮；因此要實現一根柱形的亮法，如圖49所示，對應的一列為一根豎柱，或者對應的一行為一根橫柱，因此實現柱的亮的方法如下所述：
一根豎柱：對應的列置1，而行則采用掃描的方法來實現。
一根橫柱：對應的行置0，而列則采用掃描的方法來實現。
2． 硬件電路
3．匯編源程序
ORG 00H
START： NOP
MOV R3，#3
LOP2： MOV R4，#8
MOV R2，#0
LOP1： MOV P1，#0FFH
MOV DPTR，#TABA
MOV A，R2
MOVC A，@A+DPTR
MOV P3，A
INC R2
LCALL DELAY
DJNZ R4，LOP1
DJNZ R3，LOP2
MOV R3，#3
LOP4： MOV R4，#8
MOV R2，#7
LOP3： MOV P1，#0FFH
MOV DPTR，#TABA
MOV A，R2
MOVC A，@A+DPTR
MOV P3，A
DEC R2
LCALL DELAY
DJNZ R4，LOP3
DJNZ R3，LOP4
MOV R3，#3
LOP6： MOV R4，#8
MOV R2，#0
LOP5： MOV P3，#00H
MOV DPTR，#TABB
MOV A，R2
MOVC A，@A+DPTR
MOV P1，A
INC R2
LCALL DELAY
DJNZ R4，LOP5
DJNZ R3，LOP6
MOV R3，#3
LOP8： MOV R4，#8
MOV R2，#7
LOP7： MOV P3，#00H
MOV DPTR，#TABB
MOV A，R2
MOVC A，@A+DPTR
MOV P1，A
DEC R2
LCALL DELAY
DJNZ R4，LOP7
DJNZ R3，LOP8
LJMP START
DELAY： MOV R5，#10
D2： MOV R6，#20
D1： MOV R7，#248
DJNZ R7，$
DJNZ R6，D1
DJNZ R5，D2
RET
TABA： DB 0FEH，0FDH，0FBH，0F7H，0EFH，0DFH，0BFH，07FH
TABB： DB 01H，02H，04H，08H，10H，20H，40H，80H
END
4．C51語言源程序
#include
unsigned char code taba［］={0xfe，0xfd，0xfb，0xf7，0xef，0xdf，0xbf，0x7f};
unsigned char code tabb［］={0x01，0x02，0x04，0x08，0x10，0x20，0x40，0x80};
void delay（void）
{
unsigned char i，j;
for（i=10;i》0;i--）
for（j=248;j》0;j--）;
}
void delay1（void）
{
unsigned char i，j，k;
for（k=10;k》0;k--）
for（i=20;i》0;i--）
for（j=248;j》0;j--）;
}
void main（void）
{
unsigned char i，j;
while（1）
{
for（j=0;j《3;j++） //from left to right 3 time
{
for（i=0;i《8;i++）
{
P3=taba［i］;
P1=0xff;
delay1（）;
}
}
for（j=0;j《3;j++） //from right to left 3 TIme
{
for（i=0;i《8;i++）
{
P3=taba［7-i］;
P1=0xff;
delay1（）;
}
}
for（j=0;j《3;j++） //from top to bottom 3 TIme
{
for（i=0;i《8;i++）
{
P3=0x00;
P1=tabb［7-i］;
delay1（）;
}
}
for（j=0;j《3;j++） //from bottom to top 3 TIme
{
for（i=0;i《8;i++）
{
P3=0x00;
P1=tabb［i］;
delay1（）;
}
}
}
}
