论文部分内容阅读
【中图分类号】G712
【教学目标】
1、要求学生综合应用相关控件设计屏幕保护程序
2、掌握将VB文件制作成屏幕保护程序文件的方法
3、掌握在VB程序中添加媒体播放器的方法
4、理解随机函数、随机种子、取整函数的功能及学会应用。
5、拓展学生程序设计思路，培养学习兴趣，提高学生解决实际应用问题的能力。
【教学重点】
1、掌握控件组的引用方法
2、在程序中添加媒体播放器的方法
【教学过程】
复 习： 课前复习上节《实训22-简单屏保》内容，提出以下问题，让学生进行简单程序操作：
在屏幕保护程序中如何通过事件来结束程序运行：
方法一：窗体鼠标按下时结束运行事件：
Private Sub Form_MouseDown（Button As Integer，Shift As Integer， X As Single， Y As Single）
If Button = 1 Or Button = 2 Then End
End Sub
方法二：窗体按任一键（或任一小写字符）时结束运行事件：
Private Sub Form_KeyPress （KeyAscii As Integer）
If KeyAscii <=97 And KeyAscii =>65 then End
End Sub
引 入： 通过演示讲评学生《实训22-简单屏保》引导学生观察、比较，提出新问题，从而引入本课时学习内容——设计一个比较完整的屏幕保护程序。
讲授新内容：
一、为屏保程序添加背景图片
全屏幕： WindowState= 2 （Maxmize）
無标题栏：BorderStyle=0 （None）
二、利用控件组在屏幕保护程序中添加一组图像
1）图像控件组： Image1（i）
2）控件组的引用方法 Image1（0）…… Image1（N-1）
控件组的应用
创建方法：Image1（0）…… Image1（8）
引用方法：
For i=0 to 7
Image1（ i ）.visible=False
Next I
利用时钟控件完成：
Private Sub Timer2_Timer（）
Static i As Integer
Image1（i）.Visible = False
i = （i + 1） Mod 10 ‘表示目前控件组中有10个元素
Image1（i）.Visible = True
End Sub
3） 调整图片大小适应图像框 Image1.Stretch=True
4）设置图像控件组各元素开始不可见（请同学思考，上讲台操作）
三、逐个显示图像控件组中各元素
1、利用时钟事件完成
2、理解变量类型Static的功能以及与Dim的区别（在时钟事件中分别利用Static和Dim对变量i进行定义、运行，观察并分析屏幕上出现各元素个数的变化情况）
四、如何在程序中添加播放媒体器（音乐、视频）
1、在工具箱中添加部件
部件名： WindowsMedaiPlayer1
2、播放媒体的方法：
方法一：在WindowsMediaPlayer1中的URL属性设置 （位置＼音乐.mp3）
方法二：用代码 WindowsMediaPlayer1.URL=“位置＼音乐.mp3”
五、如何生成屏幕保护程序并应用
1、将.vbp文件生成 .exe，再将.exe文件生成.scr
2、将生成的.scr文件存放于系统中屏保文件默认的位置C：＼WINDOWS＼System32
3、在桌面/属性/屏幕保存程序/能将自己创建的VB创建程序设置成屏保
知识小结
1、本实例中使用的控件及属性
2、本实例中使用的相关事件
3、本实例中出现的语句及相关函数
拓展与思考
拓展1：能否设置屏幕保护程序运行时，在几首音乐中随机选择播放。
拓展2：能否设置图像组中各图像按随机位置出现。
拓展3：设置屏保运行时鼠标隐藏、设计在桌面属性对话框中三种不同运行状态
课后作业
1、请写出逐个显示图像控件组各元素的事件代码。
2、在屏幕保护程序运行时，随机选择播放某一首歌的事件代码。
【教学目标】
1、要求学生综合应用相关控件设计屏幕保护程序
2、掌握将VB文件制作成屏幕保护程序文件的方法
3、掌握在VB程序中添加媒体播放器的方法
4、理解随机函数、随机种子、取整函数的功能及学会应用。
5、拓展学生程序设计思路，培养学习兴趣，提高学生解决实际应用问题的能力。
【教学重点】
1、掌握控件组的引用方法
2、在程序中添加媒体播放器的方法
【教学过程】
复 习： 课前复习上节《实训22-简单屏保》内容，提出以下问题，让学生进行简单程序操作：
在屏幕保护程序中如何通过事件来结束程序运行：
方法一：窗体鼠标按下时结束运行事件：
Private Sub Form_MouseDown（Button As Integer，Shift As Integer， X As Single， Y As Single）
If Button = 1 Or Button = 2 Then End
End Sub
方法二：窗体按任一键（或任一小写字符）时结束运行事件：
Private Sub Form_KeyPress （KeyAscii As Integer）
If KeyAscii <=97 And KeyAscii =>65 then End
End Sub
引 入： 通过演示讲评学生《实训22-简单屏保》引导学生观察、比较，提出新问题，从而引入本课时学习内容——设计一个比较完整的屏幕保护程序。
讲授新内容：
一、为屏保程序添加背景图片
全屏幕： WindowState= 2 （Maxmize）
無标题栏：BorderStyle=0 （None）
二、利用控件组在屏幕保护程序中添加一组图像
1）图像控件组： Image1（i）
2）控件组的引用方法 Image1（0）…… Image1（N-1）
控件组的应用
创建方法：Image1（0）…… Image1（8）
引用方法：
For i=0 to 7
Image1（ i ）.visible=False
Next I
利用时钟控件完成：
Private Sub Timer2_Timer（）
Static i As Integer
Image1（i）.Visible = False
i = （i + 1） Mod 10 ‘表示目前控件组中有10个元素
Image1（i）.Visible = True
End Sub
3） 调整图片大小适应图像框 Image1.Stretch=True
4）设置图像控件组各元素开始不可见（请同学思考，上讲台操作）
三、逐个显示图像控件组中各元素
1、利用时钟事件完成
2、理解变量类型Static的功能以及与Dim的区别（在时钟事件中分别利用Static和Dim对变量i进行定义、运行，观察并分析屏幕上出现各元素个数的变化情况）
四、如何在程序中添加播放媒体器（音乐、视频）
1、在工具箱中添加部件
部件名： WindowsMedaiPlayer1
2、播放媒体的方法：
方法一：在WindowsMediaPlayer1中的URL属性设置 （位置＼音乐.mp3）
方法二：用代码 WindowsMediaPlayer1.URL=“位置＼音乐.mp3”
五、如何生成屏幕保护程序并应用
1、将.vbp文件生成 .exe，再将.exe文件生成.scr
2、将生成的.scr文件存放于系统中屏保文件默认的位置C：＼WINDOWS＼System32
3、在桌面/属性/屏幕保存程序/能将自己创建的VB创建程序设置成屏保
知识小结
1、本实例中使用的控件及属性
2、本实例中使用的相关事件
3、本实例中出现的语句及相关函数
拓展与思考
拓展1：能否设置屏幕保护程序运行时，在几首音乐中随机选择播放。
拓展2：能否设置图像组中各图像按随机位置出现。
拓展3：设置屏保运行时鼠标隐藏、设计在桌面属性对话框中三种不同运行状态
课后作业
1、请写出逐个显示图像控件组各元素的事件代码。
2、在屏幕保护程序运行时，随机选择播放某一首歌的事件代码。