用VB开发“穿越彩色危险地带”益智游戏

｜¨　≥　ｊ　

　ｒ

—　

维普资讯

蓼ｃｒａｍ－麓黼浆纂　

：　

呦《Ｉ悖　ｒ　殴　

一　

ｉ　

？　㈣　

图形图像处理与游　

ＧＲＡ　ｌｌＣＳ＆　ＡＭ　ＰＲ《　）（ｊ｝乏Ａ　

然　毫蠢棼　§　黪　　

用ＶＢ开发“穿越彩色危险地带”益智游戏　

袁晓虎　

摘要给出概念游戏的定义。并举例说明。　

游戏概念，概念游戏，ＶＢ程序　关键词

一

、

概念游戏　

玩过游戏的人都有这样的体会，如果一个游戏的想法不吸　

（１）每次初始一个出发点和一个目标点，用“　’号标　

记，并给出出发点和其正上方三个格的提示（如果不提示第一　

步完全靠运气，没有意义。如果其正上方三个格中没有颜色提　

示的是陷阱）　引人，你不会去玩的。而且相同构思的游戏，玩过一款后，就　

不会对另一款同类游戏感兴趣。所以游戏的构思很重要，应该　

作为游戏开发首先考虑的问题，举例来说，对于战略游戏，其　

想法构思不外乎资源、建设、造兵、开战，不同的只是实现这　

些想法的方法而已。所以实现方法可以千变万化，可构思只有　

一

（２）每次只能走一个格，不能跳格！即使你想后退，也　

得一格一格地退！　

（３）鼠标左键走格，右键进行标记！　（右键标记没有实　

际意义，即使格上标记了，仍可以走那一格！不过标记可以帮　

个，我们通常称为构思概念！　

助你记忆，便于分析。）　

（４）每一步都会有提示（像扫雷一样），本程序使用颜　

色给出形象直观的提示。你可以根据窗体左侧的颜色进行判　

断。如亮绿色表示周围（周围指的是与其相邻的８个格）没有　

陷阱，深绿色表示周围有一个陷阱，深黄色表示周围有两个陷　

阱等。　

如果有了某一个游戏概念，就可以通过使用简单的程序使　

其实现，将这一概念表现出来，通常这种概念游戏可以作为构　

思的初级给出，让人了解，然后让有想法的人通过其他方法来　

实现、丰富和强化，使其成为真正的游戏。　

二、设计思路　

大家对扫雷游戏一定不陌生吧，其实这就是一种很好的初　

级概念，我们可以根据这一概念，做出另一款游戏，同样是方　

格地图，地图上随机放置地雷，不同的是游戏的方法，扫雷是　

将所有地雷找出，而我这里初始一个出发点和一个目标点，让　

（５）因为游戏有难度，如果总是觉得思考的时间不够，可　

以作弊，单击窗体上“永恒时间”，就可以不考虑时间的限　

制！　

三、关于游戏　

这款益智游戏便是概念游戏的一个例子，同样是扫雷的概　

念，但实现的方法不同，当然这个程序可以加以强化，可以像　

扫雷那样设定三个级别，可以加上每走一步的走步声音，使其　

更加生动和形象，也可以加上背景音乐等等。如果有兴趣，可　

其由出发点开始，穿过雷场，　到达目标点，能到就算取胜。制　

定一定的游戏规则并给出有趣的游戏背景。这是一款益智游　

戏，下面就是这款游戏的内容。　

１．游戏背景　‘　

为了完成任务，你现在需要穿过一片危险地带（布满了陷　

以加许多东西！就像开始所讲的那样：这种概念游戏可以作为　

阱），当你踏上这片土地的第一步，危险就开始笼罩着你，你　

的每一步都危机四伏，你需要仔细留意你的脚下，大地会通过　

构思的初级给出，让人了解，然后让有想法的人通过其他方法　

来实现、丰富和强化，使其成为真正的游戏。　

变化颜色来告诉你，你距离危险的程度，现在你能做的只有考　

虑，仔细考虑，这里没有侥幸，完全依靠你的大脑，时间在一　

分一秒地过去，你必须快点，否则你的任务在也将无法完成。　

２．游戏规则　

四、程序实现　

程序中通过数组来标记格子，并用数组的取值来标记陷阱　

的有无，使用颜色来给出提示。具体的请看程序上的注释。　

葡　嚣　与　

维普资讯

照攀　馨懋静藤　

形图像处　与游戏　程　

ＲＡ　Ｓ＆（ｉｉｌａ　ｌ　ｌ　妖《）（　ＲＡＭ　

程序在Ｗｉｎｄｏｗｓ系列下均通过。游戏经人测试可行。过关　

画面如下图。　

初始陷阱数据标志位置　

Ｄｉｍ　ｘ

ｔｒａｐ　Ａｓ　Ｉｎｔｅｇｅｒ，ｙｔｒａｐ　Ａｓ　Ｉｎｔｅｇｅｒ　

＿

＿

过关画面　

程序如下：　

Ｄｉｍａ《一５Ｔｏ２０，一５Ｔｏ２０）ＡｓＤｏｕｂｌｅ　标记格子　

ＤｉｍｈＡｓＩｎｔｅｇｅｒ．ｍＡｓＩｎｔｅｇｅｒ．ＳＡｓＩｎｔｅｇｅｒ　

ＤｉｍＤ

＿

ｔｉｍｅＡｓＳｉｎｇｌｅ　

Ｄｉｍ　Ｆｏｒｅ＿ｘ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｆｏｒｅ

＿

ｙＡｓ　Ｉｎｔｅｇｅｒ　标记上一步　

Ｄｉｍ　Ｓ＿Ｐ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ　Ｄ　ＰＡｓ　ｌｎｔｅｇｅｒ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｌｏａｄ《）　

给出提示颜色的定义　

Ｐｉｃｔｕｒｅ２《０）ＢａｃｋＣｏｌｏｒ＝ＱＢＣｏｌｏｒ《１　０）　

Ｐｉｃｔｕｒｅ２《１）．ＢａｃｋＣｏｌｏｒ＝ＱＢＣｏｌｏｒ《３）　

Ｐｉｃｔｕｒｅ２《２）．ＢａｃｋＣｏｌｏｒ　ＱＢＣｏｌｏｒ《６）　

Ｐｉｃｔｕｒｅ２《３）．ＢａｃｋＣｏｌｏｒ；ＱＢＣｏｌｏｒ《１４）　

Ｐｉｃｔｕｒｅ２ｆ４）．ＢａｃｋＣｏｌｏｒ＝ＱＢＣｏｔｏｒｆ４）　

Ｐｉｃｔｕｒｅ２《５）．ＢａｃｋＣｏｌｏｒ＝ＱＢＣｏｔｏｒ《５）　

Ｐｉｃｔｕｒｅ２《６）．ＢａｃｋＣｏｌｏｒ　ＱＢＣｏｌｏｒ《１３）　

Ｐｉｃｔｕｒｅ２《７）．ＢａｃｋＣｏｔｏｒ＝ＱＢＣｏｌｏｒ《１２）　

Ｃｏｍｍａｎｄ２．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ　Ｒｅｓｉｚｅ《）　

Ｐｉｃｔｕｒｅ１．Ｓｃａｌｅ《０，１８）一《１８，０）　初始地图范围　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ　１＿ｊ＝ｌｉｃｋ《）　

初始场景　

Ｐｉｃｔｕｒｅ１　Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｐｉｃｔｕｒｅ１．ＣＩｓ　

画地图格子　

Ｄ｛ｍ　ｉＡｓ　Ｉｎｔｅｇｅｒ　

Ｆｏｒｉ＝１　ＴＯ　１７　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ《１，ｉ）一《１　７．ｉ），ＲＧＢ《０．０，１　９１）　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ《ｉ，１）一《ｌ，１　７）．ＲＧＢ《　０．０，１９１）　

Ｎｅｘｔｉ　

Ｄｆｍ　ｆ０　Ａｓ　Ｉｎｔｅｇｅｒ．ｊ０　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ＿１　Ａｓｌｎｔｅｇｅｒ　

Ｄｉｍ　ｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ；２　Ａｓ　Ｉｎｔｅｇｅｒ，ｊ２　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ　ｓｕｍ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｏ　

ｉ０＝０　

ｓｕｍ＝０　

Ｆｏｒｉ０＝一５Ｔｏ２０　

Ｆｏｒｉ０＝一５Ｔｏ２０　

ａ（ｉ０，ｉ０）＝０　

Ｎｅｘｔｊ０　

Ｎｅｘｔｉ０　

用１表示陷阱在这个位置，初始４５个陷阱　

Ｆｏｒｉｉ　１　ＴＯ５０　

Ｒａｎｄｏｍｉｚｅ：ｘ＿ｔｒａｐ＝Ｒｎｄ　１５＋１　

Ｒａｎｄｏｍｉｚｅ：ｙ＿ｔｒａｐ＝Ｒｎｄ￥１５＋１　

ａ《ｘ＿＿ｔｒａｐ　ｙ＿ｔｒａｐ）＝１　

Ｎｅｘｔｉｉ　

Ｆｏｒｉ２＝１　Ｔ０　１６　

Ｆｏｒｌ２＝１　ＴＯ１６　

ｓｕｍ＝￥ｕｍ＋ａ《ｉ２，Ｉ２）　

Ｎｅｘｔｊ２　

Ｎｅｘｔｉ２　

ＬｏｏｐＵｎｔｉｌｓｕｍ＞＝４５　

初始起点　

ＤＯ　

Ｒａｎｄｏｍｉｚｅ：Ｓ

＿

Ｐ；Ｒｎｄ，　１６＋１　

ＬｏｏｐＵｎｔｉｌａ《Ｓ＿Ｐ，１）＜＞１　ＡｎｄＳ＿Ｐ＞０ＡｎｄＳ＿ｐ＜１　７　

Ｆｏｒｅ

＿

，

ｘ；Ｓ＿Ｐ：Ｆｏｒｅ

＿

ｙ＝１　

ＣａｌｌＤｅｇｒｅｅ＿＿ｄａｎｇｅｒｏｕｓ（Ｓ＿Ｐ．１）　给出起点位置的提示　

ＣａｌｌＳｈｏｗ

＿

ｔｒａｉｌ《Ｓ＿Ｐ　１）　

Ｃａｌｌ　Ｌｉｎｅ＿Ｒｅｄｒａｗ　

初始终点　

Ｄｏ　

Ｒａｎｄｏｍｉｚｅ：Ｄ＿Ｐ＝Ｒｎｄ￥１６＋１　

ＬｏｏｐＵｎｔｉｌａ《Ｄ＿ｆ），１６）＜＞１　ＡｎｄＤ＿Ｐ＞０ＡｎｄＤ－Ｐ＜１　７　

ＣａｌｌＳｈｏｗ

＿

ｔｒａｉｌ《Ｄ—Ｐ，１６）　

Ｃａｌｌ　Ｌｉｎｅ＿Ｒｅｄｒａｗ　

初始时间　

ｈ　０：ｍ＝１　５：Ｓ＝０　

Ｐｉｃｔｕｒｅ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

对按钮作用　

Ｃｏｍｍａｎｄ　１．Ｅｎａｂｌｅｄ；Ｆａｌｓｅ　

Ｃｏｍｍａｎｄ２．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ２

＿

Ｃｌｉｃｋ《）　

开始游戏　

Ｄ　ｉｍｅ＝ｈ　３６００＋ｍ％６０＋Ｓ＋Ｔｉｍｅｒ　

Ｔｉｍｅ门．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｔｉｍｅｒ１，Ｉｎｔｅｒｖａｌ；１　０００　

Ｐｉｃｔｕｒｅ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｃｏｍｍａｎｄ２．Ｅｎａｂｌｅｄ　Ｆａｌｓｅ　

ｌ　＿ｌｌｌ＿　

获爝黪～嚣麓密　

ｊ　：　

ｌ｜　

Ｈ　

维普资讯

熊蛰鬻　

　｝

圈形图像处理　

与游戏编程　　。

ＧＲＡｐ｝ｌｌｌ　菠（ｊＡ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｔｉｍｅｒ１　Ｊ｛ｍｅｒ《）　

记录时间　

Ｄｉｍｈ１　ＡｓＩｎｔｅｇｅｒ。ｍｌ　ＡｓＳｉｎｇｌｅ。ｓｌ　ＡｓＩｎｔｅｇｅｒ　

Ｄｉｍ　Ｒ

＿

ｔｉｍｅ　Ａｓ　Ｓｉｎｇｌｅ　

Ｒ　

＿

ｔｉｍｅ　Ｄ　ｔｉｍｅ　

一Ｔｉｍｅｒ

ｈ１＝Ｒ　ｔｉｍｅ＼３６００　

ｍｌ＝（Ｒ＿ｔｉｍｅＭｏｄ３６００ｌ＼６０　

ｓ１　Ｒ　ｔｉｍｅ　Ｍｏｄ６０　

Ｔｅｘｔ１．Ｔｅｘｔ；　＆ＦＯｒｍａｔ《ｈ１．　ＯＯ　）＆　：　＆ＦＯｒｎ１ａｔ《ｍ１，　

ＯＯ　）＆　：　＆Ｆｏｒｍ宕ｔ《ｓ１，　００　）　

判断是否到时间　

ｌｆｈ１＝　００　Ａｎｄｍ１＝　００　Ａｎｄｓｌ＝　００　Ｔｈｅｎ　

ＭｓｇＢｏｘ（　ｙｏｕａｒｅｆａｉｌｉｎｇ！　）　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ；Ｆａｌｓｅ　

Ｔｅｘｔ１　Ｔｅｘｔ＝…　

Ｃａｌ　ｌＳｈｏｗｙａｐ　

Ｃａｌｌ　Ｌｉｎｅ　Ｒｅｄｒａｗ　

Ｐｉｃｔｕｒｅ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｃｏｍｍａｎｄ１．Ｅｎａｂｌｅｄ　Ｔｒｕｅ　

ＥｎｄＩｆ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｐｉｃｔｕｒｅ１　ＭｏｕｓｅＤｏｗｎ（Ｂｕｔｔｏｎ　Ａｓ　ｌｎｔｅｇｅｒ，Ｓｈｉｆｔ　Ａｓ　

ｌｎｔｅｇｅｒ，ｘＡｓＳｉｎｇｌｅ．ｙＡｓＳｉｎｇｌｅ）　

对鼠标左右键的判断　

ＩｆＢｕｔｔｏｎ　１　Ｔｈｅｎ　

是否跳步的判断　

…ｎｔ《ｘ）＞＝１　ＡｎｄＩｎｔ《ｘ）＜＝１　６ＡｎｄＩｎｔ《Ｙ）＞　１　ＡｎｄＩｎｔ《Ｙ）　

＜　１６Ｔｈｅｎ　

ＩｆＡｂｓ《Ｉｎｔ《ｘ）一Ｆｏｒｅ＿ｘ）＜２ＡｎｄＡｂｓ《ｌ　ｎｔ《Ｙ）一Ｆｏｒｅ３／）＜２Ｔｈｅｎ　

取胜与否的判断　

ＩｆＩｎｔ《ｘ）＝Ｄ－ＰＡｎｄＩｎｔ《Ｙ）＝１６Ｔｈｅｎ　

ＭｓｇＢｏｘ《　ｃｏｎｇｒａｔｕｌａｔｉｏｎ！ｙｏｕ　ａｒｅ　ｓｕｃｃｅｓｓｆｕｌ　Ｉ　）　

Ｐｉｃｔｕｒｅ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｔｅｘｔ１　Ｔｅｘｔ　

Ｐｉｃｔｕｒｅ１．ＣＩｓ　

Ｃｏｍｍａｎｄ　１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

Ｃｏｍｍａｎｄ２．Ｅｎａｂｌｅｄ　Ｆａｌｓｅ　

ＥｘｉｔＳｕｂ　

ＥｎｄＩｆ　

没有走到陷阱上的判断　

Ｉｆａ《Ｉｎｔ《ｘ），Ｉｎｔ《Ｙ））＝０Ｔｈｅｎ　

ＣａｌｌＤｅｇｒｅｅ＿ｄａｎｇｅｒｏｕｓ《ｌ九ｔ《ｘ），Ｉｎｔ《Ｙ））　

ＦＯｒｍ１．ＦｉｌｌＳｔｙｌｅ＝０　

Ｆｏｒｍ１　ＦｉｌｌＣｏｌｏｒ；ＱＢＣｏｌｏｒ（¨　

Ｐｉｃｔｕｒｅ１．Ｃｉｒｃｌｅ《Ｉｎｔ《ｘ）＋０．５，Ｉｎｔ《Ｙ）＋０，５）。０．２　

Ｆｏｒｅ　ｘ＝Ｉｎｔ《ｘ）：Ｆｏｒｅ＿ｙ＝Ｉｎｔ（Ｙ）　

Ｃａｌｌ　Ｕｎｅ　Ｒｅｄｒａｗ　

ＥｎｄＩｆ　

走到陷阱上的判断　

Ｉｆａ《Ｉｎｔ《ｘ），Ｉｎｔ《Ｙ））＝１　Ｔｈｅｎ　

ＭｓｇＢｏｘ《　ｇａｍｅ　ｏｖｅｒ！　）　

Ｃａｌｌ　Ｓｈｏｗ

＿

Ｍａｐ　

÷　圬与ＩＩ　

Ｃａｌ　ｌＬｉｎｅ

＿

Ｒｅｄｒａｗ　

Ｐｉｃｔｕｒｅ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｔｅｘｔ１．Ｔｅｘｔ　～　

Ｃｏｍｍａｎｄ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

ＥｘｉｔＳｕｂ　

ＥｎｄＩｆ　

走过的格子的判断　

ｌｆａ《ｌｎｔ《ｘ）．１ｎｔ《Ｙ））＝０．１　Ｔｈｅｎ　

Ｆｏｒｍ１．ＦｉｌｌＳｔｖｌｅ　０　

Ｆｏｒｍ１．ＦｉｌｌＣｏｌｏｒ　ｚ　ＱＢＣｏｌｏｒｌ　１）　

Ｐｉｃｔｕｒｅ１．Ｃｉｒｃｌｅ《ｌｎｔ《ｘ）＋０．５，Ｉｎｔ《Ｙ）＋０．５），Ｏ．２　

Ｆｏｒｅ　ｘ　Ｉｎｔ《ｘ）：Ｆｏｒｅ＿ｙ　Ｉｎｔ《Ｙ）　

Ｅｎｄｌｆ　

Ｅｌｓｅ　

ＭＩｓｇＢｏｘ（　ｙｏｕｃａｎ　ｎｏｔｄｏｔｈｉｓ！　）　

ＥｎｄＩｆ　

Ｅｎｄｌｆ　

Ｅｌｓｅ　

标记“×”方便判断　

Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＸ＝ｌｎｔ（ｘ）＋０．３　

Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＹ＃ｌｎｔ（Ｙ）＋Ｏ．７　

Ｐｉｃｔｕｒｅ１．Ｐｒｉｎｔ　×　

ＥｎｄＩｆ　

ＥｎｄＳｕｂ　

ＰｕｂｌｉｃＳｕｂＤｅｇｒｅｅ　ｄａｎｇｅｒｏｕｓ（ｄ＿ｘＡｓＩｎｔｅｇｅｒ　ｄ＿ｙＡｓＩｎｔｅｇｅｒ）　

显示危险程度　

Ｄｉｍ　ｓｙｍｂｏ　Ａｓ　Ｄｏｕｂｌｅ　

ｓｙｍｂｏ。《ａ《ｄ　一１，ｄ＿ｙ＋１）＋ａ《ｄ　ｘ；ｄ＿ｙ＋１）＋ａ《ｄ　＋１，　

ｄ

＿

ｙ　４－１）＋ｊＩｄ＿ｘ一１，ｄ＿ｙ）４－ａＩｄ　ｘ，ｄ　）＋ｅＩ　４－１，ｄ＿ｙ）＋　

ｊ《ｄ　一１，ｄ＿ｙ一１）＋ａ《ｄ　．ｄ＿ｙ一１）＋ａ（ｄ　＋１，ｄ＿ｙ一１））　

Ｃａｌｌ　Ｃｏｌｏｕｒ　Ｄｉｓｐｌａｙ《ｄ　．ｄ＿ｙ．ｓｙｍｂｏ）　

ａ《ｄ＿ｘ．ｄ＿ｙ）　０．１　

ＩｆＩｎｔｌｓｙｍｂｏ）＞０Ｔｈｅｎ　

Ｅｌｓｅ　

Ｃａｌｌ　Ｓｈｏ　Ｊｉｐ《ｄ　，ｄ＿ｙ）　

ｓｙｍｂｏ＝０　

Ｅｎｄｌｆ　

ＥｎｄＳｕｂ　

显示颜色的子程序　

ＰｕｂｌｉｃＳｕｂＣｏｌｏｕｒ　Ｄｉｓｐｌａｙ《ｃ＿ｘＡｓＩｎｔｅｇｅｒ，，ｃ＿ｙＡｓＩｎｔｅｇｅｒ，．ｓｙｍＡｓ　

Ｄｏｕｂｌｅ）　

Ｄｉｍ　Ｃｏｌｏｕｒ＿ＮｕｍｂｅｒＡｓ　Ｉｎｔｅｇｅｒ　

ＳｅｌｅｃｔＣａｓｅ　Ｉｎｔ（ｓｙｍ）　

Ｃａｓｅ０　

Ｃｏｌｏｕｒ．Ｎｌｕｍｂｅｒ　１０　

Ｃａｓｅ１　

Ｃｏｌｏｕｒ

＿

Ｎｕｍｂｅｒ＝３　

Ｃａｓｅ２　

Ｃｏｌｏｕｒ＿Ｎｕｍｂｅｒ；６　

Ｃａｓ（ｅ３　

Ｃｏｌｏｕｒ＿Ｎｕｍｂｅｒ　１４　

Ｃａｓｅ４　

维普资讯

Ｃｏｌｏｕｒ　Ｎｕｍｂｅｒ＝４　

Ｃａｓｅ５　

Ｃｏｌｏｕｒ　Ｎｕｍｂｅｒ＝５　

Ｃａｓｅ６　

Ｃｏｌｏｕｒ

＿

Ｎｕｍｂｅｒ＝１３　

Ｃａｓｅ７　

Ｃｏｌｏｕｒ　Ｎｕｍｂｅｒ　１　２　

Ｃａｓｅ８　

Ｃｏｌｏｕｒ　Ｎｕｍｂｅｒ＝０　

Ｅｎｄ　Ｓｅｌｅｃｔ　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（ｃ　ｘ，ｃ　ｙ）一（ｃ＿ｘ＋１．ｃ＿ｙ＋１）．ＱＢＣｏｌｏｒ　

（Ｃｏｌｏｕｒ＿Ｎｕｍｂｅｒ）．ＢＦ　

ＥｎｄＳｕｂ　

ＰｕｂｌｉｃＳｕｂＳｈｏ　］ｉｐ（ｔ＿ｘＡｓＩｎｔｅｇｅｒ　ｔ＿ｙＡｓＩｎｔｅｇｅｒ）　

给出提示信息　

给出所在格子和其周围８个格子的颜色提示　

＃，　球　：　：　：　：　

：　４｛３　：２：。　

｛　：｛　；，　，　０代表当前点击格子　

：ｉ：５￥０　１　

：　巾水，　水　

６　７　８　

术啦，　；　水乖水　｝＝　

１　

Ｄｉｍｔ．．ｘｘＡｓ　Ｉｎｔｅｇｅｒ，ｔ

＿

ｙｙＡｓ　Ｉｎｔｅｇｅｒ　

Ｆｏｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ＿ｘｘ＝ｔ＿ｘ＋１：ｔ＿＿ｙｙ＝ｔ

＿

ｖ　

Ｉｆｔ

＿

ｘｘ＞墨１　Ａｎｄｔ

＿

ｘｘ＜　１６Ａｎｄ　ｔ＿ｙｙ＞＝１　Ａｎｄｔ＿Ｗ＜＝１６　

Ｔｈｅｎ　

Ｉｆａ（ｔ＿ｘｘ，ｔ＿ｙｙ）；０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ，ｔ＿ｙｙ）　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

２　

Ｆｏｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ＿ｘｘ＝ｔ　＋１：ｔ

＿

ｙｙ　ｔ＿ｙ＋１　

Ｉｆｔ＿ｘｘ＞＝１　Ａｎｄｔ

＿

ｘｘ＜＝１６Ａｎｄｔ

＿

ｙｙ＞　

１　Ａｎｄｔ

＿

ｙｙ＜＝　

１６Ｔｈｅｎ　

Ｉｆａ（ｔ＿ｘｘ．ｔ＿ｙｙ）＝０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ　ｔ＿ｙｙ）　

Ｅｎｄｌｆ　

Ｅｎｄｌｆ　

３　

ＦＯｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ

＿

ｘｘ＝ｔ　ｘ：ｔ

＿

ｙｙ＝ｔ＿ｙ＋１　

Ｉｆｔ

＝

＿

ｘｘ＞＝１　Ａｎｄｔ

．

２（ｘ＜＝１６Ａｎｄｔ

＿

ｙｙ＞　

１　Ａｎｄｔ

＿

ｙｙ＜＝　

１６Ｔｈｅｎ　

Ｉｆａ（ｔ＿ｘｘ，ｔ＿ｙｙ）＝０Ｔｈｅｎ　

Ｃａｌ　ｌＤｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ，ｔ

＿

ｙｙ）　

ＥｎｄＩｆ　

Ｅｎｄｌｆ　

４　

ＦＯｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ＿ｘｘ＝ｔ　ｘ一１：ｔ

＿

ｙｙ＝ｔ＿ｙ＋１　

阁隳～溺撩黔蘖　

图形图像处理与游戏　程　

Ｇ　＾　“ｆＣＳ＆“＾　；　ＲＯ（］ＲＡＭ　

Ｉｆｔ

＿

ｘｘ＞　１　Ａｎｄ　Ｌｘｘ＜＝１６Ａｎｄｔ

＿

ｙｙ＞　１　Ａｎｄ　ｔ

＿＿

ｙｙ＜＝１６　

Ｔｈｅｎ　

Ｉｆａ（ｔ．．ｘｘ．ｔ＿ｙｙ）＝０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ．ｔ　）　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

５　

Ｆｏｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ

＿

ｘｘ＝ｔ

＿

ｘ一１：ｔ＿ｙｙ＝ｔ

＿

ｙ　

Ｉｆｔ

＿

ｘｘ＞　１　Ａｎｄｔ

＿

ｘｘ＜＝１６　Ａｎｄ　ｔ

＿

ｙｙ＞＝１　Ａｎｄ　ｔ＿ｙｙ＜＝１６　

Ｔｈｅｎ　

Ｉｆａ（ｔ＿ｘｘ．ｔ＿ｙｙ）＝０Ｔｈｅｎ　

Ｃａｌ　ｌＤｅｇｒｅｅ＿ｄａｎｇｅｒｏｕｓ（ｔ　ｘｘ，ｔ

＿

ｙｙ）　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

６　

ＦＯｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ

＿

ｘｘ＝ｔ

＿

ｘ一１：ｔ

＿

ｙｙ　ｔ＿ｙ一１　

Ｉｆｔ

．．

ｘｘ＞＝１　Ａｎｄｔ

＿

ｘｘ＜＝１６Ａｎｄｔ

＿

ｙｙ＞＝１　Ａｎｄｔ

＿

ｙｙ＜ｚ　

１６Ｔｈｅｎ　

Ｉｆａ（ｔ．，ｘｘ，ｔ＿ｙｙ）　０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ．ｔ＿ｙｙ）　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

７　

Ｆｏｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ．．ｘｘ＝ｔ　：ｔ

＿

ｙｙ＝ｔ＿ｙ一１　

Ｉｆｔ＿ｘｘ＞　１　Ａｎｄｔ

＿

ｘｘ＜兰１６Ａｎｄｔ＿ｙｙ＞＝１　Ａｎｄｔ＿ｙｙ＜　

１６Ｔｈｅｎ　

Ｉｆａ（ｔ＿，ｘｘ，ｔ＿ｙｙ）＝０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ

＿

ｄａｎｇｅｒｏｕｓ（ｔ

＿

ｘｘ，ｔ＿ｙｙ）　

ＥｎｄＩｆ　

ＥｎｄＩｆ　

８　

ＦＯｒｍ１．Ｒｅｆｒｅｓｈ　

ｔ

＿

ｘｘ＝ｔ

＿

ｘ＋１：ｔ＿ｙｙ＝ｔ

＿

ｙ一１　

Ｉｆｔ

＿

ｘｘ＞　１　Ａｎｄｔ＿ｘｘ＜　１６Ａｎｄｔ＿ｙｙ＞＝１　ＡｎｄｔＹＹ＜＝　

１６Ｔｈｅｎ　

Ｉｆａ（ｔ　ｘｘ．ｔＷＹ）＝０Ｔｈｅｎ　

Ｃａｌｌ　Ｄｅｇｒｅｅ＿ｄａｎｇｅｒｏｕｓ（ｔ＿ｘｘ，ｔ＿ｙｙ）　

ＥｎｄＩｆ　

Ｅｎｄ　Ｉｆ　

ＥｎｄＳｕｂ　

失败后最示陷阱　．　

Ｐｕｂｌｉｃ　Ｓｕｂ　Ｓｈｏｗ＿Ｍａｐ（）　

Ｄｉｍ　ｉ４Ａｓ　Ｉｎｔｅｇｅｒ，ｊ４Ａｓ　Ｉｎｔｅｇｅｒ　

Ｆｏｒｉ４＝１　ＴＯ１６　

Ｆｏｒｉ４＝１　ＴＯ１６　

Ｉｆａ（ｉ４，ｊ４）　１　Ｔｈｅｎ　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（ｉ４，ｊ４）一（ｉ４＋１，ｊ４＋１）　ＱＢＣｏｌｏｒ（０），ＢＦ　

Ｅｌｓｅ　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（ｉ４，ｊ４）一（ｉ４＋１，ｊ４＋１），ＱＢＣｏｌｏｒ（１５），ＢＦ　

ＥｎｄＩｆ　

（下转第８６页）　

２０

０６．

６

ｒ电脯－毽技

巧

与簟

护　＿－　

毋　

维普资讯

０．５００００）．Ｖ／８　

ｐｉｎｇｆａｎｇｃｈａ＝ｔｅｍｐ；　

｛０．３３３３３．０．３７５００．０　３３３３３．０．５００００．０．２２２２２．　

０．４１６６７）／／９　

｝　

｝　

ｃｕ　ｒｒｅｎｔＮ＝ｊ：　

ｌ：　

２．数字校验码程序识别　

ｇＮｕｍｂｅｒ【ｋ】＝ｃｕｒｒｅｎｔＮ；／／保存结果　

输入图像模块，预处理模块和分割字符模块与训练集样品　

库的建立一节所对应的模块函数是一样的，不再赘述。Ｆ面讲　

解根据特征码识别校验码模块功能函数。处理流程如图３所　

示　

三、其它类型校验码识别　

应该说，上面提到的校验码是比较简单的，Ｉ韭壁蔓皇　这类　

校验码虽然加＿ｒ点噪声，但去掉噪声并不难识别。如果一卟黑　

图３处理流程　

色像素上下左右四个方向没有黑色像素，则认为是噪声，计算　

图像中各个连通体面积，如果面积小于某个设定的阚值，则认　

为是噪声。图４是微软ｈｏｔｍａｉｌ注册的校验码，用本文提到的方　

法识别出来比较困难。　

添加一个全局变量：　

ｉｎｔｇＮｕｍｂｅｒ［４】：／／保存识别出的４个数字　

ｖｏｉｄ　ＣＪＵＳＴＩＦＹＣＯＤＥＤＩｇ：：ＧｅｔＲｅｓｕｌｔ（）　

ｆ　

ｉｎｔ　ｋ，ｊ，ｔ，ｃｕｒｒｅｎｔＮ；　

ｆｏｒ《ｋ＝０：ｋ＜４：ｋ＋＋）／／４个字符　

｛　

ｉｆ（ｇＮｕｍｂｅｒ【ｋ１＝＝１ＯＯ）／／没处理过　

｛　

ｆｌｏａｔ　ｐｉｎｇｆａｎｇｃｈａ　１　００；　

图４　ｈｏｔｍａｉｌ注册校验码　

四、结论，　

本文论述了数字校验码的模式识别，并给出了核心代码，　

同时也阐述了其它类型校验码的模式识别。作者希望从纯技术　

的角度看待校验码模式识别，一些人不要用于非法用途。　

ｆｏｒ（』＝Ｏ：ｊ＜１Ｏ　ｊ＋＋）／／依次比较每个样品的特征码　

｛　

ｆｌｏａｔｔｅｍｐ＝Ｏ：　

ｆｏｒ（ｔ　ｚ　Ｏ：ｔ＜６：ｔ＋＋）　

｛　

ｔｅｍｐ＋　（ｇＲａｔｉｏ【ｋｌＩｔ】一ｇＳａｍｐｌｅ［ｊ】【ｔ】）十（ｇＲａｔｉｏ　

【ｋｌ【ｔ】一ｇＳａｍｐｌｅ【ｊ】【ｔ１）：／／依据最小距离法判断　

｝　

参考文献　

１．图像模式识别——Ｖｃ＋＋技术实现．清华大学出版社　

２．ＭＳＤＮ开发文档　

ｉｆ（ｔｅｍｐ＜ｐｉｎｇｆａｎｇｃｈａ）／／找到特征值相差最小的　

｛　

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

（上接第６９页）　

Ｎｅｘｔｉ４　

Ｎｅｘｔｉ４　

Ｕｎｌｏａｄ　Ｆｏｒｍ　１　

ＥｎｄＳｕｂ　

让时间停止　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｌａｂｅｌ２　Ｃｌｉｃｋ（）　

ＥｎｄＳｕｂ　

ＭｓｇＢｏｘ（　永恒时间！　）　

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

Ｔｉｍｅｒ１．１ｎｔｅｒｖａｌ＝０　

重画地图和格子　

Ｐｕｂｌｉｃ　Ｓｕｂ　Ｌｉｎｅ

Ｒｅｄｒａｗ（）　

＿

ＤＩｍ　ｉＡｓ　Ｉｎｔｅｇｅｒ　

Ｆｏｒｉ　１　ＴＯ１７　

ＥｎｄＳｕｂ　

初始起点和终点的标记　

ＰｕｂｌｉｃＳｕｂＳｈｏｗ

ｔｒａ＿ｌ（ｓ＿ｔ＿ｘＡｓＩｎｔｅｇｅｒ．ｓ＿ｔ＿ｙＡｓＩｎｔｅｇｅｒ）　

Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＸ　ｓ＿ｊ　＋０．４　

．＿

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ（１，ｉ）一《１７，ｉ），ＲＧＢ（０，Ｏ，１９１）　

Ｐｉｃｔｕｒｅ１．Ｌｉｎｅ　ｉ　１】一（ｉ，１７），ＲＧＢｆ０，０，１９１）　

Ｎｅｘｔｉ　

Ｐｉｃｔｕｒｅ１．ＣｕｒｒｅｎｔＹ；ｓｊＪ／＋０．７　

Ｐｉｃｔｕｒｅ１．Ｐｒｉｎｔ　

ＥｎｄＳｕｂ　

ＥｎｄＳｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｏｍｍａｎｄ３

Ｃｌｉｏｋ　ｆ）　

＿

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

与