数码管显示“I LOVE U” 程序, 数码管

wxg1988

想说爱你很容易，你也可以这样，理科男的爱情也可以这么浪漫的，不信，你看看。
现象：
程序：
/***********************************************************
实验名称：用数码管显示“I LOVE U”字
程序说明：烧好程序，用短接帽短接J6的上端（ON）即可
实验平台：我爱51单片机开发箱
***********************************************************/

      ORG 0000H
      AJMP MAIN
      ORG 0030H
MAIN: MOV P1,#00H
      MOV R2,#00H
      MOV R7,#6
LOOP1:MOV R6,#100     ;扫描100次
LOOP0:MOV R2,#00H     ;初始化
      LCALL DISP      ;显示第1个字母
      MOV P1,#09H
      LCALL DELAY1
      MOV P1,#00H
      INC R2          ;显示第2个字母
      LCALL DISP
      SETB P1.2
      LCALL DELAY1
      CLR P1.2
      INC R2         ;显示第3个字母
      LCALL DISP
      SETB P1.4
      LCALL DELAY1
      CLR P1.4
      INC R2        ;显示第4个字母
      LCALL DISP
      SETB P1.5
      LCALL DELAY1
      CLR P1.5
      INC R2        ;显示第5个字母
      LCALL DISP
      SETB P1.7
      LCALL DELAY1
      CLR P1.7
      DJNZ R6,LOOP0
      DJNZ R7,LOOP1
      LCALL DELAY2
      LCALL DELAY2
      AJMP MAIN
DISP: MOV DPTR,#TAB     ;显示子程序
      MOV A,R2
      MOVC A,@A+DPTR
      MOV P0,A
      RET
DELAY1:MOV R5,#80       ;延时子程序
       DJNZ R5,$
       RET
DELAY2:MOV R4,#0DDH
LOOP3: MOV R5,#00H
LOOP2: DJNZ R5,LOOP2
       DJNZ R4,LOOP3
       RET
TABB 0C1H,86H,0C0H,0C7H,0CFH
END





标签：   博客   大赛   显示   博客大赛   s