51單片機模擬交通燈

仿真圖

程序源代碼如下：
作者：胡琴
聯(lián)系qq：1257394091
網(wǎng)站：http://www.51hei.com
本程序已經(jīng)通過軟件仿真以及在自己搭建的硬件上測試通過.
org 0000h
ajmp main
org 000bh
ajmp inti0
org 0030h
main:mov tmod,#01h
mov ie,#82h
mov th0,#4ch
mov tl0,#00h
mov sp,#60h
mov 31h,#30 ;東西綠燈初值30秒
mov 32h,#30 ;南北紅燈初值30秒
clr 4fh ;清標志位
clr p1.1 ;開東西綠燈
clr p1.5 ;開南北紅燈
setb tr0 ;啟動T0
loop:lcall display ;調(diào)用顯示子程序
lcall key ;調(diào)用應急按鍵判斷
ajmp loop
inti0:push psw
clr ea
mov th0,#4ch
mov tl0,#00h
inc 35h
mov a,35h
cjne a,#20,out ;判1秒是否到時
mov 35h,#00
jb 4fh,yi ;判別標志位
dec 31h ;東西時間每秒減1
dec 32h ;南北時間每秒減1
mov a,31h
cjne a,#05,out ;判是否到25秒
setb p2.0 ;到25秒關時間顯示
setb p2.1
setb p1.1 ;東西綠燈閃滅3秒
lcall del500ms
clr p1.1
lcall del500ms
setb p1.1
lcall del500ms
clr p1.1
lcall del500ms
setb p1.1
lcall del500ms
clr p1.1
lcall del500ms
setb p1.1 ;滅東西綠燈
sjmp er
out:setb ea
pop psw
reti
er:clr p1.2 ;東西黃燈亮2秒
mov 33h,#4 ;延時2秒
loop1:lcall del500ms
djnz 33h,loop1
setb p1.2 ;2秒后滅東西黃燈
clr p2.0 ;5秒后開時間顯示
clr p2.1
mov 31h,#20 ;東西時間賦20秒初值
mov 32h,#20 ;南北時間賦20秒初值
setb 4fh
setb p1.5 ;關南北紅燈
clr p1.0 ;點亮東西紅燈
clr p1.6 ;點亮南北綠燈
sjmp out
yi:dec 31h ;東西時間每秒減1
dec 32h ;南北時間每秒減1
mov a,31h
cjne a,#5,out ;判是否到15秒
setb p2.6 ;到15秒關時間顯示
setb p2.7 ;
setb p1.6 ;南北綠燈閃滅3秒
lcall del500ms
clr p1.6
lcall del500ms
setb p1.6
lcall del500ms
clr p1.6
lcall del500ms
setb p1.6
lcall del500ms
clr p1.6