用VB语言程序设计游戏探究.docVIP

用VB语言程序设计游戏探究摘要：VisualBasic是windows平台上一个强大的开发工具。本文通过用VB语言设计一个具体的小游戏，和大家共同探讨VB制作游戏的方法和思路。 关键词：VB　程序　控件　属性　事件 编程前，首先，我们要掌握游戏的规则和功能。我们要编的是一个“找不同”的小游戏，在玩家进入游戏后，界面上出现两幅基本相同图片，在两幅图片中有几处细节不同的地方，找到后用鼠标单击。如果找对了，界面上就会出现红色的圈把不同的地方圈起来，如果点错了，则没有任何反应。游戏中两幅图片一共有四处不同，在30秒内，如果不同处全部找出来，则弹出“闯关成功”对话框；如果没有全部找出来，则弹出“时间到，闯关失败，是否重新再来?”对话框，单击“是”重新闯关，单击“否”则退出。 其次，我们要清楚基本的制作思路：①首先我们在网上下载两副基本上相同，上面有多处细节不同的图片。②在窗体里制作一个图片框，将下载好的图片插入到图片框中。③在图片的不同处上面加标签，并把标签的Backstyle属性设置为“0-Transpare”，这样把标签隐藏在图片里。然后再在标签的单击事件中制作出选中不同处画圆的程序。这样我们可以绕过复杂的程序，并能实现单击不同处画出红圈的效果。④在窗体中我们用一个时钟控件，将时钟控件的Interval属性设置为“1000”，时钟控件Interval属性中数值的单位是毫秒，设置为1000，就表示每隔1秒调用一次Timer事件中的程序。再在Timer事件中设置一个变量s，做一个变量减1，这样形成每1秒减1的倒计时的效果。⑤制作一个文本框控件，将Timer事件中的变量s的值随时显示在文本框中。⑥在标签的单击事件和时钟的Timer事件中分别编写弹出对话框语句，并用if语句控制对话框的返回值，如果返回“是”的值，那么重置游戏的初始值。如果返回“否”的值，则退出程序。 下面我们就进入编程状态，各对象主要属性设置为：Form1的Caption为“找不同游戏”；Picture1的Picture属性为“插入图片的路径”；Label1—label8的Caption属性都为空，Backstyle属性为“0-Transpare”，label9、label10的Caption属性分别为“两图中有四处不同找出来”和“抓紧啊！”；Text1的Text1属性为空；Timer1的Interval属性为“1000”。 具体程序如下：（说明：下列程序中Label2、Label3、Label4、Label5、Label6、Label7、Label8的Click事件和Label1的Click事件程序相同，只是名称相应地改变了，这里就不一一列出来了。续行表示该行在VB中与上一行是同一行） Dim s As Integer 设置s作为整形全局变量 Dim g As Integer设置z作为整形全局变量 Private Sub Form_Load() g=30为计时器赋初始值 End Sub Private Sub Label1_Click() Picture1.Circle (Label1.Top, Label1.Left), 500, vbRed 以标签1的中心作为圆心，500为半径，绘制红色圆圈 Picture1.Circle (Label11Top, Label11.Left), 500, vbRed以标签11的中心作为圆心，500为半径，绘制红色圆圈 Label1.Enabled=False隐藏标签1 Label2.Enabled=False隐藏标签2 s=s+1累加找对的次数 If s=4 Then如果找对四次 Y=MsgBox(“恭喜您成功了！！！”, 0, “过关了！”)弹出成功消息框 If Y = 1 Then消息框返回确定值 End End If End If End Sub Private Sub Timer1_Timer() Text1.Text=g给文本框赋初始值 g=g–1每隔1秒，文本框中的数值减1 If g=0 Then如果时间到 z=MsgBox(“失败了，继续努力！”,4,”时间到！”) 弹出失败消息框 If z=6 Then如果单击继续努力 s=0计数器清零 g=30重新赋初始值 Else End如果点否，退出程序 End If End If End Sub 参考文献： 彭波编著．Visual Basic[M].北京:清华大学出版社,2002. （作者单位：辽宁省机电工程学校） 1