欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 基于單片機的八路搶答器 [打印本頁]

作者: 努力的羊糞蛋 時間: 2018-4-25 21:44
標題: 基于單片機的八路搶答器

OK EQU 20H ;搶答開始標志位

RING EQU 22H ;響鈴標志位

DATA0 EQU36H ;搶答按鍵口數據存放地址

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,#45 ;初設答題時間為45s

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 ;一開始就運行定時器,以開始顯示PPP.如果想重新計數,重置TH1/TL1就可以了

;查詢程序

START: MOV DATA0,#0FFH ;初始化

MOV R5,#0BH

MOV R4,#0BH

MOV R3,#0BH

ACALLDISPLAY ;未開始搶答時候顯示PPP

JNB P3.3 ,INT0SUB

JNB P3.4,TZ1 ;倒計時調整

JB P3.0,NEXT ;ddddddd

ACALL DELAY

JB P3.0,NEXT ;去抖動,如果"開始鍵"按下就向下執行,否者跳到非法搶答查詢

SETB EX0 ;開放INT0

ACALL BARK ;按鍵發聲

MOV A,R1

MOV R6,A ;送R1->R6,因為R1中保存了搶答時間

SETB OK ;搶答標志位,用于COUNT只程序中判斷是否查詢搶答(在使用錦囊時用作判斷是搶答倒計時還是回答倒計時)

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,TZ1

JNB P1.7,TZ2

AJMP START

TZ1: JMP FALSE7

TZ2: JMP FALSE8

;非法搶答處理程序

FALSE1: ACALLBARK ;按鍵發聲

MOV R3,#01H

AJMP ERROR

FALSE2: ACALLBARK

MOV R3,#02H

AJMP ERROR

FALSE3: ACALLBARK

MOV R3,#03H

AJMP ERROR

FALSE4: ACALLBARK

MOV R3,#04H

AJMP ERROR

FALSE5: ACALLBARK

MOV R3,#05H

AJMP ERROR

FALSE6: ACALLBARK

MOV R3,#06H

AJMP ERROR

FALSE7: ACALLBARK

MOV R3,#07H

AJMP ERROR

FALSE8: ACALLBARK

MOV R3,#08H

AJMP ERROR

;INT0(搶答時間R1調整程序)

INT0SUB: MOVA,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

;倒計時程序(搶答倒計時和回答倒計時都跳到改程序)

COUNT: MOV R0,#00H ;重置定時器中斷次數

MOV TH1,#3CH

MOV TL1,#0B0H ;重置定時器

RECOUNT: MOVA,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: JNBP3.1,QUIT ;如按下停止鍵退出

ACALL DISPLAY

JB OK,ACCOUT ;如果是搶答倒計時,如是則查詢搶答,否者跳過查詢繼續倒數(這里起到鎖搶答作用)

AJMP RECOUNT

ACCOUT: MOV A,DATA0

JNB P1.0,TRUE1

JNB P1.1,TRUE2

JNB P1.2,TRUE3

JNB P1.3,TRUE4

JNB P1.4,TRUE5

JNB P1.5,TRUE6

JNB P1.6,TZ3

JNB P1.7,TZ4

AJMP RECOUNT

TZ3: JMP TRUE7

TZ4: JMP TRUE8

QUIT: CLR OK ;如果按下了"停止鍵"執行的程序

CLR RING

AJMP START

;正常搶答處理程序

TRUE1: ACALLBARK ;按鍵發聲

MOV A,R2

MOV R6,A ;搶答時間R2送R6

MOV R3,#01H

CLR OK ;因為答題的計時不再查詢搶答,所以就鎖了搶答

AJMP COUNT

TRUE2: ACALLBARK;

MOV A,R2

MOV R6,A

MOV R3,#02H

CLR OK

AJMP COUNT

TRUE3: ACALLBARK;

MOV A,R2

MOV R6,A

MOV R3,#03H

CLR OK

AJMP COUNT

TRUE4: ACALLBARK;

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

MOVR3,#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,#0AH,FLASH ;0.5s向下運行->滅并停響

CLR RING

MOV R3,#0AH

MOV R4,#0AH

MOV R5,#0AH ;三燈全滅

AJMP CHECK1

FLASH: CJNE A,#14H,CHECK1 ;下面是1s的情況,響并顯示號數并清R0,重新計

SETB RING

MOV R0,#00H

MOV R3,34H ;取回號數

MOV R5,#0BH

MOV R4,#0BH ;顯示PP和號數

AJMP CHECK1

CHECK1: JNBP3.1,QUIT1

ACALL DISPLAY

AJMP HERE

QUIT1: CLR RING

CLR OK

AJMP START

;顯示程序

DISPLAY:MOVDPTR,#DAT1 ;查表顯示程序,利用P0口做段選碼口輸出/P2低三位做位選碼輸出

MOV A,R3

MOVC A,@A+DPTR

MOV P2,#0feH

MOV P0,A

ACALL DELAY

MOV DPTR,#DAT2

MOV A,R5

MOVC A,@A+DPTR

MOV P2,#0fdH

MOV P0,A

ACALL DELAY

MOV A,R4

MOVC A,@A+DPTR

MOV P2,#0fbH

MOV P0,A

ACALL DELAY

RET

DAT1:DB00h,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,73H

;"滅","1","2","3","4","5","6","7","8","9","滅","P"

DAT2:DB3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,73H

;第一個為零,其他與上相同,因為十位如果為零顯示熄滅

;加減時間延時(起到不會按下就加N個數)

DELAY1: MOV35H,#08H

LOOP0: ACALL DISPLAY

DJNZ 35H,LOOP0

RET

;延時(顯示和去抖動用到)

DELAY: MOV 32H,#12H

LOOP: MOV 33H,#0AFH

LOOP1: DJNZ 33H,LOOP1

DJNZ 32H,LOOP

RET

;發聲程序

BARK: SETB RING

ACALL DELAY1

CLR RING ;按鍵發聲

RET

;TO溢出中斷(響鈴程序)

T0INT: MOV TH0,#0ECH

MOV TL0,#0FFH

JNB RING,OUT;

CPL P3.6 ;RING標志位為1時候P3.6口不斷取反使喇叭發出一定頻率的聲音

OUT: RETI

;T1溢出中斷(計時程序)

T1INT: MOV TH1,#3CH

MOV TL1,#0B0H

INC R0

RETI

;INTT0中斷服務程序

INTT0:MOVDATA0,P1

CLR EX0

RETI

END

仿真1.png (146.02 KB, 下載次數: 41)

作者: uiop5 時間: 2019-4-11 17:38
下載看看

歡迎光臨 (http://www.raoushi.com/bbs/)