《如何制作交互式课件》由会员分享,可在线阅读,更多相关《如何制作交互式课件(29页珍藏版)》请在金锄头文库上搜索。
1、PowerPoint制作交互式课件苏州电视中专 苏州第二十中学 2007年10月课程概要1、PowerPoint交互式课件演示软件环境:Windows XP SP2,Office Power Point 2003 SP22、PowerPoint控件概述3、选项按钮、命令按钮以及单项选择题制作4、复选框和多项选择题制作5、文本框和填空题制作6、小结7、思考在1957年发表了试论社会主义制度下的商品经济和价值规律 一文的作者是交互式课件示例单选题示例:多选题示例:填空题示例:控件概述之基本使用二、控件的生成:鼠标点选某控件,在编辑区拖曳即可一、控件工具箱的启动: 【视图 | 工具栏 | 控件工具箱
2、】选项按钮:主要用于单项选择题复选框 :主要用于多项选择题文本框 :主要用于填空题命令按钮: 主要用于制作命令按钮标签 :主要用于文字编辑 控件概述之属性和事件控件具备描述自身信息的属性:如控件的名称、具有的值、大小等控件具备响应外界消息的事件:如当鼠标单击控件时,控件的值会发生变化制作具有交互功能的课件就是基于控件的属性和事件,只要掌握常见控件的 重要属性和事件,再了解一些编写程序的基本技巧,就可轻松完成交互式课 件的制作。请务必掌握以下技巧:鼠标右键单击某控件,选择【属性】可以编辑该控件的属性鼠标右键单击某控件,选择【查看代码】可以编辑该控件的事件代码选项按钮的属性和事件名称:默认是Opt
3、ionButton1 是该控件的标志,可改名Caption:默认是OptionButton1 可以在此编辑题目Value:默认是FalseFont:控件文本的字体、字型和字号注意:选项按钮有两种状态即两种Value值,默认是False即未选中状态,当鼠 标单击选项按钮时,表示选中该按钮,控件状态会发生变化,如OptionButton2 所示,而其Value属性也由默认的False转变为True,这个性质千万要记住。选项按钮在程序中的表示在程序中表示选项按钮的方法:OptionButton1在程序中表示选项按钮属性的方法:OptionButton1.ValueOptionButton1的Valu
4、e为false,表示为:OptionButton1.Value=FalseOptionButton2的Value为true,表示为:OptionButton2.Value=True命令按钮的属性和事件名称:默认是CommandButton1 是该控件的标志,可改名Caption:默认是CommandButton1 可以在此编辑按钮标题Font:控件文本的字体、字型和字号命令按钮最常用的事件响应是:Click在程序中的表示方法是:CommandButton1_Click命令按钮和消息框现在有一个命令按钮,我们希望鼠标单击命令按钮时,屏幕上会弹出一个提示 框,这个技巧只需要右键单击CommandB
5、utton1按钮,选择【查看代码】进入 代码编辑区,在给出的默认代码中填写下列兰色代码即可:Private Sub CommandButton1_Click() MsgBox (“测试成功!“) End Sub命令按钮和选项按钮一现在有一个命令按钮,还有一个选项按钮,我们希望鼠标单击命令按钮时,选 项按钮的标题即Caption由OptionButton1变为“中国苏州”,这个技巧只需要右 键单击CommandButton1按钮,选择【查看代码】进入代码编辑区,在给出的 默认代码中填写下列兰色代码即可:Private Sub CommandButton1_Click() OptionButton
6、1.Caption = “中国苏州“ End Sub注意:程序中的”要用半角标点符号思考:怎样通过程序将OptionButton1的Caption改回OptionButton1?命令按钮和选项按钮二现在有一个命令按钮,还有两个选项按钮,我们希望鼠标单击命令按钮时,程 序能进行以下判断:如果OptionButton1的Value为True则显示“答对了”的消息 框,否则,显示“答错了,重新选择!”的消息框。进入代码编辑区,在给出的 默认代码中填写下列兰色代码即可:Private Sub CommandButton1_Click() If OptionButton1.Value = True Th
7、en MsgBox (“答对了“) Else MsgBox (“答错了,重新选择!“) End If End Sub提示:程序执行时,请回忆选项按钮的Value状态是通过什么事件变化的?命令按钮和选项按钮的初步小结消息框的程序代码:MsgBox(“”)进入控件属性的方法:鼠标右键单击某控件,选择【属性】进入控件事件代码的方法:鼠标右键单击某控件,选择【查看代码】选项按钮的Value值的表示方法: OptionButton1.Value=False程序中用于判断的语句: IfThen Else Endif命令按钮Click事件的表示方法:CommandButton1_Click利用命令按钮和选项
8、按钮制作单项选择题1、利用【插入|文本框】制作题目2、利用选项按钮制作答案,同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的单项选择题了:请利用命令按钮和选项按钮,将以下素材制作一道单项选择题:孔子说“以貌取人,失之子羽”,子羽是指:冉雍、端木赐、樊迟、澹台灭明复选框的属性和事件名称:默认是CheckBox1 是该控件的标志,可改名Caption:默认是CheckBox1 可以在此编辑题目Value:默认是FalseFont: 控件文本的字体、字型和字号注意:复选框具有两种状态即两种Value值,默认是False即未选中状态,
9、当鼠 标单击选项按钮时,表示选中该按钮,控件状态会发生变化,如CheckBox2所 示,而其Value属性也由默认的False转变为True,这个性质非常重要。复选框在程序中的表示在程序中表示复选框的方法:CheckBox1在程序中表示复选框属性的方法:CheckBox1.ValueCheckBox1的Value为false,表示为:CheckBox1.Value=FalseCheckBox2的Value为true,表示为:CheckBox2.Value=True命令按钮和复选框现在有一个命令按钮,还有三个复选框,我们希望鼠标单击命令按钮时,程序 能进行以下判断:如果CheckBox1和Che
10、ckBox3的Value都为True而且 CheckBox2的Value为False时则显示“答对了”的消息框,否则,显示“答错了, 重新选择”的消息框。进入代码编辑区,在给出的默认代码中填写下列兰色代 码即可: Private Sub CommandButton1_Click() If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox (“答对了“) Else MsgBox (“答错了,重新选择!“) End If End Sub注意:这个程序有点小问题,即在重新
11、选择时,原先的选择状态还保留着。命令按钮和复选框之改良如果程序在弹出“答错了,重新选择!”的对话框后,能将复选框的Value值 恢复到False,则问题就可以解决了。进入代码编辑区,在前面代码的基础 上,填写下列红色代码即可:Private Sub CommandButton1_Click() If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox (“答对了“) Else MsgBox (“答错了,重新选择!“) CheckBox1.Value = False C
12、heckBox2.Value = False CheckBox3.Value = False End If End Sub复选框的初步小结程序中判断多个复选框的Value同时为真的方法: If CheckBox1.Value=True and CheckBox2.Value=True then . Else . Endif在弹出出错消息框后,程序自动恢复多个复选框的Value值为False: If then Else . CheckBox1.Value=False CheckBox2.Value=False Endif复选框的Value值表示方法:CheckBox1.Value=True利用命
13、令按钮和复选框制作多项选择题1、利用【插入|文本框】制作题目2、利用复选框制作答案,同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的多项选择题了:请利用命令按钮和复选框,将以下素材制作一道多项选择题:埃尼奥莫里康内(ENNIO MORRICONE)创作过的电影音乐有:Cinema Paradiso、Once Upon A Time-The Revolution Legend Of 1900 、Once Upon A Time in the West 文本框的属性和事件Value: 文本框接收到的输入数据名称:默认是TextBo
14、x1 是该控件的标志,可改名Font: 文本的字体、字型和字号TextAlign: 文本的对齐方式在程序中表示复选框的方法:CheckBox1在程序中表示复选框属性的方法:CheckBox1.ValueTextBox1的Value值为“苏州”,则表示为:TextBox1.Value=“苏州”命令按钮和文本框现在有一个命令按钮,还有一个文本框,我们希望在文本框内输入文字,然后 当鼠标单击命令按钮时,程序能进行以下判断:如果输入的文字内容是“苏州” ,则显示“答对了”的消息框,否则,显示“答错了,重新填写!”的消息框。进入代 码编辑区,在给出的默认代码中填写下列兰色代码即可:Private Sub
15、 CommandButton1_Click() If TextBox1.Value = “苏州“ Then MsgBox (“答对了“) Else MsgBox (“答错了,重新填写!“) End If End Sub思考:怎样在出错信息出现后,清空文本框内的内容?命令按钮和文本框之改良这个问题可以仿照之前复选框的思路来解决,只需修改TextBox1的Value为空 即可。进入代码编辑区,在前面代码的基础上,填写下列红色代码即可:Private Sub CommandButton1_Click() If TextBox1.Value = “苏州“ Then MsgBox (“答对了“) Els
16、e MsgBox (“答错了,重新填写!“) TextBox1.Value=“” End If End Sub思考:如果填空的内容可以包容多个正确答案,应该怎样修改程序呢?文本框的初步小结文本框的Value值的表示方法:TextBox1.Value=“”程序中判断文本框的Value满足某个特定值的方法: If TextBox1.Value = “” then . Else . Endif在弹出出错消息框后,程序自动恢复文本框的Value值为空: If then Else . TextBox1.Value=“” Endif利用命令按钮和文本框制作填空题1、利用【插入|文本框】制作题目2、利用文本框制作填写答案区域,同时完成控件的属性设置、对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的填空题了:请利用命令按钮和复选框,将以下素材制作一道填空题:IMAX电影使用何种规格的电影胶片制作而成?小结1、掌握开启控件工具箱、修改控件属性、编辑控件代码