标题: 单片机课程设计抢答器word 含汇编语言源程序，仿真 [打印本页]
作者: 九块九    时间: 2017-6-4 10:34
标题: 单片机课程设计抢答器word 含汇编语言源程序，仿真
抢答器。内含源文件，仿真，课程设计word，程序软件为keil，欢迎分享

仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）:


单片机汇编语言源程序如下:
  1. OK EQU 20H;抢答开始标志位
  2. RING EQU 22H;响铃标志位
  3. ORG 0000H
  4. AJMP MAIN
  5. ORG 0003H
  6. AJMP INT0SUB
  7. ORG 000BH
  8. AJMP T0INT
  9. ORG 0013H
  10. AJMP INT1SUB
  11. ORG 001BH
  12. AJMP T1INT
  13. ORG 0040H
  14. MAIN: MOV R1,#30;初设抢答时间为30s
  15. MOV R2,#60;初设答题时间为60s
  16. MOV TMOD,#11H;设置未定时器/模式1
  17. MOV TH0,#0F0H
  18. MOV TL0,#0FFH;越高发声频率越高,越尖
  19. MOV TH1,#3CH
  20. MOV TL1,#0B0H;50ms为一次溢出中断
  21. SETB EA
  22. SETB ET0
  23. SETB ET1
  24. SETB EX0
  25. SETB EX1;允许四个中断,T0/T1/INT0/INT1
  26. CLR OK
  27. CLR RING
  28. SETB TR1
  29. SETB TR0;一开始就运行定时器,以开始显示FFF.如果想重新计数,重置TH1/TL1就可以了
  30. ;=====查询程序=====
  31. START: MOV R5,#0BH
  32. MOV R4,#0BH
  33. MOV R3,#0BH
  34. ACALL DISPLAY;未开始抢答时候显示FFF
  35. JB P3.0,NEXT;ddddddd
  36. ACALL DELAY
  37. JB P3.0,NEXT;去抖动,如果"开始键"按下就向下执行,否者跳到非法抢答查询
  38. ACALL BARK;按键发声
  39. MOV A,R1
  40. MOV R6,A;送R1->R6,因为R1中保存了抢答时间
  41. SETB OK;抢答标志位,用于COUNT只程序中判断是否查询抢答
  42. MOV R7,#01H ;读抢答键数据信号标志，这里表示只读一次有用信号
  43. MOV R3,#0AH;抢答只显示计时,灭号数
  44. AJMP COUNT;进入倒计时程序,"查询有效抢答的程序"在COUNT里面
  45. NEXT: JNB P1.0,FALSE1
  46. JNB P1.1,FALSE2
  47. JNB P1.2,FALSE3
  48. JNB P1.3,FALSE4
  49. JNB P1.4,FALSE5
  50. JNB P1.5,FALSE6
  51. JNB P1.6,FALSE7
  52. JNB P1.7,FALSE8
  53. AJMP START
  54. ;=====非法抢答处理程序=====
  55. FALSE1: MOV R3,#01H
  56. AJMP ERROR
  57. FALSE2: MOV R3,#02H
  58. AJMP ERROR
  59. FALSE3: MOV R3,#03H
  60. AJMP ERROR
  61. FALSE4: MOV R3,#04H
  62. AJMP ERROR
  63. FALSE5: MOV R3,#05H
  64. AJMP ERROR
  65. FALSE6: MOV R3,#06H
  66. AJMP ERROR
  67. FALSE7: MOV R3,#07H
  68. AJMP ERROR
  69. FALSE8: MOV R3,#08H
  70. AJMP ERROR

  72. ;=====INT0(抢答时间R1调整程序)=====
  73. INT0SUB:MOV A,R1
  74. MOV B,#0AH
  75. DIV AB
  76. MOV R5,A
  77. MOV R4,B
  78. MOV R3,#0AH
  79. ACALL DISPLAY;先在两个时间LED上显示R1
  80. JNB P3.4,INC0;P3.4为+1s键,如按下跳到INCO
  81. JNB P3.5,DEC0;P3.5为-1s键,如按下跳到DECO
  82. JNB P3.1,BACK0;P3.1为确定键,如按下跳到BACKO
  83. AJMP INT0SUB
  84. INC0: MOV A,R1
  85. CJNE A,#63H,ADD0;如果不是99,R2加1,如果加到99,R1就置0，重新加起。
  86. MOV R1,#00H
  87. ACALL DELAY1
  88. AJMP INT0SUB
  89. ADD0: INC R1
  90. ACALL DELAY1
  91. AJMP INT0SUB
  92. DEC0: MOV A,R1
  93. JZ SETR1;如果R1为0, R1就置99，
  94. DEC R1
  95. ACALL DELAY1
  96. AJMP INT0SUB
  97. SETR1: MOV R1,#63H
  98. ACALL DELAY1
  99. AJMP INT0SUB
  100. BACK0: RETI
  101. ;=====INT1(回答时间R2调整程序)=====
  102. INT1SUB:MOV A,R2
  103. MOV B,#0AH
  104. DIV AB
  105. MOV R5,A
  106. MOV R4,B
  107. MOV R3,#0AH
  108. ACALL DISPLAY
  109. JNB P3.4,INC1
  110. JNB P3.5,DEC1
  111. JNB P3.1,BACK1
  112. AJMP INT1SUB
  113. INC1: MOV A,R2
  114. CJNE A,#63H,ADD1
  115. MOV R2,#00H
  116. ACALL DELAY1
  117. AJMP INT1SUB
  118. ADD1: INC R2
  119. ACALL DELAY1
  120. AJMP INT1SUB
  121. DEC1: MOV A,R2
  122. JZ SETR2
  123. DEC R2
  124. ACALL DELAY1
  125. AJMP INT1SUB
  126. SETR2: MOV R2,#63H
  127. ACALL DELAY1
  128. AJMP INT1SUB
  129. BACK1: RETI
  130. ;=====倒计时程序(抢答倒计时和回答倒计时都跳到改程序)=====
  131. REPEAT:MOV A,R2 ;使用锦囊时重新计时
  132. MOV R6,A
  133. CLR RING
  134. COUNT: MOV R0,#00H;重置定时器中断次数
  135. MOV TH1,#3CH
  136. MOV TL1,#0B0H;重置定时器
  137. RECOUNT:MOV A,R6;R6保存了倒计时的时间,之前先将抢答时间或回答时间给R6
  138. MOV B,#0AH
  139. DIV AB;除十分出个位/十位
  140. MOV 30H,A;十位存于(30H)
  141. MOV 31H,B;个位存于(31H)
  142. MOV R5,30H;取十位
  143. MOV R4,31H;取个位
  144. MOV A,R6
  145. SUBB A,#07H
  146. JNC LARGER;大于5s跳到LARGER,小于等于5s会提醒
  147. MOV A,R0
  148. CJNE A,#0AH,FULL;1s中0.5s向下运行
  149. CLR RING
  150. AJMP CHECK
  151. FULL: CJNE A,#14H,CHECK;下面是1s的情况,响并显示号数并清R0,重新计
  152. SETB RING
  153. MOV A,R6
  154. JZ QUIT;计时完毕
  155. MOV R0,#00H
  156. DEC R6;一秒标志减1
  157. AJMP CHECK
  158. LARGER: MOV A,R0
  159. CJNE A,#14H,CHECK;如果1s向下运行,否者跳到查"停/显示"
  160. DEC R6;计时一秒R6自动减1
  161. MOV R0,#00H
  162. CHECK: JNB P3.1,QUIT;如按下停止键退出
  163. JNB OK,CHECKK ;只在回答倒计时才有效
  164. AJMP NEXTT
  165. CHECKK:JNB P3.0,REPEAT ;判断是否使用锦囊
  166. NEXTT: ACALL DISPLAY
  167. JB OK,ACCOUT;如果是抢答倒计时,如是则查询抢答,否者跳过查询继续倒数(这里起到锁抢答作用)
  168. AJMP RECOUNT
  169. ACCOUT:
  170. MOV A,36H
  171. JNB ACC.0,TRUE1
  172. JNB ACC.1,TRUE2
  173. JNB ACC.2,TRUE3
  174. JNB ACC.3,TRUE4
  175. JNB ACC.4,TRUE5
  176. JNB ACC.5,TRUE6
  177. JNB ACC.6,TZ1
  178. JNB ACC.7,TZ2
  179. AJMP RECOUNT
  180. TZ1:JMP TRUE7
  181. TZ2:JMP TRUE8
  182. QUIT: CLR OK;如果按下了"停止键"执行的程序
  183. CLR RING
  184. AJMP START
  185. ;=====正常抢答处理程序=====
  186. TRUE1: ACALL BARK
  187. MOV A,R2
  188. MOV R6,A;抢答时间R2送R6
  189. MOV R3,#01H
  190. CLR OK;因为答题的计时不再查询抢答,所以就锁了抢答
  191. AJMP COUNT
  192. TRUE2:ACALL BARK
  193. MOV A,R2
  194. MOV R6,A
  195. MOV R3,#02H
  196. CLR OK
  197. AJMP COUNT
  198. TRUE3:ACALL BARK
  199. MOV A,R2
  200. MOV R6,A
  201. MOV R3,#03H
  202. CLR OK
  203. AJMP COUNT
  204. TRUE4:ACALL BARK
  205. MOV A,R2
  206. MOV R6,A
  207. MOV R3,#04H
  208. CLR OK
  209. AJMP COUNT
  210. TRUE5:ACALL BARK
  211. MOV A,R2
  212. MOV R6,A
  213. MOV R3,#05H
  214. CLR OK
  215. AJMP COUNT
  216. TRUE6: ACALL BARK
  217. MOV A,R2
  218. MOV R6,A
  219. MOV R3,#06H
  220. CLR OK
  221. AJMP COUNT
  222. TRUE7:ACALL BARK
  223. MOV A,R2
  224. MOV R6,A
  225. MOV R3,#07H
  226. CLR OK
  227. AJMP COUNT
  228. TRUE8:ACALL BARK
  229. MOV A,R2
  230. MOV R6,A
  231. MOV R3,#08H
  232. CLR OK
  233. AJMP COUNT
  234. ;=====犯规抢答程序=====
  235. ERROR: MOV R0,#00H
  236. MOV TH1,#3CH
  237. MOV TL1,#0B0H
  238. MOV 34H,R3;犯规号数暂存与(34H)
  239. HERE: MOV A,R0
  240. CJNE A,#06H,FLASH;0.3s向下运行->灭并停响
  241. CLR RING
  242. MOV R3,#0AH
  243. MOV R4,#0AH
  244. MOV R5,#0AH;三灯全灭
  245. AJMP CHECK1
  246. FLASH: CJNE A,#0CH,CHECK1;下面是0.8s的情况,响并显示号数并清R0,重新计
  247. SETB RING
  248. MOV R0,#00H
  249. MOV R3,34H;取回号数
  250. MOV R5,#0BH
  251. MOV R4,#0BH;显示FF和号数
  252. AJMP CHECK1
  253. CHECK1: JNB P3.1,QUIT1
  254. ACALL DISPLAY
  255. AJMP HERE
  256. QUIT1: CLR RING
  257. CLR OK
  258. AJMP START
  259. ;=====显示程序=====
  260. DISPLAY:MOV DPTR,#DAT1;查表显示程序,利用P0口做段选码口输出/P2低三位做位选码输出,
  261. MOV A,R3
  262. MOVC A,@A+DPTR
  263. MOV P2,#0feH
  264. MOV P0,A
  265. ACALL DELAY2
  266. MOV DPTR,#DAT2
  267. MOV A,R5
  268. MOVC A,@A+DPTR
  269. MOV P2,#0fdH
  270. MOV P0,A
  271. ACALL DELAY2
  272. MOV A,R4
  273. MOVC A,@A+DPTR
  274. MOV P2,#0fbH
  275. MOV P0,A
  276. ACALL DELAY2
  277. RET
  278. DAT1:DB 00h,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
  279. ;"灭","1","2","3","4","5","6","7","8","9","灭","F"
  280. DAT2:DB 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh,00H,71H
  281. ;第一个为零,其他与上相同,因为十位如果为零显示熄灭
  282. ;====加减时间延时(起到不会按下就加N个数)======
  283. DELAY1: MOV 35H,#08H
  284. LOOP0: ACALL DISPLAY
  285. DJNZ 35H,LOOP0
  286. RET
  287. ;=====延时4236个机器周期(去抖动用到)=====
  288. DELAY: MOV 32H,#12H
  289. LOOP: MOV 33H,#0AFH
  290. LOOP1: DJNZ 33H,LOOP1
  291. DJNZ 32H,LOOP
  292. RET
  293. ;=====延时4236个机器周期(显示用到)=====
  294. DELAY2: MOV 32H,#43H
  295. ……………………

  297. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
抢答器.zip (43.83 KB, 下载次数: 136)

单片机课程设计2.rar (719.13 KB, 下载次数: 144)


作者: admin    时间: 2017-6-4 17:23
好资料，51黑有你更精彩!!!
作者: wweszz    时间: 2019-3-8 09:10
单片机抢答器
作者: augset    时间: 2019-6-16 22:10
单片机抢答器
作者: 如梦之梦    时间: 2019-6-20 20:56
发生关键仿真错误怎么回事
作者: 25869ggg    时间: 2020-12-29 21:15
好资料，51黑有你更精彩!!!
作者: Skyfree369    时间: 2021-5-11 21:59
2个地方有bug：
1、抢答时间调整：按下加1s按键或者减1s按键基本都是加2秒或者减2秒，有时候加5秒或者减3秒的情况
2、答题时间调整模块:问题同上即时间＋和时间－是不稳定的，希望楼主能不能指点一下是什么原因？谢谢
作者: Skyfree369    时间: 2021-5-11 22:01
2个地方有bug:
1:答题时间:按下时间+或者时间-按键基本都是加2秒或者减2秒，甚至是突然加5秒或者减3秒的情况，很不稳定；
2、抢答时间调整：问题同上

希望楼主帮忙分析一下是什么原因以及如何解决，谢谢！！



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1