《交互式制作课》PPT课件.ppt

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