VB课程设计《贪吃蛇游戏》报告.doc

程序设计报告
--51号:贪吃蛇游戏
,'''╭⌒╮⌒╮.',''',,',.'',,','',.
╱◥██◣''o',''',,',.''.'',,',.
|田|田田│'',,',.',''',,',.''
╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬
程序介绍
“贪吃蛇”是我儿时很喜欢玩的电子游戏。游戏方法如下:一条蛇在棋盘上爬行,由键盘控制其转弯;棋盘上随机地出现5个数字(1~5),当蛇的头部碰到数字时(吃数字),蛇的身体会变长。当蛇的头部撞到棋盘边界,障碍物,或碰到自己身体时,游戏结束。游戏结束时,蛇身体越长得分越高,根据分数的高低还有可能进入排行榜噢!

﹎┈┈.o┈﹎﹎.. ○
﹎┈﹎●○.﹎﹎o▂▃▅▆
┈┈/█\/▓\ ﹎┈﹎﹎┈﹎
▅▆▇█████▇▆▅▃▂┈﹎
具体设计
⑴程序启动时界面上棋盘由20*20个方格构成。开始时,蛇静止不动,位于窗口的左上角,头向右。身体由一串共5个圆圈表示,代表头部的圆圈为红色。蛇头上还有两个可爱的绿色眼睛。
⑵按回车键开始游戏,蛇自动在棋盘上向前爬行,用户可以使用“←↑↓→”4个方向键控制其拐弯。蛇只能向左右转90º的弯,不能后退。蛇吃掉一个数字后,身体伸长的幅度与数字的大小有关。例如,吃掉“3”后,蛇身体伸长3个圆圈;吃掉“5”后身体伸长5个圆圈。
⑶ 5个数字(1~5)的位置是随机的,并且互不重叠,且只出现在未被蛇盖住的格子中,还不能和出现在障碍物上。当蛇吃掉一个数字时,同样的数字随机地出现在其他位置上,即棋盘上总保持有“1~5”五个数字。
⑷使用回车键可以暂停或继续游戏。游戏进行时,窗口标题栏上显示出已使用的时间和得分,得分是当前蛇身体的长度。
⑸蛇在爬行时,如果其头部碰到墙壁或自己的身体,则被“撞死”,游戏结束。程序回到游戏开始状态,用户可以重新开始玩。
/^\/^\
_|__| O|
\/ /~ \_/ \
\____|__________/ \
\_______ \
`\ \ \
| | \
/ / \
/ / \\
/ / \ \
/ / \ \
/ / _----_ \ \
/ / _-~ ~-_ | |
( ( _-~ _--_ ~-_ _/ |
\ ~-____-~ _-~ ~-_ ~-_-~ /
~-_ _-~ ~-_ _-~
~--______-~ ~-___-~

设计过程中遇到的问题和解决方法
在贪吃蛇游戏的设计中,一开始便遇到了问题,20*20的格子我是直接在窗体上画的,后来在进行设置窗口的编辑中时我发现在每个迷宫中都画格子实在太过麻烦。在室友的提醒下,我意识到了调用的方法,这样只要在标准模块写一个通用过程来调用便可以了(设置窗口中,格子的大小要做适当改变)。程序如下:
' 画20*20的格子
Public Sub paintmain(j As Integer)
Dim i As Integer
For i = 1 To 21
(0, j * i - j)-(6000, j * i - j)
(j * i - j, 0)-(j * i - j,