贪吃蛇VB程序代码.docVIP

题目：贪吃蛇游戏 难度：★★★★ ( 一 )题目简介 “贪吃蛇”是一种操作简单电子，较经典的游戏。基本的游戏玩法：一条蛇在格子上爬行，控制其；（1～5 ，蛇的身体会变长。蛇的头部撞到障碍物或自己身体时，游戏结束。功能 20*20个方格构成。开始时，蛇静止不动，位于地图设置好的初始位置。身体由一串共5个圆圈表示，代表头部的圆 (2)按回车键开始游戏，蛇自动在棋盘上向前爬行，用户可以使用“← ↑ ↓→”4个方向键控制其拐弯。蛇只向左右转90o的弯，不能后退。蛇”后，蛇身伸长个圆圈。 (3)5个数字（15）的位置是随机的，并且互不重叠，且出现在。当蛇吃掉一个数字时，同样的数字随机地出现在其他位1- 5” 5个数字。 (5)蛇在爬行时，如果其头部碰到墙壁或身体，则被“撞死”，游戏结束。程序回到游戏开始状态，--如图所示：主要是一个图片框，里面包含了必要的图形。 设计图形有一到五 共五个彩色图标，分别代表食物的不同数值。 蛇头的基本图形为一个圆形（20*20象素值）。 两个黑的圆圈是蛇的眼睛，为两个圆，其大小与蛇头相匹配。 两条线是“line”控件数组，应用其画线，即绘制20*20 的方格。 其中有一个音乐图片，目的是指示音乐选择键的位置！ 设置主要控件：“line” “checkbox” “command button” “timer” “HScrollbar” “label”以及 “菜单编辑器”。 “timer” 设计须两个控件，一个记录用时！一个应用于控制蛇的运行情况。 “check box” 是为了利用它的“VALUE”属性作为音效开关。 “label” 主要是起到说明的作用，指示如何控制游戏。 “command button” 分别利用语句记录用时，与时间。 “HScrollbar” 利用其“VALUE”属性附值于“timer”的时间间隔，用于调节蛇爬行的速度。 “菜单编辑器” 用于联系其他的窗体，构成一个整体。可以调用另外的窗体，可以查看排行榜，进行选项设置。 （2）设置窗体Frmsetup： ——左图为窗体样图。 设置窗体主要是为了提供各个玩者不同选择，只是对一些“环境”信息进行修改，并不涉及主要的运行情况。 按照功能要求：需列表框显示障碍物类型，图片框来绘制示例图形。另外要拥有颜色设置，有一个控件“CommonDialog”来提供颜色！ 设计的两个命令按钮起到“联系”的作用：确定，取消均进入主界面。 “Listbox”控件：应用其添加及删除信息条目的功能，从文件中读取信息。利用其“INDEX”属性进行条目的识别，从而把文字“代码化”，方便了下面的编程。 （4）排行窗体Frmrecord： 样图如—— 主要功能是记录各个障碍物类型的最高的分，清除历史记录等。主要应用的控件是“Label”控件数组。 利用到数组同名但是“INDEX”的特点，分别记录各个类型障碍物的相关信息，与设置窗体中的“Listbox”控件的“INDEX”属性相对应。 其他一些是说明性文字，“关闭”是为了回到主界面中去，也是起到一种联系的作用。 （5）说明窗体Frmhelp: 说明一下游戏规则。 加图片为了美观，一个通过设置属性可以多行显示的文本框。 “确定”按钮为了回到主窗体，“联系”作用。 （四）游戏的运行（代码）： 蛇身的长度起始设置为五段，如左图 为游戏初始化准备：利用Form_Load()事件 Private Sub Form_Load() 设置初始的一些运行的信息： life = 3 生命为3 hs.Value = 15000 Pic.BackColor = lngBackColor Pic.Left = 20 位置信息 Pic.Top = 20 打开所须文件调用其过程读取信息 Call OpenMaze 打开关于障碍的文件 Call OpenRecord 打开关于记录的文件 Call DrawMaze 画出障碍物 Call DrawSnake 画出蛇 Call ShowNumberAll 画出所有的食物（数字1-5） 还有其他一些，暂不列举！ 游戏开始运行 ： 应用的是“Timer”事件确定时间的间隔，利用循环语句