8X8點陣加七段顯示計時 |
答題得分者是:阿信
|
thumbb
一般會員 發表:1 回覆:3 積分:0 註冊:2008-11-02 發送簡訊給我 |
請問各位高手該在哪加七段顯示計時的程式指點一下,因我想讓小紅人走路時加七段顯示計時
[code delphi] ;程式檔名: P09-8-1.asm org 0 jmp Reset Reset: mov sp,#6fh clr rs0 clr rs1 Start: mov dptr,#PatternTable mov r3,#150 mov r7,#200 Loop: mov r2,#11 Loop_1: call ScanLED ;呼叫掃描顯示副程式將字形碼顯示在矩陣式LED上 djnz r2,Loop_1 ;共掃描100次,因此每個字形共顯示200*10ms=2秒時間 inc dptr ;把DPTR加8,指向下一個字元的字形碼起始位址 inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr djnz r3,Loop call Start2 ;============================ ;== 掃描LED顯示副程式 ;============================ ScanLED: mov r1,#00h ;R1指向字形碼的的起始 mov r5,#00000001b ;從最左邊一行開始顯示(0代表驅動該行電晶體ON) mov r4,#8 Scan_1: mov a,r1 ; movc a,@a dptr ;由位址R1 DPTR取得字形碼 mov p1,a ;將字形碼由P1送出 mov p2,r5 ;將掃描碼(電晶體輪流ON)由P1送出 call Delay_2ms ;延時 orl p1,#11111111b ;換行顯示之須先令LED顯示器滅,以避免造成殘影 ;現象 mov a,r5 ; rl a ;R5(掃描碼)指向下一行,以便令下一行電晶體ON mov r5,a ; inc r1 ;R1指向下一個字形碼 djnz r4,Scan_1 ret ScanLED_2: mov r1,#00h ;R1指向字形碼的的起始 mov r5,#00000001b ;從最左邊一行開始顯示(0代表驅動該行電晶體ON) mov r4,#8 Scan_2: mov a,r1 ; movc a,@a dptr ;由位址R1 DPTR取得字形碼 mov p1,a ;將字形碼由P1送出 mov p2,r5 ;將掃描碼(電晶體輪流ON)由P1送出 call Delay_2ms mov a,r5 ; rl a ;R5(掃描碼)指向下一行,以便令下一行電晶體ON mov r5,a ; inc r1 ;R1指向下一個字形碼 djnz r4,Scan_2 ret Start2: call Delay_2ms setb rs0 clr rs1 mov dptr,#PatternTable_2 mov r3,#50 Loop2: mov r2,#7 Loop_2: call ScanLED_2 djnz r2,Loop_2 inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr djnz r3,Loop2 clr rs0 clr rs1 call Start3 ScanLED_3: mov r1,#00h ;R1指向字形碼的的起始 mov r5,#00000001b ;從最左邊一行開始顯示(0代表驅動該行電晶體ON) mov r4,#8 ;一個字共需5行LED Scan_3: mov a,r1 ; movc a,@a dptr ;由位址R1 DPTR取得字形碼 mov p1,a ;將字形碼由P1送出 mov p2,r5 ;將掃描碼(電晶體輪流ON)由P1送出 call Delay_2ms mov a,r5 ; rl a ;R5(掃描碼)指向下一行,以便令下一行電晶體ON mov r5,a ; inc r1 ;R1指向下一個字形碼 djnz r4,Scan_3 ret Start3: call Delay_2ms clr rs0 setb rs1 mov dptr,#PatternTable_1 mov r3,#3 Loop3: mov r2,#200 Loop_3: call ScanLED_3 ;呼叫掃描顯示副程式將字形碼顯示在矩陣式LED上 djnz r2,Loop_3 ;共掃描100次,因此每個字形共顯示200*10ms=2秒時間 inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr inc dptr djnz r3,Loop3 ;共顯示12個字 clr rs0 clr rs1 jmp Start ;============================ ;== 延時副程式 == ;============================ ;每呼叫一次本副程式,可延時2ms Delay_2ms: mov r6,#5 Del_1: mov r7,#200 djnz r7,$ djnz r6,Del_1 ret ;================== ;============================ PatternTable: DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH PatternTable_1: DB 0FFH,0F2H,0ACH,003H,003H,0ACH,0F2H,0FFH DB 0FFH,0F2H,0ACH,003H,003H,0ACH,0F2H,0FFH DB 0FFH,0F2H,0ACH,003H,003H,0ACH,0F2H,0FFH PatternTable_2: DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,16H,04H,ABH,ECH,F6H,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BBH,16H,04H,ABH,EDH,F6H,FFH DB FFH,BFH,17H,06H,A4H,EBH,F4H,FFH DB FFH,BFH,1BH,06H,A9H,F6H,FFH,FFH DB FFH,BFH,1FH,01H,A0H,F8H,FFH,FFH DB FFH,BFH,1BH,04H,A9H,F4H,FFH,FFH end [/code] | |||
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
||||
thumbb
一般會員 發表:1 回覆:3 積分:0 註冊:2008-11-02 發送簡訊給我 |
||||
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
||||
暗黑破壞神
版主 發表:9 回覆:2301 積分:1627 註冊:2004-10-04 發送簡訊給我 |
|
|||
thumbb
一般會員 發表:1 回覆:3 積分:0 註冊:2008-11-02 發送簡訊給我 |
||||
㊣
版主 發表:261 回覆:2302 積分:1667 註冊:2005-01-04 發送簡訊給我 |
你還是沒講清楚啊. 大家很難幫的上忙.
你的小紅人只有你自己知道是什麼東西, 到底遇到什麼狀況. 只丟一堆code上來大家要了解你的問題有點困難. 我們不是神... ===================引 用 thumbb 文 章=================== 抱歉小弟我第一次發問?還請見諒 我是問如何在我小紅人程式裡加走路時七段顯示到數計時 像馬路上的小綠人上的倒數計時 初學8051的我 還請大家多多幫忙!
------
------------------------------------------------------------------------- 走是為了到另一境界,停是為了欣賞人生;未走過千山萬水,怎知生命的虛實與輕重!? |
|||
阿信
版主 發表:111 回覆:983 積分:813 註冊:2005-03-10 發送簡訊給我 |
||||
thumbb
一般會員 發表:1 回覆:3 積分:0 註冊:2008-11-02 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |