“扫雷”游戏自己编

Author: 赵玉勇 Date: 2001年 8期

    我挺爱扫雷，那是集运气和推理于一身的好游戏。趁过年刚休完假，亲戚朋友大团圆的好心情，自己也做了个扫雷的游戏，和大伙交流交流，有些不尽如人意的地方，希望大家不吝赐教！
　　#1    第一步：熟悉的界面
　　    首先，用VB的Command Button来代表界面中的方格子。当然，一堆命令按钮零乱地堆积起来是没用的，以8×8为例，我们可用它们的数组形式，Command1（0）...Command1（63），用C表示，大体排列采取自上而下自左而右的方式。数组可通过复制的形式完成，为了便于集中管理，我们可将上面64个按钮放于一Frame框上（^08020501a^）。
　　    接着，因为我们每挖开没有雷的地方，会有一个它周围雷的数目，以利于开展下面的工作，我们可在命令按钮的下面放置Label（标签），排列方式和制作方式同按钮相似，用L表示。值得注意的是标签的大小和命令按钮大小最好一样，可通过Propertis（属性）中的Height和Width值来设定。
　　#1    第二步：代码编写
　　    1.编程思路（请结合源程序看）
　　    通过随机数来布雷阵，设一数组Flag（63）为地雷标志数组，有雷则其值是1，无雷则其值为0，和Command1（1）-Command1（63）一一对应。
　　    不踩雷时需显示当前周围8个区域总计有几个雷，可通过FlagNum（）数组来存放，但计算方法不一，“四个角”、“四条边不包含角”和“非四角四边”组成9个区域，可通过函数“Function JudgeNum（ByVal X As Integer） As Integer”来完成，其取值范围为0到8。踩雷后则应立即停止游戏，并可通过CmdRestart按钮重新开始。
　　    右键的Button属性值为2，利用此值，奇数次击右键出现“？”，偶数次则什么也不出现，通过设置标志变量FlagRMouse实现。应特别注意几个数组的联系。
　　    2.源程序
　　    因为挖雷是比较容易“不成功便成仁”的工作，我们可以再设置一命令按钮CmdRestart，它的功能是重新开始游戏，再设置一标签写上一些鼓励的话。
　　    Dim I，Hnum As Integer
　　    Dim Flag（63） As Integer ＇设置地雷标志数组
　　    Dim FlagNum（63） As Integer ＇某地区周围雷数目记录数组（0～8个）
　　    Dim FlagRMouse As Boolean ＇记录右键使用状态标志
　　
　　    Private Function JudgeNum（ByVal X As Integer） As Integer ＇求地雷数函数
　　    Select Case X ＇9种情况
　　    Case 0
　　    JudgeNum=Flag（X+8）+Flag（X+9）+Flag（X+1）
　　    Case 1 To 6
　　    JudgeNum=Flag（X-1）+Flag（X+7）+Flag（X+8）+Flag（X+9）+Flag（X+1）
　　    Case 7
　　    JudgeNum=Flag（X+8）+Flag（X+7）+Flag（X-1）
　　    Case 56
　　    JudgeNum=Flag（X-8）+Flag（X-7）+Flag（X+1）
　　    Case 63
　　    JudgeNum=Flag（X-1）+Flag（X-9）+Flag（X-8）
　　    Case 8，16，24，32，40，48
　　    JudgeNum=Flag（X-8）+Flag（X-7）+Flag（X+1）+Flag（X+8）+Flag（X+9）
　　    Case 15，23，31，39，47，55
　　    JudgeNum=Flag（X-9）+Flag（X-8）+Flag（X-1）+Flag（X+7）+Flag（X+8）
　　    Case Is<55
　　   JudgeNum=Flag（X-9）+Flag（X-8）+Flag（X-7）+Flag（X-1）+Flag（X+1）+Flag（X+7）+
　　Flag（X+8）+Flag（X+9）
　　    Case Else ＇x<63
　　    JudgeNum=Flag（X-9）+Flag（X-8）+Flag（X-7）+Flag（X-1）+Flag（X+1）
　　    End Select
　　    End Function
　　    Private Sub CmdRestart_Click（）
　　    ＇重新进入游戏
　　    Lblview.Caption="努力哟！"
　　    Frmboom.Enabled=True ＇激活雷区
　　    For i=0 To 63
　　    LabNum（i）.Caption=""
　　    Command1（i）.Visible=True
　　    Hnum=Rnd*4
　　    If Int（Hnum）=1 Then＇随机布雷
　　    Flag（i）=1
　　    Else
　　    Flag（i）=0
　　    End If
　　    Next i
　　    For i=0 To 63 ＇求周围雷的数目
　　    FlagNum（i）=JudgeNum（i）
　　    Next i
　　    End Sub
　　    Private Sub Command1_Click（Index As Integer）＇雷区，通过Command实现
　　    If Flag（Index）=1 Then ＇不幸中弹
　　    Command1（Index）.Visible=False
　　    LabNum（Index）.Caption="B"
　　    Lblview.Caption="再来一回合！"
　　    Frmboom.Enabled=False
　　    Else ＇开始挖雷，没有踩雷
　　    Command1（Index）.Visible=False
　　    If FlagNum（Index）<>0 Then ＇显示周围雷的数目，为0则什么也不显示
　　    LabNum（Index）.Caption=FlagNum（Index）
　　    End If
　　    End If
　　    End Sub
　　
　　    Private Sub Command1_MouseDown（Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single）
　　    ＇定义右键功能，右键的Button值为2
　　    i=Button
　　    If i=2 And FlagRMouse = False Then
　　    Command1（Index）.Caption="？"
　　    FlagRMouse=True
　　    Else
　　    Command1（Index）.Caption=""
　　    FlagRMouse=False
　　    End If
　　    End Sub
　　    Private Sub Form_Load（）＇主程序
　　    FlagRMouse=False ＇初始化右键提示标志
　　    Lblview.Caption="努力哟！"
　　    For i=0 To 63 ＇利用随机函数布雷，保证每次雷区不同
　　    LabNum（i）.Caption=""
　　    Hnum=Rnd*4
　　    If Int（Hnum）=0 Then
　　    Flag（i）=1
　　    Else
　　    Flag（i）=0
　　    End If
　　    Next i
　　    For i=0 To 63 ＇利用JudgeNum（）计算某点周围雷的数目，并放入数组
　　    FlagNum（i）=JudgeNum（i）
　　    Next i
　　    End Sub
　　    这样，一个酷似Windows自带游戏的扫雷程序就编好了。程序在VB5.0下调试通过。