8051 紅綠燈模擬

2237076

各位大大可以幫小弟看一下這個程式哪裡有問題,長時間執行就會出現誤差
電路使用P1來控制6個LED,P10~P12控制一組分別是G.Y.R三色,p13~p15控制另一組

Start:
        mov        a,#100001b
        outl        p1,a
        mov        r4,#500
        call        Timer
;
        mov        r5,#5
;
Loop:        anl        p1,#111110b
        mov        r4,#10
        call        Timer
        orl        p1,#000001b
        mov        r4,#10
        call        Timer
        djnz        r5,Loop
;
        mov        a,#100010b
        outl        p1,a
        mov        r4,#100
        call        Timer
;
        mov        a,#001100b
        outl        p1,a
        mov        r4,#500
        call        Timer
;
        mov        r5,#5
;
Loop1:        anl        p1,#110111b
        mov        r4,#10
        call        Timer
        orl        p1,#001000b
        mov        r4,#10
        call        Timer
        djnz        r5,Loop1
;
        mov        a,#010100b
        outl        p1,a
        mov        r4,#100
        call        Timer
        jmp        Start
;******************************
; Delay Time=(R4)*0.02 SEC.
;******************************
Timer:
        mov        a,#256-250
        mov        t,a
        strt        t
L:        jtf        X1
        jmp        L
X1:        djnz        r4,Timer
        ret
        end

2237076

感謝各位大大的鼎力相助,你們的解說比上課學到的還多,begti20大大提供的程式解說太神奇我居然都了解,請受小弟一拜
剛開始做對程式都不清楚,程式也是東拼西湊到處"借"來的,經過大大們指點解說受益良多,各位大德請受小弟第二拜
.......第三拜我掰不開來了....總之感謝了

begti20

1. ; 交通號誌紅綠燈模擬控制程式
   
2. ;                          begti20 2011.12.16 AM.
   
3. ; MCU:Atmel AT89S51
   
4. ; P0的I/O規劃
   
5. ; 第一組紅綠燈(縱向) P0.2=紅燈,P0.1=黃燈,P0.0=綠燈
   
6. ; 第二組紅綠燈(橫向) P0.5=紅燈,P0.4=黃燈,P0.3=綠燈
   
7. ;
   
8. ; 燈號流程變化表(觀察無倒數計秒的路口紅綠燈)
   
9. ; 　　　　　　 (橫向)　　(縱向)　　時間　
   
10. ;　STEP　NC NC R2 Y2 G2 R1 Y1 G1 　SEC　　　說明
    
11. ;　　1　　0　0　1　0　0　0　0　1　　20　　　縱向通行20秒
    
12. ;　　　　　　　　　　　　　　　　　　　　　STEP2-3重複三次（綠燈閃爍三次）
    
13. ;　　2    0　0　1　0　0　0　0　0　　.5　　　縱向綠燈滅0.5秒
    
14. ;　　3    0　0　1　0　0　0　0　1　　.5　　　縱向綠燈亮0.5秒
    
15. ;　　4    0　0　1　0　0　0　1　0　　2　　　 縱向黃燈亮2秒
    
16. ;　　5    0　0　0　0　1　1　0　0　　20　　　橫向通行20秒
    
17. ;　　　　　　　　　　　　　　　　　　　　　STEP6-7重複三次（綠燈閃爍三次）
    
18. ;　　6    0　0　0　0　0　1　0　0　　.5　　　橫向綠燈滅0.5秒
    
19. ;　　7    0　0　0　0　1　1　0　0　　.5　　　橫向綠燈亮0.5秒
    
20. ;　　8　　0　0　0　1　0　1　0　0　　2　　　 橫向通行20秒　
    
21. ;　　9　　跳回STEP 1進入下一次縱向通行
    
22. 
    
23.         
    
24. LED:    REG     P0                    ;宣告P0接6個LED
    
25.         ORG     0                     ;宣告程式起始位置
    
26. STEP1:  MOV     LED,#00100001B        ;縱向通行20秒
    
27.         CALL    DT20                  
    
28.         MOV     R3,#3                 ;縱向綠燈閃爍三次
    
29. STEP2:  MOV     LED,#00100000B        ;縱向綠燈滅0.5秒
    
30.         CALL    DT05                  
    
31.         MOV     LED,#00100001B        ;縱向綠燈亮0.5秒
    
32.         CALL    DT05                  
    
33.         DJNZ    R3,STEP2              ;STEP2-3重複三次(閃三次)
    
34.         MOV     LED,#00100010B        ;縱黃亮2秒
    
35.         CALL    DT2                  
    
36.         MOV     LED,#00001100B        ;橫向通行20秒
    
37.         CALL    DT20
    
38.         MOV     R3,#3                 ;橫向綠燈閃爍3次
    
39. STEP6:  MOV     LED,#00000100B        ;橫向綠燈滅0.5秒
    
40.         CALL    DT05                  
    
41.         MOV     LED,#000011000B       ;橫向綠燈亮0.5秒
    
42.         CALL    DT05
    
43.         DJNZ    R3,STEP6              ;重複3次
    
44.         MOV     LED,#00010100B        ;橫向黃燈亮2秒
    
45.         CALL    DT2
    
46.         JMP     STEP1                 ;跳回STEP1,再次縱向通行
    
47. 
    
48. DT20:   MOV     R4,#100              ;設定R4延遲20秒的參數
    
49.         JMP     DTN
    
50. 
    
51. DT05:   MOV     R4,#5                 ;設定R4延遲0.5秒的參數
    
52.         JMP     DTN
    
53. 
    
54. DT2:    MOV     R4,#20                ;設定R4,2秒的參數
    
55.         JMP     DTN
    
56. 
    
57. DTN:    CALL    DT01                  ;設定R4*0.1秒的時間
    
58.         DJNZ    R4,DTN
    
59.         RET
    
60. 
    
61. 
    
62. DT01:   MOV     R6,#250               ;延遲0.1秒的副程式
    
63. T01:    MOV     R7,#200
    
64.         DJNZ    R7,$
    
65.         DJNZ    R6,T01
    
66.         RET
    
67. 
    
68.         END                           ;宣告程式結束

複製代碼

寫程式說明比寫程式花更多的時間，好無聊！

終於完成了，以供參考，請多指教

alphi

又靜 發表於 2011-12-15 17:38  
您是最專業的程式設計師怎麼可以這樣寫程式呢
本來還沒注意到，是2237076 提問，才仔細看了一下 |08 ...

哈哈,8051我又不熟.沒有版主那麼厲害.加上用查表可以更清楚看出狀態與設定紅綠燈每一個需要時間.只要把
delay時間弄好.就可以得到每一秒一個單位
紅燈1:15秒.綠燈1:20秒,黃燈1:閃爍5秒;
紅燈2:25秒,綠燈2:10秒.黃燈2:閃爍5秒

又靜

alphi 發表於 2011-12-15 16:43  
我只是讓他紅燈與绿燈凉久一點是黃燈兩倍時間

您是最專業的程式設計師怎麼可以這樣寫程式呢
本來還沒注意到，是2237076 提問，才仔細看了一下
果然跟我想的一樣 ，扣分!!!扣分  

alphi

又靜 發表於 2011-12-15 12:21
alphi 大師，問一下

        DB        10000100B

我只是讓他紅燈與绿燈凉久一點是黃燈兩倍時間

又靜

alphi 大師，問一下

        DB        10000100B
        DB        10000100B

        DB        00110000B
        DB        00110000B
為何要執行兩次

alphi

會恆亮.你可以看我寫的註解.對應就知道
1:亮,0代表暗

1. TABLE:
   
2.         DB        10000100B
   
3.         DB        10000100B
   
4.         DB        01000100B
   
5.         DB        00110000B
   
6.         DB        00110000B
   
7.         DB        00101000B

複製代碼

所以當另一邊黃燈時. 另一邊是紅燈亮.你如果要有閃爍功能.更改TAB的值與R0變數迴圈次數即可.所以查表法對於有規則性的修改會比較容易

2237076

alphi 發表於 2011-12-9 18:56  
感謝"begti20" 大師提供編譯錯誤,原先我以為語法上沒問題只是邏輯上的問題,沒有編譯過測試.看到"begti20"的 ...

謝謝大大的支援,想請問大大你的程式中有沒有閃綠燈跟閃黃燈
閃黃燈時另一組的紅燈也一起閃,還是會恆亮
之前一直在分析你的程式,只是小弟功力不好可以請大大開示一下,感恩

2237076

謝謝各位大大的支援,整個動作都正常在此向各位大大說聲感恩