51汇编游戏之“读心术”

火龙果

51汇编游戏之“读心术” [复制链接]

51汇编游戏之“读心术”

  前一段时间在网上看到很多人在玩一个叫“读心术”的游戏，原理很简单，也许各位也有玩过。现在我弄了个51单片机版的“读心术”游戏，与大家分享。
  先说一下游戏的规则：玩者在心中随意想一个两位数，然后用这个两位数减去他的个位数，在减去他的十位数，得到一个新的数据，然后在1602屏幕上找到这个新数据，看它所代表的字符是什么，最后按确认键，这是“神奇的一幕”出现了，1602屏幕上出现了你刚才看到的字符。
  呵呵，这个原理很简单，大家别见笑，我就是拿来练练手的。

  看一下源程序，俺先弱弱的问一句：51单片机怎么产生随机数比较好啊？？请大家给个方案。我用的是定时器，想找一个更好的随机数产生方法。

1. 
   
2. 
   
3. ;##########################################################
   
4. ;**********************************************************
   
5. ;程序名称：51汇编游戏之"读心术"
   
6. ;主控芯片：89c51 （12MHZ，LCD1602）
   
7. ;程序功能：读懂你心中所想之事
   
8. ;程序编写者：buyixin （不亦心）
   
9. ;编写时间：2009年10月15日  19：49
   
10. ;不亦心的博客：http://hi.baidu.com/不亦心/
    
11. ;***********************************************************
    
12. ;###########################################################
    
13. ;//////变量地址申明/////////////////////////////////////////
    
14.   Page_down    BIT    P1.0     ;向下翻页键
    
15.   Page_up      BIT    P1.1     ;向上翻页键
    
16.   Make_sure    BIT    P1.2     ;确定键
    
17.   Play_start   BIT    P1.3     ;开始键
    
18.   RS           EQU    P2.0     ;定义LCD1602的RS为P2.0
    
19.   RW           EQU    P2.1     ;定义LCD1602的RW为P2.1
    
20.   E            EQU    P2.2     ;定义LCD1602的E为P2.2
    
21.   PageS        DATA   30H      ;页数暂存单元
    
22.   Num_data     DATA   31H      ;确定符号暂存单元
    
23.   Ran_data     DATA   32H      ;随机数暂存单元
    
24.   Ran_datas    DATA   33H      ;随机符号暂存单元
    
25.   Ran_data0    DATA   34H      ;第一页第一个符号暂存单元
    
26.   Ran_data1    DATA   35H
    
27.   Ran_data2    DATA   36H
    
28.   Ran_data3    DATA   37H
    
29.   Ran_data4    DATA   38H
    
30.   Ran_data5    DATA   39H
    
31.   Ran_data6    DATA   3AH
    
32.   Ran_data7    DATA   3BH
    
33.   Ran_data8    DATA   3CH
    
34.   Ran_data9    DATA   3DH
    
35.   Ran_data10   DATA   3EH
    
36.   Ran_data11   DATA   3FH      ;第12页第一个符号暂存单元
    
37.   data0        DATA   40H      ;数字十位暂存单元
    
38.   data1        DATA   41H      ;数字个位暂存单元
    
39. ;//////主程序开始///////////////////////////////////////////
    
40.   ORG      0000H
    
41.   AJMP     START     
    
42.   ORG      000BH
    
43.   LJMP     TIM0                ;定时器0  
    
44.   ORG      0030H
    
45. ;------各部分初始化---------------------------------------
    
46. START:     MOV SP,#60H         ;设置堆栈  
    
47.   MOV      Pages,#00H          ;清空关键暂存区
    
48.   MOV      Num_data,#00H
    
49.   MOV      Ran_data,#00H
    
50.   MOV      data0,#00H
    
51.   MOV      data1,#00H
    
52.   LCALL    Init_tim0           ;调用定时器0初始化
    
53. Repeat:    LCALL Ran_num       ;调用随机数产生子程序
    
54.   MOV      DPTR,#TAB_code      ;获取确定符号
    
55.   MOV      A,B
    
56.   MOVC     A,@A+DPTR
    
57.   MOV      Num_data,A
    
58.   LCALL    Font_code           ;调用随机符号产生子程序
    
59.   LCALL    Init_1602           ;调用LCD1602初始化子程序
    
60. 
    
61. ;------开始游戏-----------------------------------------
    
62. Repeat1:   JB       Play_start,$ ;等待开始按键按下
    
63.   JNB      Play_start,$   
    
64.   MOV        Pages,#00H
    
65. FAN_YE:  LCALL    Page_shu       ;调用页数判定子程序
    
66.   MOV      P0,#80H               ;LCD1602第一行开始显示  
    
67.   LCALL    WR_COM                ;调用LCD1602写命令子程序
    
68.   LCALL    WR_Page               ;调用LCD1602页写子程序   
    
69.   MOV      P0,#0C0H              ;LCD1602第二行开始显示
    
70.   LCALL    WR_COM
    
71.   LCALL    WR_Page
    
72. ;--------键判---------------------------------------
    
73. AN_JIAN:  JB Page_down,Continue1 ;判断向下翻页键是否按下
    
74.   JNB      Page_down,$            
    
75.   INC      Pages                 ;页数增加1   
    
76.   MOV      A,Pages
    
77.   CJNE     A,#0CH,Cont1          ;12页翻完则重头开始
    
78.   MOV      Pages,#00H
    
79. Cont1:     AJMP     FAN_YE       ;跳到翻页处
    
80. Continue1: JB Page_up,Continue2  ;判断向上翻页按键是否按下
    
81.   JNB      Page_up,$
    
82.   MOV      A,Pages
    
83.   CJNE     A,#00H,Cont2          ;若为第一页则向上为第12页
    
84.   MOV      Pages,#0BH
    
85.   SJMP     Cont3
    
86. Cont2:     DEC Pages             ;页数减1
    
87. Cont3:     AJMP  FAN_YE
    
88. Continue2: JB Make_sure,Cont4    ;检测确认键是否按下
    
89.   JNB      Make_sure,$           ;确认键按下则显示结果  
    
90.   LCALL     Display              ;调用显示结果子程序
    
91.   LJMP     Repeat
    
92.   Cont4:   AJMP AN_JIAN
    
93. ;//////显示结果子程序////////////////////////////////////////////
    
94. Display:   MOV P0,#01H   ;清除屏幕
    
95.   ACALL    WR_COM   ;调用WR_COM子程序
    
96.   MOV      P0,#80H
    
97.   ACALL    WR_COM
    
98.   MOV      R3,#00H
    
99.   MOV      DPTR,#TAB2  ;your choose:
    
100. REP4:      MOV A,R3
     
101.   MOVC     A,@A+DPTR
     
102.   LCALL    WR_DATA
     
103.   INC      R3
     
104.   MOV      A,R3
     
105.   CJNE     A,#0EH,REP4
     
106.   MOV      A,Num_data
     
107.   LCALL    WR_DATA
     
108.   MOV      P0,#0C0H    ;play again
     
109.   ACALL    WR_COM
     
110. REP5:      MOV A,R3
     
111.   MOVC     A,@A+DPTR
     
112.   LCALL    WR_DATA
     
113.   INC      R3
     
114.   MOV      A,R3
     
115.   CJNE     A,#1EH,REP5
     
116.   LCALL    DELAY600MS
     
117.   RET
     
118. ;//////页数判定子程序//////////////////////////////////
     
119. ;------入口参数 Pages(页数)---------------------
     
120. ;------出口参数 R0   （显示数字）------------------------
     
121. Page_shu:
     
122.   MOV      A,Pages
     
123.   CJNE     A,#00H,NEXT1
     
124.   MOV      R0,#00H  
     
125.   MOV      Ran_datas,Ran_data0
     
126. NEXT1:     CJNE A,#01H,NEXT2
     
127.   MOV      R0,#08H
     
128.   MOV      Ran_datas,Ran_data1
     
129. NEXT2:     CJNE A,#02H,NEXT3
     
130.   MOV      R0,#10H
     
131.   MOV      Ran_datas,Ran_data2
     
132. NEXT3:     CJNE A,#03H,NEXT4
     
133.   MOV      R0,#18H
     
134.   MOV      Ran_datas,Ran_data3
     
135. NEXT4:     CJNE A,#04H,NEXT5
     
136.   MOV      R0,#20H
     
137.   MOV      Ran_datas,Ran_data4
     
138. NEXT5:     CJNE A,#05H,NEXT6
     
139.   MOV      R0,#28H
     
140.   MOV      Ran_datas,Ran_data5
     
141. NEXT6:     CJNE A,#06H,NEXT7
     
142.   MOV      R0,#30H
     
143.   MOV      Ran_datas,Ran_data6
     
144. NEXT7:     CJNE A,#07H,NEXT8
     
145.   MOV      R0,#38H
     
146.   MOV      Ran_datas,Ran_data7
     
147. NEXT8:     CJNE A,#08H,NEXT9
     
148.   MOV      R0,#40H
     
149.   MOV      Ran_datas,Ran_data8
     
150. NEXT9:     CJNE A,#09H,NEXT10
     
151.   MOV      R0,#48H
     
152.   MOV      Ran_datas,Ran_data9
     
153. NEXT10:    CJNE A,#0AH,NEXT11
     
154.   MOV      R0,#50H
     
155.   MOV      Ran_datas,Ran_data10
     
156. NEXT11:    CJNE A,#0BH,OUT
     
157.   MOV      R0,#58H
     
158.   MOV      Ran_datas,Ran_data11
     
159. OUT:        
     
160.   RET
     
161. 
     
162. ;//////1602写页子程序///////////////////////////////////////
     
163. WR_page:
     
164.   MOV      R1,#04H
     
165. REP6:      LCALL Font_data
     
166.   MOV      A,data0
     
167.   LCALL    WR_DATA
     
168.   MOV      A,data1
     
169.   LCALL    WR_DATA
     
170.   MOV      A,R0
     
171.   MOV      B,#09H
     
172.   DIV      AB
     
173.   MOV      A,B
     
174.   JNZ      NEXT
     
175.   MOV      A,Num_data
     
176.   SJMP     OVER
     
177. NEXT:      MOV A,Ran_datas   ;取随机符号
     
178.   ADD      A,#04H
     
179.   CJNE     A,#09H,GO_ON
     
180. GO_ON:     JC REP7
     
181.   SUBB     A,#09H
     
182. REP7:      MOV Ran_datas,A
     
183.   MOV      A,Ran_datas
     
184.   MOV      DPTR,#TAB_code
     
185.   MOVC     A,@A+DPTR
     
186. OVER:      LCALL WR_DATA
     
187.   MOV      A,' '
     
188.   LCALL    WR_DATA
     
189.   INC      R0
     
190.   DJNZ     R1,REP6
     
191.   RET  
     
192. 
     
193. 未完待续
     
194. 
     

复制代码

火龙果

1. ;//////1602初始化子程序//////////////////////////////////
   
2. Init_1602:
   
3. MOV P0,#01H ;清除屏幕
   
4. ACALL WR_COM ;调用WR_COM子程序 .
   
5. MOV P0,#38H ;8位点阵方式 .
   
6. ACALL WR_COM
   
7. MOV P0,#06H
   
8. ACALL WR_COM
   
9. MOV P0,#0DH ;开显示
   
10. ACALL WR_COM
    
11. MOV P0,#80H
    
12. ACALL WR_COM
    
13. MOV R3,#00H
    
14. MOV DPTR,#TAB1 ;显示welcomr to buyixin's design
    
15. REP0: MOV A,R3
    
16. MOVC A,@A+DPTR
    
17. LCALL WR_DATA
    
18. INC R3
    
19. MOV A,R3
    
20. CJNE A,#10H,REP0
    
21. MOV P0,#0C0H
    
22. LCALL WR_COM
    
23. REP1: MOV A,R3
    
24. MOVC A,@A+DPTR
    
25. LCALL WR_DATA
    
26. INC R3
    
27. MOV A,R3
    
28. CJNE A,#20H,REP1
    
29. LCALL DELAY600MS
    
30. MOV P0,#01H ;清除屏幕
    
31. ACALL WR_COM ;调用WR_COM子程序
    
32. MOV P0,#80H ;显示now just go! press page_start
    
33. ACALL WR_COM
    
34. REP21: MOV A,R3
    
35. MOVC A,@A+DPTR
    
36. LCALL WR_DATA
    
37. INC R3
    
38. MOV A,R3
    
39. CJNE A,#30H,REP21
    
40. MOV P0,#0C0H
    
41. LCALL WR_COM
    
42. REP3: MOV A,R3
    
43. MOVC A,@A+DPTR
    
44. LCALL WR_DATA
    
45. INC R3
    
46. MOV A,R3
    
47. CJNE A,#40H,REP3
    
48. RET
    
49. ;//////取字型码子程序//////////////
    
50. ;------出口参数 Ran_datan （随机字符）
    
51. Font_code: LCALL Ran_num
    
52. MOV Ran_data0,B ;随机取第一页第一个符号
    
53. LCALL Ran_num
    
54. MOV Ran_data1,B
    
55. LCALL Ran_num
    
56. MOV Ran_data2,B
    
57. LCALL Ran_num
    
58. MOV Ran_data3,B
    
59. LCALL Ran_num
    
60. MOV Ran_data4,B
    
61. LCALL Ran_num
    
62. MOV Ran_data5,B
    
63. LCALL Ran_num
    
64. MOV Ran_data6,B
    
65. LCALL Ran_num
    
66. MOV Ran_data7,B
    
67. LCALL Ran_num
    
68. MOV Ran_data8,B
    
69. LCALL Ran_num
    
70. MOV Ran_data9,B
    
71. LCALL Ran_num
    
72. MOV Ran_data10,B
    
73. LCALL Ran_num
    
74. MOV Ran_data11,B ;随机取第12页第一个字符
    
75. RET
    
76. 
    
77. ;//////取数据子程序///////////////////////////////////
    
78. ;------出口参数 data0,data1 (顺序数字)----------------
    
79. Font_data: MOV DPTR,#TAB_data
    
80. MOV A,R0
    
81. MOV B,#0AH
    
82. DIV AB
    
83. MOVC A,@A+DPTR
    
84. MOV data0,A
    
85. MOV A,B
    
86. MOVC A,@A+DPTR
    
87. MOV data1,A
    
88. RET
    
89. ;//////初始化定时器0////////////////////////////////
    
90. Init_tim0: MOV TMOD,#01H
    
91. SETB EA
    
92. SETB ET0
    
93. MOV TH0,#3CH
    
94. MOV TL0,#0AFH
    
95. SETB TR0
    
96. RET
    
97. 
    
98. ;//////定时器0中断服务程序//////////////////////////
    
99. TIM0:
    
100. MOV TH0,#3CH
     
101. MOV TL0,#0AFH
     
102. RETI
     
103. 
     
104. 
     
105. ;//////随机数产生子程序/////////////////////////////
     
106. ;------出口参数 B (随机数)------------------------
     
107. Ran_num: MOV A,TL0
     
108. MOV B,#0AH
     
109. DIV AB
     
110. RET
     
111. 
     
112. ;//////1602写指令子程序/////////////////////////////
     
113. WR_COM: CLR RS
     
114. CLR RW
     
115. CLR E
     
116. ACALL DELAY60MS
     
117. SETB E
     
118. RET
     
119. 
     
120. ;//////1602写数据子程序/////////////////////////////
     
121. ;------入口参数 A （要写入的数据）-------------------
     
122. WR_DATA:
     
123. MOV P0,A
     
124. SETB RS
     
125. CLR RW
     
126. CLR E
     
127. LCALL DELAY60MS
     
128. SETB E
     
129. RET
     
130. 
     
131. ;//////延时子程序////////////////////////////
     
132. ;------60MS延时子程序-----------------------
     
133. DELAY60MS: MOV R7,#75H
     
134. D2: MOV R6,#0FFH
     
135. DJNZ R6,$
     
136. DJNZ R7,D2
     
137. RET
     
138. 
     
139. ;------600ms延时子程序----------------------
     
140. DELAY600MS: MOV R5,#0AH
     
141. D3: LCALL DELAY60MS
     
142. DJNZ R5,D3
     
143. RET
     
144. 
     
145. ;//////字型码表///////////////////////////////
     
146. TAB1: DB " Welcome to "
     
147. DB "Buyixin's design"
     
148. DB " Now-Just-go! "
     
149. DB "Press Play_start"
     
150. TAB2: DB " You Choose: "
     
151. DB " Play again "
     
152. TAB_data:
     
153. DB "0123456789"
     
154. TAB_code:
     
155. DB "~!@#$%^&*?"
     
156. 
     
157. ;//////程序结束///////////////////////////////
     
158. END

复制代码

火龙果

"俺先弱弱的问一句：51单片机怎么产生随机数比较好啊？？????????????请大家给个方案"

原来做一个贪吃蛇,要用随机数得出下一颗豆子的位置
最开始用最简单的,让豆子出现在蛇尾(最简单,不耗费资源,但效果不行...因为都知道会出现在哪里)
后来想用的方法是根据蛇当前的位置及已走过的步数来得出豆子的位置
效果还比较理想.....

用定时器或AD值我觉得...有一定的局限性,根据数学方法,去得出"完美随机数"又觉得太耗费资源,且原理也不是一时半会搞得明白
应该充分根据需要及应用本身的优势去实现,比如有按键输入的,可以根据输入值和输入间隔等

zhjzh72_2004

随机数：51单片机          产生随机数

静若幽兰

很不错！谢谢

keli55

楼主太强了,向楼主学习

kidcao1987

随机数：51单片机          产生随机数?

wanzsxit

有个想法：按键按下时  有个数在疯狂在0~255循环，当按键断开时， 停下的数就是

wuchewnei

赞楼主，不过第一个图不完整，希望能改一下，O(∩_∩)O~

wrqasni20

汇编

yuankeweig

很不错！谢谢

luckfrog

娱乐于学