二级vb语言程序设计 [用VB语言程序设计游戏探究]

时间：2019-05-04 03:15:03　来源：雅意学习网本文已影响人

　　摘要：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.
　　（作者单位：辽宁省机电工程学校）

推荐访问:探究语言程序设计游戏 VB

二级vb语言程序设计 [用VB语言程序设计游戏探究]

最新文章

热门文章