|
|
搶答器。內含源文件，仿真，課程設計word，程序軟件為keil，歡迎分享
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）:
0.png (13.64 KB, 下載次數: 123)
下載附件
2017-6-4 17:19 上傳
0.png (27.06 KB, 下載次數: 82)
下載附件
2017-6-4 17:19 上傳
0.png (64.37 KB, 下載次數: 85)
下載附件
2017-6-4 17:19 上傳
單片機匯編語言源程序如下:
- OK EQU 20H;搶答開始標志位
- RING EQU 22H;響鈴標志位
- ORG 0000H
- AJMP MAIN
- ORG 0003H
- AJMP INT0SUB
- ORG 000BH
- AJMP T0INT
- ORG 0013H
- AJMP INT1SUB
- ORG 001BH
- AJMP T1INT
- ORG 0040H
- MAIN: MOV R1,#30;初設搶答時間為30s
- MOV R2,#60;初設答題時間為60s
- MOV TMOD,#11H;設置未定時器/模式1
- MOV TH0,#0F0H
- MOV TL0,#0FFH;越高發聲頻率越高,越尖
- MOV TH1,#3CH
- MOV TL1,#0B0H;50ms為一次溢出中斷
- SETB EA
- SETB ET0
- SETB ET1
- SETB EX0
- SETB EX1;允許四個中斷,T0/T1/INT0/INT1
- CLR OK
- CLR RING
- SETB TR1
- SETB TR0;一開始就運行定時器,以開始顯示FFF.如果想重新計數,重置TH1/TL1就可以了
- ;=====查詢程序=====
- START: MOV R5,#0BH
- MOV R4,#0BH
- MOV R3,#0BH
- ACALL DISPLAY;未開始搶答時候顯示FFF
- JB P3.0,NEXT;ddddddd
- ACALL DELAY
- JB P3.0,NEXT;去抖動,如果"開始鍵"按下就向下執行,否者跳到非法搶答查詢
- ACALL BARK;按鍵發聲
- MOV A,R1
- MOV R6,A;送R1->R6,因為R1中保存了搶答時間
- SETB OK;搶答標志位,用于COUNT只程序中判斷是否查詢搶答
- MOV R7,#01H ;讀搶答鍵數據信號標志，這里表示只讀一次有用信號
- MOV R3,#0AH;搶答只顯示計時,滅號數
- AJMP COUNT;進入倒計時程序,"查詢有效搶答的程序"在COUNT里面
- NEXT: JNB P1.0,FALSE1
- JNB P1.1,FALSE2
- JNB P1.2,FALSE3
- JNB P1.3,FALSE4
- JNB P1.4,FALSE5
- JNB P1.5,FALSE6
- JNB P1.6,FALSE7
- JNB P1.7,FALSE8
- AJMP START
- ;=====非法搶答處理程序=====
- FALSE1: MOV R3,#01H
- AJMP ERROR
- FALSE2: MOV R3,#02H
- AJMP ERROR
- FALSE3: MOV R3,#03H
- AJMP ERROR
- FALSE4: MOV R3,#04H
- AJMP ERROR
- FALSE5: MOV R3,#05H
- AJMP ERROR
- FALSE6: MOV R3,#06H
- AJMP ERROR
- FALSE7: MOV R3,#07H
- AJMP ERROR
- FALSE8: MOV R3,#08H
- AJMP ERROR
- ;=====INT0(搶答時間R1調整程序)=====
- INT0SUB:MOV A,R1
- MOV B,#0AH
- DIV AB
- MOV R5,A
- MOV R4,B
- MOV R3,#0AH
- ACALL DISPLAY;先在兩個時間LED上顯示R1
- JNB P3.4,INC0;P3.4為+1s鍵,如按下跳到INCO
- JNB P3.5,DEC0;P3.5為-1s鍵,如按下跳到DECO
- JNB P3.1,BACK0;P3.1為確定鍵,如按下跳到BACKO
- AJMP INT0SUB
- INC0: MOV A,R1
- CJNE A,#63H,ADD0;如果不是99,R2加1,如果加到99,R1就置0，重新加起。
- MOV R1,#00H
- ACALL DELAY1
- AJMP INT0SUB
- ADD0: INC R1
- ACALL DELAY1
- AJMP INT0SUB
- DEC0: MOV A,R1
- JZ SETR1;如果R1為0, R1就置99，
- DEC R1
- ACALL DELAY1
- AJMP INT0SUB
- SETR1: MOV R1,#63H
- ACALL DELAY1
- AJMP INT0SUB
- BACK0: RETI
- ;=====INT1(回答時間R2調整程序)=====
- INT1SUB:MOV A,R2
- MOV B,#0AH
- DIV AB
- MOV R5,A
- MOV R4,B
- MOV R3,#0AH
- ACALL DISPLAY
- JNB P3.4,INC1
- JNB P3.5,DEC1
- JNB P3.1,BACK1
- AJMP INT1SUB
- INC1: MOV A,R2
- CJNE A,#63H,ADD1
- MOV R2,#00H
- ACALL DELAY1
- AJMP INT1SUB
- ADD1: INC R2
- ACALL DELAY1
- AJMP INT1SUB
- DEC1: MOV A,R2
- JZ SETR2
- DEC R2
- ACALL DELAY1
- AJMP INT1SUB
- SETR2: MOV R2,#63H
- ACALL DELAY1
- AJMP INT1SUB
- BACK1: RETI
- ;=====倒計時程序(搶答倒計時和回答倒計時都跳到改程序)=====
- REPEAT:MOV A,R2 ;使用錦囊時重新計時
- MOV R6,A
- CLR RING
- COUNT: MOV R0,#00H;重置定時器中斷次數
- MOV TH1,#3CH
- MOV TL1,#0B0H;重置定時器
- RECOUNT:MOV A,R6;R6保存了倒計時的時間,之前先將搶答時間或回答時間給R6
- MOV B,#0AH
- DIV AB;除十分出個位/十位
- MOV 30H,A;十位存于(30H)
- MOV 31H,B;個位存于(31H)
- MOV R5,30H;取十位
- MOV R4,31H;取個位
- MOV A,R6
- SUBB A,#07H
- JNC LARGER;大于5s跳到LARGER,小于等于5s會提醒
- MOV A,R0
- CJNE A,#0AH,FULL;1s中0.5s向下運行
- CLR RING
- AJMP CHECK
- FULL: CJNE A,#14H,CHECK;下面是1s的情況,響并顯示號數并清R0,重新計
- SETB RING
- MOV A,R6
- JZ QUIT;計時完畢
- MOV R0,#00H
- DEC R6;一秒標志減1
- AJMP CHECK
- LARGER: MOV A,R0
- CJNE A,#14H,CHECK;如果1s向下運行,否者跳到查"停/顯示"
- DEC R6;計時一秒R6自動減1
- MOV R0,#00H
- CHECK: JNB P3.1,QUIT;如按下停止鍵退出
- JNB OK,CHECKK ;只在回答倒計時才有效
- AJMP NEXTT
- CHECKK:JNB P3.0,REPEAT ;判斷是否使用錦囊
- NEXTT: ACALL DISPLAY
- JB OK,ACCOUT;如果是搶答倒計時,如是則查詢搶答,否者跳過查詢繼續倒數(這里起到鎖搶答作用)
- AJMP RECOUNT
- ACCOUT:
- MOV A,36H
- JNB ACC.0,TRUE1
- JNB ACC.1,TRUE2
- JNB ACC.2,TRUE3
- JNB ACC.3,TRUE4
- JNB ACC.4,TRUE5
- JNB ACC.5,TRUE6
- JNB ACC.6,TZ1
- JNB ACC.7,TZ2
- AJMP RECOUNT
- TZ1:JMP TRUE7
- TZ2:JMP TRUE8
- QUIT: CLR OK;如果按下了"停止鍵"執行的程序
- CLR RING
- AJMP START
- ;=====正常搶答處理程序=====
- TRUE1: ACALL BARK
- MOV A,R2
- MOV R6,A;搶答時間R2送R6
- MOV R3,#01H
- CLR OK;因為答題的計時不再查詢搶答,所以就鎖了搶答
- AJMP COUNT
- TRUE2:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#02H
- CLR OK
- AJMP COUNT
- TRUE3:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#03H
- CLR OK
- AJMP COUNT
- TRUE4:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#04H
- CLR OK
- AJMP COUNT
- TRUE5:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#05H
- CLR OK
- AJMP COUNT
- TRUE6: ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#06H
- CLR OK
- AJMP COUNT
- TRUE7:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#07H
- CLR OK
- AJMP COUNT
- TRUE8:ACALL BARK
- MOV A,R2
- MOV R6,A
- MOV R3,#08H
- CLR OK
- AJMP COUNT
- ;=====犯規搶答程序=====
- ERROR: MOV R0,#00H
- MOV TH1,#3CH
- MOV TL1,#0B0H
- MOV 34H,R3;犯規號數暫存與(34H)
- HERE: MOV A,R0
- CJNE A,#06H,FLASH;0.3s向下運行->滅并停響
- CLR RING
- MOV R3,#0AH
- MOV R4,#0AH
- MOV R5,#0AH;三燈全滅
- AJMP CHECK1
- FLASH: CJNE A,#0CH,CHECK1;下面是0.8s的情況,響并顯示號數并清R0,重新計
- SETB RING
- MOV R0,#00H
- MOV R3,34H;取回號數
- MOV R5,#0BH
- MOV R4,#0BH;顯示FF和號數
- AJMP CHECK1
- CHECK1: JNB P3.1,QUIT1
- ACALL DISPLAY
- AJMP HERE
- QUIT1: CLR RING
- CLR OK
- AJMP START
- ;=====顯示程序=====
- DISPLAY:MOV DPTR,#DAT1;查表顯示程序,利用P0口做段選碼口輸出/P2低三位做位選碼輸出,
- MOV A,R3
- MOVC A,@A+DPTR
- MOV P2,#0feH
- MOV P0,A
- ACALL DELAY2
- MOV DPTR,#DAT2
- MOV A,R5
- MOVC A,@A+DPTR
- MOV P2,#0fdH
- MOV P0,A
- ACALL DELAY2
- MOV A,R4
- MOVC A,@A+DPTR
- MOV P2,#0fbH
- MOV P0,A
- ACALL DELAY2
- RET
- DAT1:DB 00h,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
- ;"滅","1","2","3","4","5","6","7","8","9","滅","F"
- DAT2:DB 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
- ;第一個為零,其他與上相同,因為十位如果為零顯示熄滅
- ;====加減時間延時(起到不會按下就加N個數)======
- DELAY1: MOV 35H,#08H
- LOOP0: ACALL DISPLAY
- DJNZ 35H,LOOP0
- RET
- ;=====延時4236個機器周期(去抖動用到)=====
- DELAY: MOV 32H,#12H
- LOOP: MOV 33H,#0AFH
- LOOP1: DJNZ 33H,LOOP1
- DJNZ 32H,LOOP
- RET
- ;=====延時4236個機器周期(顯示用到)=====
- DELAY2: MOV 32H,#43H
- ……………………
- …………限于本文篇幅 余下代碼請從51黑下載附件…………
所有資料51hei提供下載:
搶答器.zip
(43.83 KB, 下載次數: 136)
2017-6-4 10:32 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
單片機課程設計2.rar
(719.13 KB, 下載次數: 144)
2017-6-4 10:33 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|
評分
-
查看全部評分
|
[復制鏈接]
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
