3.2在可视化的程序设计环境VB中建立一个应用程序.ppt

1、PPT模板下载： 行业PPT模板： 节日PPT模板： PPT素材下载： PPT背景图片： PPT图表下载： 优秀PPT下载： PPT教程： Word教程： Excel教程： 资料下载： PPT课件下载： 范文下载： 试卷下载： 教案下载：,VB程序设计实践,“欢乐打地鼠”游戏,浙江省春晖中学 黄富勇,程序界面设计,1.界面的构成,1个窗体、,2.需要添加的对象,窗体,文本框Text1,窗体1个、文本框控件1个、图像框控件5个，组成控件数组、计时器控件1个,计时器Timer1,1个文本框、,5张地鼠图像、,1个计时器,程序界面设计,窗体,文本框Text1,计时器Timer1,算法及算法的程序实现

2、,1.游戏过程分析,人,程序,需要由程序来实现的任务有 和 。,程序,算法及算法的程序实现,2.实现任务 ：随机显示1只地鼠,任务分解： (a) 将Image1数组元素的Visible属性均设置为False (b) 生成一个值在0,4内的随机整数i (c) 将Image1(i) 的Visible属性设置为True,图像框Image1(0）,图像框Image1(1）,图像框Image1(2）,图像框Image1(3）,图像框Image1(4）,算法及算法的程序实现,(b) 生成一个值在0,4内的随机整数i,Int( ),Rnd() * 5,Private Sub Timer1_Timer() D

3、im i As Integer End Sub,For i = 0 To 4 Next i,算法及算法的程序实现,2.实现任务 ：随机显示1只地鼠,i Int(Rnd() * 5),任务分解： (a) 将Image1数组元素的Visible属性均设置为False (b) 生成一个值在0,4内的随机整数i (c) 将Image1(i) 的Visible属性设置为True,图像框Image1(0）,图像框Image1(1）,图像框Image1(2）,图像框Image1(3）,图像框Image1(4）,Image1(i).Visible = False,Randomize i = Int(Rnd()

4、 * 5),Image1(i).Visible = True,3.实现任务 ：当地鼠被击中后，累加并更新积分值,算法及算法的程序实现,任务分解： (a) 从文本框Text1中获取原积分值s1 (b) 原积分值s1加上10，作为新的积分值s2 (c) 将新的积分值s2显示在文本框Text1中,文本框Text1,Private Sub Image1_Click(Index As Integer) End Sub,Dim s1 As Integer, s2 As Integer,s1 = Val(Text1.Text),s2 = s1 + 10,图像框Image1(2）,Text1.Text = S

5、tr(s2),算法及算法的程序实现,思考1: 每隔1秒出现1只地鼠，几乎每只地鼠都能被击中，难度太低。如何提升击中地鼠的难度？,修改思路：逐渐缩短前后两只地鼠出现时间的间隔，即减小计时器Timer1的Interval属性的值。,修改方法：在Timer1的Timer事件过程中添加代码： Timer1.Interval = Timer1.Interval 20,修改思路：根据计时器Timer1的Interval属性的值来划分难度等级，并设置相应的奖励积分。,思考2：随着击中地鼠的难度的提升，奖励积分如何随之增加？,算法及算法的程序实现,If Timer1.Interval = 900 Then,j = 10,Else,If Timer1.Interval = 600 Then,j = 20,Else,j = 40,End If,j,调试作品时，可以发现两个有趣的现象： （1）载入窗体后的第1秒钟内（即游戏开始前），所有地鼠都显示在窗体上。此时点击地鼠，积分值会