VF游戏设计_贪吃蛇

游戏规则：移动“蛇”，使“蛇”
吃掉“食物”（即“蛇”与“食物”
重合）。

操作要求：单击“开始”按钮，
“蛇”开始移动。

游戏者可通过操作键
盘上的“↑”、“↓”、“←”、
“→”键来控制“蛇”的移动方向，使
“蛇”能够准确吃掉“食物”。

如果正
确吞吃一次，“蛇”身将会自动增长一
节，速度增加１０ｓ；反之，如果“蛇”
在移动过程中撞到活动界面的边界线或碰
到自己的身体，游戏结束。

通过游戏规则和操作要求的介绍，我
主要从以下四个方面来介绍该款游戏的设
计。

一、游戏界面部分的设计
“蛇”的活动界面是一个９×９的方
格。

这部分可利用容器控件Ｃｏｎｔａｉｎｅｒ１的
Ｉｎｉｔ初始化事件在容器控件Ｃｏｎｔａｉｎｅｒ１中
增加９行９列８１个标签控件对象ｌａｂ１￣ｌａｂ８１
来实现。

容器控件Ｃｏｎｔａｉｎｅｒ１的Ｉｎｉｔ事件代码
如下：
ｐｕｂｌｉｃ　ｌａｂ［９，９］
ｆｏｒ　ｉ＝１　ｔｏ　８１
ｋ＝ＡＬＬＴ（ＳＴＲ（ｉ））
ｔｈｉｓ．ａｄｄｏｂｊｅｃｔ（＇ｌａｂ＆ｋ＇，＇Ｌａｂｅｌ＇）
ｌａｂ［ｉ］＝ｔｈｉｓ．ｌａｂ＆ｋ
ｅｎｄｆｏｒ
ｆｏｒ　ｉ＝１　ｔｏ　９
ｆｏｒ　ｊ＝１　ｔｏ　９
ｗｉｔｈ　ｌａｂ［ｉ，ｊ］
．ｌｅｆｔ＝２５＊（ｊ－１）＋２
．ｔｏｐ＝２０＊（ｉ－１）＋２
．ｈｅｉｇｈｔ＝２０
．ｗｉｄｔｈ＝２５
ＶＦ游戏设计——贪吃蛇
王宏宇 辽宁石油化工大学职业技术学院 １１３００１
我们都知道Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　是一种数
据库管理语言，它简单、易学、易用，
并因其可视化编程技术的完美表现和ＳＱＬ
语言功能的强大已成为编写数据库管理系
统的主要语言之一。

但也正是因为它在
数据库方面的广泛应用，使很多人认为
它就只能在数据库系统中进行存取数据和
管理资源的工作。

其实，利用它我们还
可以做很多其它的事情，现在我就给大
家介绍一款利用Ｖｉｓｕａｌ　ＦｏｘＰｒｏ精美的控
件和丰富的程序语句编写的游戏——
“贪吃蛇”。

图１所表示的就是“贪吃蛇”的主
界面，“蛇”由黑色方块表示，“食
物”由深灰色方块表示。

．ｖｉｓｉｂｌｅ＝．ｔ．
．ｃａｐｔｉｏｎ＝＇＇
．ｂｏｒｄｅｒｓｔｙｌｅ＝１
．ｆｏｒｅｃｏｌｏｒ＝ｒｇｂ（１２８，１２８，１２８）
．ａｌｉｇｎｍｅｎｔ＝２
ｅｎｄｗｉｔｈ
ｅｎｄｆｏｒ
ｅｎｄｆｏｒ
二、“蛇”的自动移动部分的设
计
“蛇”的移动是比较重要和较难设
计的部分，这一点我们主要从两方面考
虑，一是如何控制“蛇”的移动方向，
另一方面是如何使“蛇”自动移动。

１．“蛇”的移动方向部分设计
这部分可利用表单的键盘事件
ＫｅｙＰｒｅｓｓ响应键盘上的“↑”、
“↓”、“←”、“→”键来控制
“蛇”的上、下、左、右四个方向。

表单Ｆｏｒｍ１的ＫｅｙＰｒｅｓｓ键盘事件代
码如下：
ＬＰＡＲＡＭＥＴＥＲＳ　ｎＫｅｙＣｏｄｅ，
ｎＳｈｉｆｔＡｌｔＣｔｒｌ
ｄｏ　ｃａｓｅ
ｃａｓｅ　ｎＫｅｙＣｏｄｅ＝５
ｔ＝１
ｃａｓｅ　ｎＫｅｙＣｏｄｅ＝２４
ｔ＝２
ｃａｓｅ　ｎＫｅｙＣｏｄｅ＝１９
ｔ＝３
ｃａｓｅ　ｎＫｅｙＣｏｄｅ＝４
ｔ＝４
ｅｎｄｃａｓｅ
２．“蛇”的自动移动部分设计
“蛇”的移动可分为三种情况：
一是“蛇”向“食物”方向的移
动。

也就是如何根据“蛇”的移动方向图１　游戏主界面
使“蛇”向前移动。

二是“蛇”在移动过程中正确吞吃“食物”后的移动。

也就是当“蛇”与“食物”重合时，如何使“蛇”自动增长一节，并仍按原移动方向向前移动。

三是“蛇”在移动过程中碰到自己身体或活动界面的边界线后如何结束程序。

以上三种情况可以利用计时器控件Ｔｉｍｅｒ１的Ｔｉｍｅｒ计时事件每隔１秒循环执行来完成。

计时器控件Ｔｉｍｅｒ１的Ｔｉｍｅｒ事件代码如下：
ｄｏ　ｃａｓｅ ｃａｓｅ　ｔ＝１ ａ１＝ａ１－１ ｉｆ　ａ１＝０ ｔｈｉｓｆｏｒｍ．ｔｓ ｅｎｄｉｆｃａｓｅ　ｔ＝２ ａ１＝ａ１＋１ ｉｆ　ａ１＝１０ ｔｈｉｓｆｏｒｍ．ｔｓ ｅｎｄｉｆ ｃａｓｅ　ｔ＝３ ａ２＝ａ２－１ ｉｆ　ａ２＝０ ｔｈｉｓｆｏｒｍ．ｔｓ ｅｎｄｉｆ ｃａｓｅ　ｔ＝４ ａ２＝ａ２＋１ ｉｆ　ａ２＝１０ ｔｈｉｓｆｏｒｍ．ｔｓ ｅｎｄｉｆｅｎｄｃａｓｅ
ｌａｂ［ａ１，ａ２］．ｂａｃｋｃｏｌｏｒ＝ｒｇｂ（０，０，０）ｆｏｒ　ｉ＝１　ｔｏ　ｎ
ｉｆ　ｂ［１，ａ１］＝ｂ［１，ｉ］ａｎｄｂ［２，ａ２］＝ｂ［２，ｉ］ ｔｈｉｓｆｏｒｍ．ｔｓ ｅｎｄｉｆｅｎｄｆｏｒ
ｉｆ　ａ１＝ｘ１　ａｎｄ　ａ２＝ｘ２ ｎ＝ｎ＋１ ｉｆ　ｎ＜１００
ｔｈｉｓ．ｉｎｔｅｒｖａｌ＝１０００－ｓ＊１０ ｔｈｉｓｆｏｒｍ．ｎ ｅｌｓｅ
ｔｈｉｓｆｏｒｍ．ｔｓ
ｅｎｄｉｆｅｌｓｅ
ｌａｂ［ｂ［１，ｎ］，ｂ［２，ｎ］］．ｂａｃｋｃｏｌｏｒ＝ｒｇｂ（２３６，２３３，２１６）
ｅｎｄｉｆ
ｆｏｒ　ｍ＝ｎ　ｔｏ　２ ｓｔｅｐ　－１ ｂ［１，ｍ］＝ｂ［１，ｍ－１］ ｂ［２，ｍ］＝ｂ［２，ｍ－１］ｅｎｄｆｏｒｂ［１，１］＝ａ１ｂ［２，１］＝ａ２
三、“食物”位置部分的设计
“食物”出现的位置应该是随机的，但必须注意的是“食物”出现的位置不能是上一次出现的位置，也不能与“蛇”重合（即在“蛇”身位置出现）。

这部分可利用计时器控件Ｔｉｍｅｒ１调用表单Ｆｏｒｍ１的自定义方法ａｉｍ来自动完成。

表单Ｆｏｒｍ１的自定义方法ａｉｍ的调用参见上一个程序，表单Ｆｏｒｍ１的自定义方法ａｉｍ的代码如下：
ｐｕｂｌｉｃ　ｘ１ｐｕｂｌｉｃ　ｘ２ｙｅｓ＝１
ｄｏ　ｗｈｉｌｅ　ｙｅｓ＝１ ｘ１＝ｉｎｔ（ｒａｎｄ（）＊８＋１） ｘ２＝ｉｎｔ（ｒａｎｄ（）＊８＋１） ｙｅｓ＝０ ｆｏｒ　ｉ＝１　ｔｏ　ｎ
ｉｆ　ｘ１＝ｂ（１，ｉ）　ａｎｄ　ｘ２＝ｂ（２，ｉ） ｙｅｓ＝１ ｅｎｄｉｆ ｅｎｄｆｏｒｅｎｄｄｏ
ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ２．ｅｎａｂｌｅｄ＝．ｔ．
四、结束程序部分的设计
当“蛇”在移动过程中碰到自己身体或活动界面的边界线时游戏结束。

游
戏结束时“蛇”应该停止移动，并且“食物”停止闪动。

而且为了告知游戏已结束，并能快速返回游戏开始界面我们还可以使用一个如图２所示的提示对话框，这样就可以一举两得了。

这部分也是利用计时器控件Ｔｉｍｅｒ１调用表单Ｆｏｒｍ１的自定义方法ｅｎｄ来实现的。

表单Ｆｏｒｍ１的自定义方法ｅｎｄ的调用参见第二部分，表单Ｆｏｒｍ１的自定义方法ｅｎｄ的代码如下：
ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ１．ｅｎａｂｌｅｄ＝．ｆ． ｔｈｉｓｆｏｒｍ．Ｔｉｍｅｒ２．ｅｎａｂｌｅｄ＝．ｆ．　ｍｅｓ＝ＭＥＳＳＡＧＥＢＯＸ（＂游戏结束！是否重新开始？＂，４＋４８＋０，＂提示＂）
　ｉｆ　ｍｅｓ＝６ ｆｏｒ　ｉ＝１　ｔｏ　ｎ
ｌａｂ［ｂ［１，ｉ］，ｂ［２，ｉ］］．ｂａｃｋｃｏｌｏｒ＝ｒｇｂ（２１２，２０８，２００）
ｅｎｄｆｏｒ
ｌａｂ［ｘ１，ｘ２］．ｂａｃｋｃｏｌｏｒ＝ｒｇｂ（２１２，２０８，２００）
ａ１＝５ ａ２＝３ ｎ＝３ ｔ＝４ ｐ＝１
ｔｈｉｓ．ｃｏｍｍａｎｄ３．ｅｎａｂｌｅｄ＝．ｆ．　ｅｌｓｅ
ｔｈｉｓｆｏｒｍ．ｒｅｌｅａｓｅｅｎｄｉｆ
ｔｈｉｓ．Ｃｏｍｍａｎｄ２．ｃａｐｔｉｏｎ＝＂开始＂以上所讨论的几点只是该游戏设计程序中的四个部分，其它部分可由读者自己来设计完成。

通过该游戏的介绍，我希望能够扩展读者的视野，增加学习Ｖｉｓｕａｌ　ＦｏｘＰｒｏ的兴趣，真正了解Ｖｉｓｕａｌ　ＦｏｘＰｒｏ各控件的属性和功能，灵活使用Ｖｉｓｕａｌ　ＦｏｘＰｒｏ的编程语言，能够在娱乐的同时加强Ｖｉｓｕａｌ　ＦｏｘＰｒｏ基础知识的掌握。

当然我的设计还可以进一步改进，例如可以增加一个速度调节控件，根据需要来增加和减缓“蛇”的移动速度；把“开始”、“结束”和“退出游戏”按钮改成菜单形式等，这里我只是起一个抛砖引玉的作用，其他的读者可根据需要再进一步完善。

图２　游戏结束界面。