;數(shù)碼管動(dòng)態(tài)掃描顯示012345
;***************************************************************************
;*  sxj1974@163.com		     (51c51 test web)     www.8951.com     *
;*  Create by :石學(xué)軍      www.51c51.com 更多例程請(qǐng)登陸網(wǎng)站        	   *
;***************************************************************************
	ORG	0000H
	AJMP	MAIN
	ORG	0030H
MAIN:
	SETB	P2.6
	CLR 	P2.1      ;選中第一個(gè)數(shù)碼管 
	MOV 	P0,#28H   ;顯示0
	LCALL 	DELAY     ; 調(diào)用延時(shí)
	MOV 	P0,#0FFH  ;關(guān)顯示
	SETB	P2.1  
	CLR	P2.2      ;選中第二個(gè)數(shù)碼管
	MOV 	P0,#7EH   ;顯示1
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.2
	CLR	P2.3       ;選中第三個(gè)數(shù)碼管
	MOV 	P0,#0A2H   ;顯示2
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.3
	CLR	P2.4       ;選中第四個(gè)數(shù)碼管
	MOV 	P0,#62H   ;顯示3 
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.4
	CLR	P2.5       ;選中第五個(gè)數(shù)碼管
	MOV 	P0,#74H    ;顯示4
	LCALL 	DELAY
	MOV 	P0,#0FFH
	SETB	P2.5
	CLR	P2.6       ;選中第六個(gè)數(shù)碼管
	MOV 	P0,#61H    ; 顯示5
	LCALL 	DELAY 
	MOV 	P0,#0FFH	 
	AJMP	MAIN       ;重新開始
DELAY:                     ;延時(shí)子程序
	MOV	R7,#2
	NOP
	NOP
D1:	MOV	R6,#25
	SETB	P3.3       ;小喇叭同時(shí)響
D2:	DJNZ	R6,D2
	CLR	P3.3
	DJNZ	R7,D1
	SETB	P3.3
	RET
	END