0.png (37.88 KB, 下載次數(shù): 55)
下載附件
2018-6-13 01:08 上傳
單片機源程序如下:
- #include <REGX51.H>
- SECOND1 EQU 30H
- SECOND2 EQU 31H
- DBUF EQU 40H
- TEMP EQU 44H
- LED_G1 BIT P2.1
- LED_Y1 BIT P2.2
- LED_R1 BIT P2.3
- LED_G2 BIT P2.4
- LED_Y2 BIT P2.5
- LED_R2 BIT P2.6
- ORG 0000H
- LJMP START
- ORG 0100H
- START:
- MOV TMOD,#01H
- MOV TH0,#3CH
- MOV TL0,#0B0H
- CLR TF0
- SETB TR0
- CLR A
- MOV P2,A
- LOOP:
- MOV R2,#20
- MOV R3,#20
- MOV SECOND1,#25
- MOV SECOND2,#25
- LCALL DISPLAY
- LCALL STATE1
- WAIT1:
- JNB TF0,WAIT1
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R2,WAIT1
- MOV R2,#20
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT1
- MOV R2,#5
- MOV R3,#3
- MOV R4,#4
- MOV SECOND1,#5
- MOV SECOND2,#5
- LCALL DISPLAY
- WAIT2:
- LCALL STATE2
- JNB TF0,WAIT2
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R4,WAIT2
- CPL LED_G1
- MOV R4,#4
- DJNZ R2,WAIT2
- MOV R2,#5
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT2
- MOV R2,#20
- MOV R3,#2
- MOV SECOND1,#2
- MOV SECOND2,#2
- LCALL DISPLAY
- WAIT3:
- LCALL STATE3
- JNB TF0,WAIT3
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R2,WAIT3
- MOV R2,#20
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT3
-
- MOV R2,#20
- MOV R3,#20
- MOV SECOND1,#25
- MOV SECOND2,#25
- LCALL DISPLAY
- WAIT4:
- LCALL STATE4
- JNB TF0,WAIT4
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R2,WAIT4
- MOV R2,#20
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT4
- MOV R2,#5
- MOV R4,#4
- MOV R3,#3
- MOV SECOND1,#5
- MOV SECOND2,#5
- LCALL DISPLAY
- WAIT5:
- LCALL STATE5
- JNB TF0 ,WAIT5
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R4,WAIT5
- CPL LED_G2
- MOV R4,#4
- DJNZ R2,WAIT5
- MOV R2,#5
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT5
- MOV R2,#20
- MOV R3,#2
- MOV SECOND1,#2
- MOV SECOND2,#2
- LCALL DISPLAY
- WAIT6:
- LCALL STATE6
- JNB TF0,WAIT6
- CLR TF0
- MOV TH0,#3CH
- MOV TL0,#0B0H
- DJNZ R2,WAIT6
- MOV R2,#20
- DEC SECOND1
- DEC SECOND2
- LCALL DISPLAY
- DJNZ R3,WAIT6
- LJMP LOOP
- STATE1:
- SETB LED_G1
- CLR LED_Y1
- CLR LED_R1
- CLR LED_G2
- CLR LED_Y2
- SETB LED_R2
- RET
- STATE2:
- CLR LED_Y1
- CLR LED_R1
- CLR LED_G2
- CLR LED_Y2
- SETB LED_R2
- RET
- STATE3:
- CLR LED_G1
- SETB LED_Y1
- CLR LED_R1
- CLR LED_G2
- CLR LED_Y2
- SETB LED_R2
- RET
- STATE4:
- CLR LED_G1
- CLR LED_Y1
- SETB LED_R1
- SETB LED_G2
- CLR LED_Y2
- CLR LED_R2
- RET
- STATE5:
- CLR LED_G1
- CLR LED_Y1
- SETB LED_R1
- CLR LED_Y2
- CLR LED_R2
- RET
- STATE6:
- CLR LED_G1
- CLR LED_Y1
- SETB LED_R1
- CLR LED_G2
- CLR LED_R2
- SETB LED_Y2
- RET
- DISPLAY:
- MOV A,SECOND1
- MOV B,#10
- DIV AB
- MOV DBUF+3,A
- MOV A,B
- MOV DBUF+2,A
- MOV A,SECOND2
- MOV B,#10
- DIV AB
- MOV DBUF+1,A
- MOV A,B
- MOV DBUF,A
- MOV R0,#DBUF
- MOV R1,#TEMP
- MOV R7,#4
- DP10:
- MOV DPTR,#LEDMAP
- MOV A,@R0
- MOVC A,@A+DPTR
- MOV @R1,A
- INC R0
- INC R1
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
復制代碼
所有資料51hei提供下載:
交通燈.rar
(142.59 KB, 下載次數(shù): 40)
2018-6-12 15:23 上傳
點擊文件名下載附件
交通燈 下載積分: 黑幣 -5
|