012345.asm

LED灯的一些源码

;数码管动态扫描显示012345
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
	ORG	0000H
	AJMP	MAIN
	ORG	0030H
MAIN:
	SETB	P2.6
	CLR 	P2.1      ;选中第一个数码管 
	MOV 	P0,#28H   ;显示0
	LCALL 	DELAY     ; 调用延时
	MOV 	P0,#0FFH  ;关显示
	SETB	P2.1  
	CLR	P2.2      ;选中第二个数码管
	MOV 	P0,#7EH   ;显示1
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.2
	CLR	P2.3       ;选中第三个数码管
	MOV 	P0,#0A2H   ;显示2
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.3
	CLR	P2.4       ;选中第四个数码管
	MOV 	P0,#62H   ;显示3 
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.4
	CLR	P2.5       ;选中第五个数码管
	MOV 	P0,#74H    ;显示4
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.5
	CLR	P2.6       ;选中第六个数码管
	MOV 	P0,#61H    ; 显示5
	LCALL 	DELAY 
	MOV 	P0,#0FFH	 
	AJMP	MAIN       ;重新开始
DELAY:                     ;延时子程序
	MOV	R7,#2
	NOP
	NOP
D1:	MOV	R6,#25
	SETB	P3.3       ;小喇叭同时响
D2:	DJNZ	R6,D2
	CLR	P3.3
	DJNZ	R7,D1
	SETB	P3.3
	RET
	END