admin 管理员组

文章数量: 1086019


2024年4月30日发(作者：defence与defend)

维普资讯

Ｓ　

∞　

一　

囊　。　

３　

。　一　察甩｜＿曩一，　一■毒曩　

二　。　。　－　一　ｌ　葛　薯≯　

图形图像处理与游戏编程　

ＧＲＡＰ｝～｛ｌＣＳ＆ＧＡ　Ｍ　ＰＲＯＧＲＡＭ　

利用ＶＢ开发扫雷游戏　

徐勇　

摘要本文介绍在Ｗｉｎｄｏｗｓ环境下利用ＶＢ６，０开发一个简单的扫雷游戏的方法。　

扫雷，ＶＢ６．０，控件　关键词

扫雷游戏是Ｗｉｎｄｏｗｓ操作系统自带的一个小游戏，过去的　

几年里Ｗｉｎｄｏｗｓ操作系统历经数次换代，变得越来越庞大、复　

控件的ｃａｐｔｉｏｎ属性为Ｉ）ｑｚｌｓ（＝ｓｊｚｌｓ），随着玩家每挖出一个雷　

（单击鼠标右键，在相应区域的ｃｏｍｍａｎｄ控件上插上一面小红　

旗），ｂｑｚｌｓ的值减少ｌ；　

杂，但这个可爱的小游戏却依然保持原来的面容，我们也可以　

尝试着开发一个类似的“扫雷游戏”，下面就将笔者在教学过　

４．用一个ｃｏｍｍａｎｄ控件表示游戏进行的状态（初始化按　

钮），初始状态该ｃｏｍｍａｎｄ控件的ｐｉｃｔｕｒｅ属性为图：平静的　

脸，当玩家挖出所有的雷时，ｐｉｃｔｕｒｅ属性变为图：大笑脸，当　

玩家踩到雷时，ｐｉｃｔｕｒｅ属性变为图：哭脸。　

程中利用Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０作为工具开发一个简单扫雷游戏的　

方法介绍给读者朋友。　

通过研究Ｗｉｎｄｏｗｓ操作系统自带的扫雷游戏，我们可以发　

现在这个游戏中主要有以下二个关键的地方：　

初始化部分的部分源代码如下：　

●　●　●　●　●　●　

第一是初始化问题，包括随机产生本局游戏中雷的总数、　

雷的分布、对于每一个小区域如何获取周围地区分布的雷数　

等。　

Ｆｏｒ　ｉ＝１　Ｔｏ３６　Ｐ用于表示按钮当前显示的是什么图形　

Ｐ（ｉ）＝０　

第二是对鼠标事件的处理问题，即在玩游戏的过程中对鼠　

标事件应如何做出反应。　

下面将详细介绍本程序对这两个关键问题的分析与解决思　

路。　

一

Ｐ（ｉｎｄｅｘ）值为Ｏ表示什么也没有，１表示红旗，２是问号

Ｎｅｘｔｌ　

．　

Ｆｏｒ　ｉ＝１　Ｔｏ　３６　

Ｎｅｘｔｌ　

恢复按钮　

Ｆｏｒｍ１，Ｃｏｍｍａｎｄ１（ｉ）．Ｖｉｓｉｂｌｅ＝Ｔｒｕｅ　

、

初始化　

１．在本程序中，设置程序界面为６　Ｘ　６共３６个子区域，　

Ｆｏｒｉ＝１　Ｔｏ３６　

Ｒａｎｄｏｍｉｚｅ　

初始化雷的个数　

ＩｆＩｎｔ（１０　Ｒｎｄ＋１）＞８Ｔｈｅｎ　

每一个区域ｉ（按从左至右，从上至下标记）有ｌａｂｅｌｌ（ｉ）和ｃｏｎ—　

ａｒｒ（１）＝１　

Ｅｌｓｅ　

ｍａｎｄ１（ｉ）两个控件，并有一个下标变量ａｒｒ（ｉ）与之相对应。　

（注：为了在程序中能更清楚地标识每一个区域，我们将每一　

个ｃｏｍｍａｎｄ（ｉ）控件的ｃａｐｔｉｏｎ属性设置为ｉ值。）　

２．随机产生总雷数。在程序的Ｆｏｒｍ＿Ｌｏａｄ（）模块中，我们　

利用随机函数来确定每个下标变量ａ／Ｔ（ｉ）的值为１还是为０，　

而正是ａｒｒ（ｉ）的值决定了第ｉ个区域是否为雷区；接下来我们　

用ｌａｂｅｌｌ（ｉ）．ｃａｐｔｉｏｎ来标识周边地区的雷数。用整形变量ｓｊｚｌｓ　

●　

ａｒｒ（ｉ）＝０　

Ｅｎｄ　Ｉｆ　

Ｎｅｘｔｉ　

　．

获得ｌａｂｅｌ１　ｌ１）．ｃａｐｔｉｏｎ的值，用于标识周边地区的雷的　

个数　

Ｆｏｒｍ１．Ｌａｂｅｌ１（１）．Ｃａｐｔｉｏｎ＝ａｒｒ（２）＋ａｒｒ（７）＋ａｒｒ《８）　

●　●　●　●　●　

保存实际总雷数，实际总雷数来自对每一个区域是否为雷区的　

判断；用ｂｑｚｌｓ表示显示在界面上的总雷数，初始状态ｓｊｚｌｓ＝　

ｂｑｚｌｓ。　

Ｆｏｒ　ｉ＝２　Ｔｏ　５　

Ｆｏｒｍ１．Ｌａｂｅｌ１（ｉ）．Ｃａｐｔｉｏｎ＝ａｒｒ（ｉ一１）＋ａｒｒ（ｉ＋１）　

＋ａｒｒ（ｉ＋５）～＋ａｒｒ（ｉ＋６）＋ａｒｒ（ｉ＋７）　

Ｎｅｘｔｊ　

３．用一个ｌａｂｅｌ控件来显示雷数，在刚进入程序时该ｌａｂｅｌ　

；ｔｌ　

维普资讯

一

ｔｌＩ

　

懒

：　

∞　

。。　。樾罄霪　豢　

ＧＲＡＰＨｌＣＳ＆ＧＡＭＥ　ＰＲＯＧＲＡＭ　

●　●　●　●　●　●　

统计总的雷数　

●　●　●　●　●　●　

Ｅｎｄ　Ｓｕｂ　

二、事件处理　

１．对单击鼠标左键事件的处理。分二种情况：　

（１）当相应区域不是雷区时，挖开该区域（将该区域对应　

的ｃｏｍｍａｎｄ控件的ｖｉｓｉｂｌｅ属性变为：ｆａｌｓｅ），并且若能据此判断　

出周围区域也不是雷区则将周围相应的区域也挖开；　

（２）当相应区域是雷区时，则界面中所有的雷区同时　

“炸开”：第一步先显示一个提示框，第二步当提示框关闭　

时，所有的非雷区的ｃｏｍｍａｎｄ．ｖｉｓｉｂｌｅ属性值设为ｆａｌｓｅ，而雷区　

的ｃｏｍｍａｎｄ。ｖｉｓｉｂｌｅ属性值设为ｔｒｕｅ，并且踩中的雷区的ＣＯＢ—　

ｍａｎｄ．ｐｉｃｔｕｒｅ为一个红色的雷，而其它雷区为ｐｉｃｔｕｒｅ为一个黑　

色的雷。　

２。对单击鼠标右键事件的处理。　

（１）第一次用右键单击某个ｃｏｍｍａｎｄ（ｉ）控件时，该控件　

上插上一面小红旗，第二次（即对有小红旗的某个ｃｏｍｍａｎｄ（ｉ）　

控件）单击该ｃｏｍｍａｎｄ控件时标记一个问号，第三次用右键单　

击时恢复原状（即：既没有标记红旗也没有标记问号）。事件处　

理功能模块的部分源代码如下：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ１　Ｃｌｉｃｋ｛Ｉｎｄｅｘ　Ａｓ　Ｉｎｔｅｇｅｒ）　

首先判断有没有踩到雷　

Ｉｆ　ａｒｒ｛Ｉｎｄｅｘ）＝１　Ｔｈｅｎ　踩到雷了　

Ｓｅｔ　Ｆｏｒｍ　１．Ｃｏｍｍａｎｄ　１｛０）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

｛Ａｐｐ．Ｐａｔｈ＋　＼ｃｗｆａｃｅ。ｂｍｐ　）　

ｍ＝ＭｓｇＢｏｘ｛　你真笨！　＆Ｃｈｒ｛１３）＆Ｃｈｒ｛１Ｏ）＆　你　

完蛋了！　．１６，　哈哈　）　

Ｓｅｔ　Ｆｏｒｍ　１．Ｃｏｍｍａｎｄ　１｛Ｉｎｄｅｘ）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

｛Ａｐｐ．Ｐａｔｈ＋　＼ｈｌｅｉ．ｂｍｐ　）　’　

Ｆｏｒ　ｉ＝１　Ｔｏ　３６　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１…．Ｃａｐｔｉｏｎ＝～　

ｌｆ　ｉ＜＞ＩｎｄｅｘＴｈｅｎ　

Ｉｆ　ａｒｒ｛．）＝１　Ｔｈｅｎ　’　

Ｓｅｔ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ　１｛ｉ）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

｛Ａｐｐ．Ｐａｔｈ＋　＼ｌｅｉ．ｂｍｐ　）　

Ｅｌｓｅ　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１｛ｉ）．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

Ｅｎｄ毓　

Ｅｎｄ　Ｉｆ　

Ｎｅｘｔｊ　

Ｅｌｓｅ　

没有踩到雷．当按钮下不是雷时，将按钮打开　

Ｉｆ　Ｉｎｄｅｘ＝０　Ｔｈｅｎ　

≤　

’

ｊ　

《　毽　

翘冀　

ｔ　

当按下初始化按钮时，初始化过程，功能等同于　

ｆ０ｒｍ１Ｊｏａｄ过程　

●　●　●　●　●　●　

Ｅｌｓｅ　

当按下普通按钮时　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｉｎｄｅｘ）．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

当周边地区没有雷时，将周边地区也同时打开　．　

Ｉｆ　Ｖａｌ（Ｆｏｒｍ１．Ｌａｂｅｌ１（Ｉｎｄｅｘ）．Ｃａｐｔｉｏｎ）＝０　Ｔｈｅｎ　

Ｆｏｒｍ１。Ｌａｂｅｌ１（Ｉｎｄｅｘ）。Ｃａｐｔｉｏｎ＝～　

Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｉ　ｎｄｅｘ　

Ｃａｓｅ　１　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（２）．Ｖｉｓｉｂｌｅ：Ｆａｌｓｅ　

Ｆｏｒｍ１　Ｃｏｍｍａｎｄ１（７）．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

Ｆｏｒｍ１。Ｃｏｍｍａｎｄ１（８）。Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ　

●　●　●　●　●　●　

Ｅｎｄ　Ｓｅｌｅｃｔ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ　１　ｏｕｓｅＵｐ（Ｉ　ｎｄｅｘ　Ａｓ　Ｉ　ｎｔｅｇｅｒ．Ｂ　ｕｔ—　

ｔｏｎ　Ａｓ　Ｉｎｔｅｇｅｒ．Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ．Ｘ　Ａｓ　Ｓｉｎｇｌｅ，Ｙ　Ａｓ　Ｓｉｎｇｌｅ）　

接受鼠标右键　

当对初始化按钮单击鼠标右键时，不执行任何动作　

Ｉｆ　Ｉｎｄｅｘ＜＞０　Ｔｈｅｎ　

当对其它非初始化按钮单击鼠标右键时　

Ｉｆ　ａｒｒ（Ｉｎｄｅｘ）＜＞１　Ｔｈｅｎ　

Ｓｅｔ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｏ）　．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

（Ａｐｐ．Ｐａｔｈ＋　＼ｘｉａｏｎｉａｎ。ｂｍｐ　）　

Ｅｎｄ　Ｉｆ　

Ｉｆ　Ｂｕｔｔｏｎ＝２　Ｏｒ　Ｂｕｔｔｏｎ＝ｖｂ只ｉｇｈｔＢｕｔｔｏｎ　Ｔｈｅｎ　

Ｓｅｌｅｃｔ　Ｃａｓｅ　Ｐ（Ｉｎｄｅｘ）　

Ｃａｓｅ２　

Ｓｅｔ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｉｎｄｅｘ）。Ｐｉｃｔｕｒｅ：ＬｏａｄＰｉｃｔｕｒｅ｛～）　

ＰＩＩｎｄｅｘ）＝０　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｉｎｄｅｘ）．Ｃａｐｔｉｏｎ＝Ｉｎｄｅｘ　

Ｃａｓｅ　１　

Ｓｅｔ　Ｆｏｒｍ　１．Ｃｏｍｍａｎｄ　１（１　ｎｄｅｘ）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

（Ａｐｐ．Ｐａｔｈ＋　＼ｗｈ．ｂｍｐ　）　

ｂｑｚｌｓ＝ｂｑｚｌｓ＋１　

Ｆｏｒｍ１．Ｌａｂｅｌ１（Ｏ）．Ｃａｐｔｉｏｎ＝ｂｑｚｌｓ　

Ｐ｛Ｉｎｄｅｘ）＝２　

Ｉｆ　ａｒｒ｛Ｉｎｄｅｘ）＝１　Ｔｈｅｎ　ｓｊｚｌｓ＝ｓｊｚｌｓ＋１　

Ｃａｓｅ　０　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｉｎｄｅｘ）．Ｃａｐｔｉｏｎ＝一　

Ｓｅｔ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｉｎｄｅｘ）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃ．　

ｔｕｒｅ｛Ａｐｐ．Ｐａｔｈ＋　＼ｈｑ．ｂｍｐ　）　

维普资讯

Ｓｔｔ　｜ｕ＿ｊ６ｉＤ．黻　ｉ～　

一　

Ｌ　

０　‘　胃≯　ｍｍｍ。霉ＩＩＩ　

痢一　。　

赣秦　晶　

图形图像处理与游戏编程　

ＧＲＡＰＨｌＣＳ＆（ｊＡＭ　Ｅ　ＰＲＯＧＲＡＭ　

ｂｑｚｌｓ＝ｂｑｚｌｓ一１　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

ＦＯｒｍ１．Ｌａｂｅｌ１（０）．Ｃａｐｔｉｏｎ＝ｂｑｚｌｓ　

Ｐ（Ｉｎｄｅｘ）＝１　

３．用鼠标左键单击初始化按钮时，执行初始化部分完成　

相应任务，鼠标右键（对于初始化按钮）暂时被封锁，不执行任　

何操作。　

Ｉｆ　ａｒｒ（Ｉｎｄｅｘ）＝１　Ｔｈｅｎ　ｓｊｚｌｓ＝ｓｊｚｌｓ一１　

‘　Ｅｎｄ　Ｓｅｌｅｃｔ　

Ｅｎｄ　Ｉｆ　

・

笔者在给非计算机专业本科学生上程序设计课时，利用这　

个简单的小程序向学生介绍了开发简单程序的基本方法，极大　

地激发了同学们的学习兴趣，取得了良好的教学效果。　

Ｉｆ　ｂｑｚｌｓ＝０Ｔｈｅｎ　

Ｉｆ　ｓｊｚｌｓ＝０Ｔｈｅｎ　

ｍ＝ＭｓｇＢｏｘ（　你已经成为第一高手！　，０，　恭喜恭喜　）　

Ｓｅｔ　Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（Ｏ）．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ　

本程序的实验环境为：ＷｉｎｄｏｗｓＸＰ，Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０。　

（Ａｐｐ，Ｐａｔｈ＋　＼ｄａｘｉａｏｎｉａｎ　ｂｍｐ　）　

当挖开所有的雷时，如果还有没有翻开的区域，将其翻开　

Ｆｏｒ　ｉ＝１　ＴＯ　３６　

参考文献　

１．邱仲潘等译．Ｖｉｓｕａｌ　Ｂａｓｉｃ　６从入门到精通．北京电子　

工业出版社，１９９９　

Ｆｏｒｍ１．Ｃｏｍｍａｎｄ１（ｉ）。Ｖｉｓｉｂｌｅ：Ｆａｌｓｅ　

Ｎｅｘｔｉ　

２．刘圣才、李春葆编著。Ｖｉｓｕａｌ　Ｂａｓｉｃ　６程序设计导学。　

北京清华大学出版社，２００２　

Ｅｌｓｅ　

ｍ＝ＭｓｇＢｏｘ（　你的红旗是否插的太多７　７　７　，０，　

疑问　）　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

业　坐　

３。李怀明、骆原、王育新编著。Ｖｉｓｕａｌ　Ｂａｓｉｃ　６。０参考详　

解．北京清华大学出版社，１９９９　

‘　

（收稿日期：２００６年１月２０日）　

坐　坐　

（上接第７４页）　

３　实验结果　

从上面的图像可以看出采用拉普拉斯高斯算子进行的边缘　

检测效果比较突出，Ｓｏｂｅｌ和Ｐｒｅｗｉｔｔ算子都是３×３模板，比　

较简单，不太适合对比较复杂的图像进行边缘检测。而拉普拉　

下面的图像是分别采用Ｓｏｂｅｌ算子和Ｇａｕｓｓ—Ｌａｐｌａｃｅ算子　

进行边缘检测处理的结果。原图是ｌｅｎａ的８位灰度图像。　

斯高斯算子能精确地检测具有灰度渐变和噪声较多的灰度图　

像。　

三、结论　

由于拉普拉斯高斯算子优越性，在图像处理和模式识别领　

域得到了广泛的应用。本文给出了一种用Ｄｅｌｐｈｉ　６开发平台　

实现拉普拉斯高斯边缘检测算法的应用程序，并将处理结果与　

其他的边缘检测算子进行了比较，从实际应用中检验了拉普拉　

斯算子，并大大增加了算法的可移植性。　

（ａ）ｌｅｎａ原图　（ｂ）Ｓｏｂｅｌ算子　

参考文献　

１　田村秀行　计算机图像处理　北京科学出版社，２００４　

２　边肇祺等编著．模式识别　北京清华大学出版社，　

ｌ９８８　

３　王金鹤、欧宗瑛、夏晓东。工程扫描图像直线整体识　

别算法．中国图像图形学报，１９９８，３（１１）；９１２—９１７　

４　佘新平、朱力．一种具有抗噪声干扰的图像边缘提取　

算法的研究　电子技术应用，１９９９，２５（１）：９一ｌＯ　

ｃ）Ｐｒｅｗｉｔｔ算子　（ｄ）Ｇａｕｓｓ—Ｌａｐｌａｃｅ算子　

（收稿日期：２００６年２月６日）　


本文标签： 游戏 区域 雷数 图像

版权声明：本文标题：利用VB开发扫雷游戏 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714454880a680821.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。