贪吃蛇小游戏

[笨狗先飞]

随手写了个贪吃蛇的小游戏，也没去优化。找了找网上VB写贪吃蛇大把大把的。。。

http://download.csdn.net/detail/bakw/9778647

[舉杯邀明月]

下载来看看。

[舉杯邀明月]

我发表点看法： 1.　既然显示区域大小是固定的，窗口就应该用“固定大小窗口”（BorderStyle 用1或3）； 2.　“显示区域”占用得这么少，就应该在窗体上加个Label，显示一些简单的操作信息； 3.　运行程序后，应该是由用户操作“开始”，才启动游戏。

[舉杯邀明月]

玩的时候出现异常：

[笨狗先飞]

小毛病

[笨狗先飞]

很遗憾，您上传的资源VB6小游戏贪吃蛇源码因描述不清没有通过审核，如有疑问，请联系[e-mail]

[舉杯邀明月]

引用 6 楼 bakw 的回复:

很遗憾，您上传的资源VB6小游戏贪吃蛇源码因描述不清没有通过审核，如有疑问，请联系[e-mail]

其实我在3楼说的那个问题，也很好解决，把你的代码中所有的“I = Rnd * Grid ^ 2”， 改成“I =Int( Rnd * Grid ^ 2 )”就不会出这个问题了。 还有一个，你的产生“食物”的算法不恰当啊，如果遇到一个玩贪食蛇的高手， 　在“蛇”很长时（估计接近占“半屏”时），产生食物那儿，命中率低了，会有明显卡顿。

[赵4老师]

NOKIA手机自带的贪吃蛇有N多个版本可供对比。

[无·法]

让Chen8013大牛给你打包打包上市

[笨狗先飞]

引用 7 楼 Chen8013 的回复:

[quote=引用 6 楼 bakw 的回复:] 很遗憾，您上传的资源VB6小游戏贪吃蛇源码因描述不清没有通过审核，如有疑问，请联系[e-mail]

其实我在3楼说的那个问题，也很好解决，把你的代码中所有的“I = Rnd * Grid ^ 2”， 改成“I =Int( Rnd * Grid ^ 2 )”就不会出这个问题了。 还有一个，你的产生“食物”的算法不恰当啊，如果遇到一个玩贪食蛇的高手， 　在“蛇”很长时（估计接近占“半屏”时），产生食物那儿，命中率低了，会有明显卡顿。 [/quote] 是啊，忘记有四舍五入的问题了。 这个没优化过，就赌没人有耐心玩得下去