proteus 版本8.9
仿真原理图如下(proteus仿真工程文件可到本帖附件中下载)
单片机源程序如下:
- ORG 0000H
- MOV P2,#00H ;关闭显示
- MAIN:MOV DPTR,#TABLE ;指向段码表首地址
- MOV R0,#0
- MOV R1,#01H ;点亮第一个数码管(共阳极)位码
- NEXT:MOV DPTR,#TABLE
- MOV P2,#0
- MOV A,R0
- MOVC A,@A+DPTR
- MOV P0,A ;送段码
- MOV A,R1
- MOV P2,A ;送位码
- ACALL DELAY ;调用延时1ms
- MOV P2,#0 ;关闭一个数码管
- INC R0 ;段码地址+1
- MOV A,R1 ;保存段码
- RL A ;左移点亮下一个数码管
- MOV R1,A ;保存位码
- ACALL DELAY ;延时1ms
- CJNE A,#80H,NEXT;显示前七个数码管
- MOV P2,#80H ;显示第8位
- MOV A,#7
- MOVC A,@A+DPTR ;查段码表得第8个数码管段码
- MOV P0,A ;送第8位段码
- ACALL DELAY ;延时1ms
- SJMP MAIN ;循环
- DELAY:
- MOV R6,#2
- L2:MOV R7,#7DH
- NOP
- NOP
- L1:DJNZ R7,L1
- DJNZ R6,L2
- RET
- TABLE:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
- END
复制代码
所有资料51hei提供下载:
键盘扫描.zip
(129.6 KB, 下载次数: 19)
|