找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

帖子
查看: 4740|回復(fù): 2
打印 上一主題 下一主題
收起左側(cè)

AT89C51匯編語(yǔ)言程序+Proteus仿真交通信號(hào)燈

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主


仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)


單片機(jī)源程序如下:
  1. #include <REGX51.H>
  2.                 DIN EQU P3.0
  3.                 CLK EQU P3.1
  4.                 DBUF EQU 30H
  5.                 TEMP EQU 40H
  6.                
  7.                 ORG 0000H
  8.                 MOV 30H,#00
  9.                
  10. MAIN:        ACALL DISP                                ;獲取段碼,并輸送給數(shù)碼顯示管
  11.                 ACALL KEY                                ;獲取鍵值
  12.                 AJMP MBIN
  13.                
  14.                  ;判斷鍵值子程序
  15. KEY:        MOV P1,#0FFH          ;初始化
  16.                 MOV A,P1                                ;P1為按下的鍵,給累加器A
  17.                 CJNE A#0FFH,K00      ;判斷是否有鍵按下,沒按就循環(huán),按下就跳到K00
  18.                 AJMP KEY
  19.                
  20. K00:        ACALL DELAY            ;運(yùn)行延時(shí)子程序,消除抖動(dòng)操作
  21.                 MOV A,P1
  22.                 CJNE A,#OFFH,K01       ;二次判斷是否按下,沒按跳轉(zhuǎn)回KEY
  23.                 AJMP KEY1
  24.                
  25.                 ;開始判斷按下的是那個(gè)鍵
  26. K01:        MOVR3,#9                                ;設(shè)置判斷的循環(huán)次數(shù),判斷9次,1~9鍵
  27.                 MOV R2,#00H             ;設(shè)置查表偏移值,從00H開始
  28.                 MOV B,A                 ;A內(nèi)為按下的值,賦給B,之后做判斷使用
  29.                 MOV DPTR,#K0TAB                    ;賦表頭地址(鍵值表(K0TAB))給DPTR
  30.                
  31. K02:        MOV A,R2                                 ;偏移值賦給累加器A
  32.                 MOVC A,@A+DPTR                        ;偏移值加表頭地址得到的鍵值賦給累加器A
  33.                 CJNE AB,K04                        ;判斷按下的鍵值和查表的到的鍵值是否一致,不同則跳轉(zhuǎn)
  34.                
  35. K03:        MOV A,P1                               
  36.                 CJNE A,#0FFH,K03        ;第三次重新判斷按下的鍵
  37.                 ACALL DELAY             ;延時(shí)消除抖動(dòng)操作
  38.                 MOV A,R2                                ;偏移值給累加器A?
  39.                 RET                                                ;返回
  40.                
  41. K04:        INC R2                                        ;偏移值加一
  42.                 DJNZ R3K02                                ;循環(huán)次數(shù)減一,不等于0,跳轉(zhuǎn)到K02
  43.                 MOV A #OFFH                                ;循環(huán)結(jié)束,給累加器A賦值FFH
  44.                 AJMP KEY                                ;跳轉(zhuǎn)到KEY,重新開始此子程序
  45.                
  46. K0TAB:        DB 0FFH,0FEH,0FDH,0FBH,0F7H                        ;鍵值表
  47.                 DB 0EFH,0DFH,0BFH,7FH
  48.                
  49. DISP:        MOV DFUF,A                                ;段碼值給DBUF,A(KEY子程序得到的鍵碼值)給DBUF(30H)
  50.                 MOV RO,#DBUF                        ;30H給R0
  51.                 MOV R1,#TEMP                        ;40H給R1
  52.                
  53. DP10:        MOV DPTR,#SEGTAB                ;表頭地址給DPTR
  54.                 MOV A,@R0                                ;((R0))給累加器A,R0=30H
  55.                 MOVC A,A+DPTR                        ;表頭地址加累加器A(鍵碼)的值(A=DBUF=30H=鍵碼),查表后得到段碼值再給A, (A=段碼)
  56.                 MOV @R1,A                                ;上段代碼得到的A內(nèi)的段碼給((R1)),((R1))=TEMP=40H,40H=段碼值
  57.                 MOV RO,#TEMP                        ;40H再給R0
  58.                
  59. DP12:        MOV R2,#8                                ;設(shè)置循環(huán)次數(shù)
  60.                 MOV A,@R0                                ;段碼再給累加器A
  61.                
  62. DP13:        RLC A                                        ;循環(huán)左移A(循環(huán)左移段碼)逐個(gè)移動(dòng)到CY位
  63.                 MOV DIN,C                                ;CY內(nèi)的值再給DIN,傳送到74LS164
  64.                 CLR CLK                                        ;清零CLK口
  65.                 SETB CLK                                ;再給CLK口置1
  66.                 DJNZ R2.DP13                        ;循環(huán)減一,循環(huán)8次,輸送完段碼八個(gè)位
  67.                 RET                                                ;返回主程序
  68.                
  69. SEGTAB:        DB 3FH,06H,5BH,4FH,66H                   ;段碼表
  70.                 DB 6DH,7DH,07H,7FH,6FH
  71.                
  72. DELAY1:        MOV R4.#20                                ;延時(shí)程序,10ms
  73. AA1:        MOV R5,#250
  74. AA:                DJNZ R5,AA
  75.                 DJNE R4 AA1
  76.                 RET
  77.                 END
復(fù)制代碼

所有資料51hei提供下載:
新建文件夾.rar (597.3 KB, 下載次數(shù): 39)


分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:7922 發(fā)表于 2018-6-13 09:10 | 只看該作者
下載。。。。。。。。。。。。。。。。。。。。。
回復(fù)

使用道具 舉報(bào)

板凳
ID:462593 發(fā)表于 2019-1-5 18:22 | 只看該作者
按鍵在哪里
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表