Option
Explicit
Dim
a
As
Integer
Private
Sub
Command1_Click()
Timer1.Enabled
=
True
End
Sub
Private
Sub
Command2_Click()
Timer1.Enabled
=
False
End
Sub
Private
Sub
Option1_Click()
Timer1.Interval
=
1000
End
Sub
Private
Sub
Option2_Click()
Timer1.Interval
=
500
End
Sub
Private
Sub
Option3_Click()
Timer1.Interval
=
100
End
Sub
Private
Sub
Timer1_Timer()
If
a
=
1
Then
Image1.Picture
=
LoadPicture(App.Path
&
"\pic\1.gif")
a
=
2
Else
Image1.Picture
=
LoadPicture(App.Path
&
"\pic\2.gif")
a
=
1
End
If
Image1.Left
=
Image1.Left
-
200
If
Image1.Left
<
0
Then
Image1.Left
=
11160
End
Sub(共15张PPT)
3.2
设计打地鼠游戏
八年级下册
打地鼠，商场里经常看到。游戏规则比较简单，打中随机出现的地鼠就能得分，那么，VB能否设计一个打地鼠游戏呢？
若想用VB设计打地鼠游戏，需思考以下3个问题：
1、打地鼠的核心功能是什么？
2、如何从核心的功能开始增加游戏的复杂度和可玩性？
3、做的打地鼠游戏能吸引其他同学来玩吗？
1、功能分析
一、打地鼠游戏初级版
你认为打地鼠游戏程序应该包含哪些基本功能？
实
践
打地鼠程序最核心的角色是：地鼠和锤子
地鼠：动作交替出现或隐藏。
锤子：动作就是移动和击打地鼠，击打就是单击鼠标。
目
录
壹
春未老，风细柳斜斜，风细柳斜斜。
贰
春未老，风细柳斜斜，风细柳斜斜。
叁
春未老，风细柳斜斜，风细柳斜斜。
新知讲解
1、功能分析
一、打地鼠游戏初级版
你认为打地鼠游戏程序应该包含哪些基本功能？
实
践
打地鼠程序最核心的角色是：地鼠和锤子
地鼠：动作交替出现或隐藏。
锤子：动作就是移动和击打地鼠，击打就是单击鼠标。
2、界面分析
初级版打地鼠界面中，涉及控件对象：Image、Timer和Form。
对象
名称
控件作用
关键属性
Image控件
Ds
地鼠
Picture、visible
Timer控件
Timer1
控制地鼠出现或隐藏的时间
interval
Form窗体
Form1
游戏界面窗口
mouselcon、mousepointer
地鼠被打中消失的代码：
If
Image2(Index).Picture
=
ds.Picture
Then
Image2(Index).Picture
=
em.Picture
地鼠的出现与隐藏，由Timer事件控制，地鼠出现与隐藏交替变换代码：
3、代码分析
地鼠的出现与隐藏，由Timer事件控制，地鼠出现与隐藏交替变换代码：
For
i
=
0
To
11
Image2(i).Picture
=
em.Picture
Next
i
For
a
=
0
To
4
j
=
Int(Rnd
12)
Image2(j).Picture
=
ds.Picture
Next
a
3、代码分析
加分：sum.Caption
=
sum.Caption
+
1
4、调试程序
关于软件的版本号
主版本号：功能模块有大变动。
次版本号：次版对应的只是局部变动。局部变动造成和以前版本不能兼容。
修订版本号：局部变动，主要是局部函数的功能改进，或者bug的修正，或者功能的扩充。
新知导入
关于软件的版本号
扩
展
主版本号：功能模块有大变动。
次版本号：次版对应的只是局部变动。局部变动造成和以前版本不能兼容。
修订版本号：局部变动，主要是局部函数的功能改进，或者bug的修正，或者功能的扩充。
课后习题
（1）以下叙述中错误的是
(C)
A）Visual
Basic
是事件驱动型可视化编程工具
B）Visual
Basic应用程序不具有明显的开始和结束语句
C）Visual
Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual
Basic中控件的某些属性只能在运行时设置
课后习题
2、将定时器的时间间隔设置为1秒，那定时器的Interval属性值应为(A)。
A．1000??B．1??C．100???D．10
3、当设置了定时器的有关属性后，使窗体自动向下移动的语句是Move（C）。
?A．Left，Top+100???B．Top+100??
?C．Top-100??
D．Top=Top+100
课堂总结
1、打地鼠程序最核心的角色是：地鼠和锤子。
对象
名称
控件作用
关键属性
Image控件
Ds
地鼠
Picture、visible
Timer控件
Timer1
控制地鼠出现或隐藏的时间
interval
Form窗体
Form1
游戏界面窗口
mouselcon、mousepointer
