2017宁波版信息技术九年级系列课件 第八课 综合应用
九年级 下 信息技术 教案第八课
格调与品位
课前
准备
导学过程
教学内容及教师指导过程
学生学习过程
一、导入新课：
引导学生欣赏有关的室内摆设图片资料，让他们指出自己所喜欢的图片，并说明理由，引起学生的学习兴趣。
二、新授讲解：
1、日常生活中，每个人都在平常的活动中表露着自身的文化素质、道德修养和审美情趣。对高尚生活品位的追求，体现着一个人的综合素质和修养。
教
学
反
思
2、介绍造型作品的艺术格调知识，分析艺术格调的取向与个人文化，审美及精神情操修养的关系。分析对高雅格调和高尚生活品位的追求，是个体修养的要求。
3、师生共同欣赏评述：
展示图例，让学生欣赏评述或修改，教师点评，分类进行
（1）、富有文化品位的各钟美术作品
（2）、室内家具的色调及摆设
（3）、室内装饰的摆设
4、世界进入21世纪，人类社会步入现代社会，现代社会要求有与时代发展相适应的现代人的素质，热爱生活，勇于创新，情感丰富，具有较高的生活审美品位，使现代青年应具有的基本人文素养。
5、小组讨论交流，教师点评
如何全面提高自己的修养以适应现代社会的要求
三、学生自主欣赏评述：
1、学生赏析交流自己查找到的图片，进行评述，发表自己的感受和体验。
2、学生对自己的卧室或书桌进行一下设想，可自己画出设计图，进行评价。
四、课堂小结：
通过本节课的学习，我们体会和理解了格调高雅的生活空间，会使我们心情愉快，并体现着我们的生活品位。我们可以根据自己的设计思路对自己的生活空间进行一下布置。
学生听教师讲授。
学生回答教师提出的问题。
学生听教师介绍。
学生回答问题。
学生讨论，发表个人意见。
学生听教师介绍。
信息技术人教版九年级全册第8课《使用定时器控件》教学设计
信息技术人教版九年级全册第8课《使用定时器控件》教学设计一、教材分析本课是九年级信息技术全册中关于VB 编程的重要内容之一。
教材通过介绍定时器控件，让学生了解如何在程序中实现定时触发事件的功能。
定时器控件在动画制作、定时任务等方面有着广泛的应用，能够为程序增添动态效果和实用性。
二、学情分析九年级学生经过前面课程的学习，已经对VB 编程有了一定的基础和理解。
他们对实现动态效果和自动化任务有较高的兴趣，渴望学习新的控件来丰富自己的程序。
然而，对于定时器控件的具体使用方法和原理可能还需要进一步的讲解和实践。
三、教学目标（一）知识目标认识定时器控件的作用和特点。
掌握在VB 程序中添加和设置定时器控件的方法。
了解定时器控件的常用属性和事件。
（二）能力目标能够运用定时器控件实现简单的动画效果或定时任务。
提高分析问题和解决问题的能力。
（三）情感目标培养学生的创新思维和实践能力。
增强学生对编程的兴趣和自信心。
四、教学重难点（一）教学重点定时器控件的添加和属性设置。
利用定时器控件实现动画效果或定时任务。
（二）教学难点理解定时器控件的工作原理和事件触发机制。
合理设置定时器控件的时间间隔和触发事件。
五、教学过程（一）导入新课（5 分钟）展示一个使用定时器控件实现的简单动画效果，如闪烁的星星或移动的图形。
提问学生：“这个动画是如何实现的？定时器控件在其中起到了什么作用？”引出本课主题。
（二）新授内容（30 分钟）定时器控件介绍（10 分钟）讲解定时器控件的作用和特点，如定时触发事件、无需用户干预等。
介绍定时器控件的常见属性，如Interval（时间间隔）、Enabled（是否启用）等。
演示定时器控件的添加方法和属性设置步骤。
利用定时器控件实现动画效果（15 分钟）以一个简单的动画为例，如移动的小球，讲解如何使用定时器控件实现动画效果。
分析动画的实现原理，包括定时器的触发事件和图形的位置变化。
让学生动手实践，使用定时器控件制作一个简单的动画效果。
最新人教版信息技术九年第8课《使用定时器控件》教案.doc
1.设计程序界面并设置对象的属性
1.）启动vb ,创建一个新的EXE标准工程。
2.）设计窗体界面。
3.）设置对象的属性
2.编写代码
窗体的（form）装载（load）事件编写时间函数，实现程序启动时候显示时间。
打开代码窗口为窗体的load事件编写代码。
代码为：private sub form_load()
教学内容分析
本节内容选用显示时间和日期的小程序，这一程序是对前面讲的按钮控件和标签控件有关，又使用了定时器控件来实现时间的不断变化。为强化学生操作能力方面奠定了坚实的基础。学好本课小程序设计环境与元素、编写程序代码都具有重要的作用。
学习者特征
分析
定时器控件在VB用的比较少，但是利用它可以实现时间的不断变化。由于学生的基础和学习成绩存在差距，学生的认知能力、思维能力的不同对教学效果有影响，所以考虑学生的实际情况，需要教师的讲解指导。
Lbltime.caption=time
End sud_click
End
End sub
学生观看幻灯片和课本在老师的指导下设计程序的界面并设置对象属性并编写代码。
任务二
设置定时器
控件并编写代码
添加定时器控件设置其属性并实现程序运行时时间能够随系统时钟的运行不断更新。
4．测试程序并保存。
学生按教师演和查阅本节有关内来添加定时器并编写定时器代码
总结
通过学习本节课内容以后，学会了vb中的时间函数和定时器控件使用。
通过使用时间函数和定时器控件来编写了电子表的小程序。
时间函数来装载系统的时间，定时器控件的interval属性来控制时间间隔变化。
学生按老师提的问题，回答问题并归纳总结
九年级《信息技术》教案
九年级《信息技术》教案第一章：网络基础知识1.1 教学目标了解计算机网络的定义、分类和应用。
掌握网络协议的基本概念。
理解网络地址和IP地址的转换。
1.2 教学内容计算机网络的定义和分类。
网络协议的基本概念。
网络地址和IP地址的转换。
1.3 教学活动教师讲解计算机网络的定义和分类。
学生通过实例了解网络协议的应用。
教师演示IP地址的转换过程。
1.4 作业与练习完成课后练习题，巩固所学知识。
学生自主探究网络协议的实际应用场景。
第二章：网络应用2.1 教学目标了解网络应用的分类和常用网络应用。
掌握浏览器的使用和搜索引擎的搜索技巧。
学会使用电子邮件和即时通讯工具。
2.2 教学内容网络应用的分类和常用网络应用。
浏览器的使用和搜索引擎的搜索技巧。
电子邮件和即时通讯工具的使用。
2.3 教学活动教师讲解网络应用的分类和常用网络应用。
学生实际操作浏览器和搜索引擎，掌握搜索技巧。
教师示范电子邮件和即时通讯工具的使用方法。
2.4 作业与练习完成课后练习题，巩固所学知识。
学生自主探究其他网络应用的使用方法。
第三章：计算机安全3.1 教学目标了解计算机安全的概念和重要性。
掌握计算机病毒的基本知识。
学会使用防火墙和杀毒软件。
3.2 教学内容计算机安全的概念和重要性。
计算机病毒的基本知识。
防火墙和杀毒软件的使用。
3.3 教学活动教师讲解计算机安全的概念和重要性。
学生了解计算机病毒的基本知识。
教师示范防火墙和杀毒软件的使用方法。
3.4 作业与练习完成课后练习题，巩固所学知识。
学生自主探究计算机安全的其他方面。
第四章：信息处理与演示4.1 教学目标了解信息处理的基本概念和常用工具。
掌握演示文稿的制作和展示技巧。
学会使用文字处理软件和表格处理软件。
4.2 教学内容信息处理的基本概念和常用工具。
演示文稿的制作和展示技巧。
文字处理软件和表格处理软件的使用。
4.3 教学活动教师讲解信息处理的基本概念和常用工具。
学生实际操作演示文稿的制作和展示。
人教版九年级信息技术全第八课使用定时器控件---设计动感抽号机教学课件共16张PPT
【实现思路】
1、设置窗体界面，在窗体中添加两个标签，添加一个文本框， 添加两个按钮，添加一个定时器控件。 2、在“开始”按钮中编写代码，实现输入全班人数及启动定 时器的功能；在定时器中编写代码，实现在文本框中随机动态 显示学号；在“停止”按钮中编写代码，实现停止定时器以及 在弹
小组合作探究：界面设计
四、编写代码
(二)、根据“开始”按钮功能算法编写代 码：
n = Val(InputBox(“输入人数”)) Timer1.Enabled=true
四、编写代码
(三)、定时器每隔100毫秒循环执行的 Timer 事件过程，根据算法编写代码：
Randomize num = int(rnd()*n+1)
实践：按照项目要求，完成程序界面的设计
Label2
Timer1
Command1
Text1
Command2
三、设计算法
1、“开始”按钮功能算法如下：
2、定时器每隔100毫秒循环执行 的Timer 事件过程，算法如下：
3、“停止”按钮功能算法如下：
四、编写代码
(一)、定义变量 Dim n As Interger Dim num As Interger
Text2.text=num
四、编写代码
(四)、根据“停止”按钮功能算法编写代 码：
Timer1.Enabled= False
Msgbox”恭喜” & num & “号被抽中”
四、编写代码
（五)、完成所有代码编写
存盘
实践探究
• 在桌面新建一个文件夹
XX班XX学号XX名
• 将文件全部存入此文件夹， 文件名抽号机，并生成可执 行文件，上交“目录”。
九年级上信息技术第九周第八课时
图像处理
第八课时路径
一．课标教材：
本课将以Photoshop cs为学习工具，学习如何绘图，如何对图像或照片进行各种效果处理。
Photoshop是一个非常优秀的图像处理软件，利用它可以制作出极有创意、非常漂亮的作品。
我们日常生活中见到的书刊封面和各种广告，很大一部分都是用Photoshop制作的。
二．学情分析
通过前面的学习，学生已经掌握了一些绘图工具的使用方法，但是要绘制复杂的图形，还是感觉力不从心。
这节课继续学习可以随心所欲绘制又可以方便修改的工具----路径。
三．教学目标
1.知识方面：掌握路径工具的使用
2.能力方面：新旧知识相结合，达到灵活应用，通过本节课的学习，能让学生掌
握PS里的绘图技巧
3.情感方面：激发学生的学习兴趣；培养探究意识、创新精神、协作精神、竞争
意识；提高学生审美情趣和欣赏水平。
教学重点：
路径工具的正确选用和适时处理能力
四．教学方法和媒体
结合信息技术本身的特点，要求我们知识和技能的传授应以“典型任务”为主，突破一个个“思维障碍”，因此本课采用建构理论下的主体教育模式，通过学生已储备的书本知识和生活经验，设置一个个任务，让学生在学习任务中，自己思考，主动探究，以“任务驱动”的方式发展能力。
教师在整个过程中起到组织、引导、协调、控制、咨询的作用。
启发、诱导贯穿其中，创建自我探究的学习平台。
讲解演示法：投影一部分图片，其中包括生活中常见的，也包括学生只要稍稍动脑就能马上反应过来的，结合课本插图来共同讨论。
五、教学过程
六、课堂教学反思。
2017宁波版信息技术九年级系列课件 第四课 认识VB
加粗，72 设置字形、字号 1000 自动运行时间间 隔（单位毫秒）
试一试，改变Label1字体颜色
（4）对象事件过程的编程
如右图所示，双击窗体中的 Timer1,显示代码窗体，在Timer 事件中输入以下代码：
• Sub Timer1_Timer() • Label1.Caption = Time • End Sub
练习二
• • • • • • • • • • Private Sub Command1_Click() Dim str As String str = "计算机" Label1.Caption = str End Sub Private Sub Command2_Click() Dim str As String str = "computer" Label1.Caption = str End Sub
的“生成电子时钟.exe”,可以编译程序并产生可 执行文件。 试一试： 下载LCD Mono字体 （为节约时间，教师应事先准备 好，上课前发送到学生桌面）， 设置Label1对象的Font属性，运 行效果如右图
小结：
创建应用程序
新建工程 创建应用程序界面
设置属性值
对象事件过程的编程
保存文件
程序运行与调试
（5）保存文件
• 新建一文件夹保存该工程下所 有文件，窗体文件保存为“电 子时钟.frm”，工程保存为“电 子时钟.vbp”
请同学们先建一个文件夹，并命名为4位学号+名字
（6）程序运行与调试
从“运行”菜单中选择“启动”按钮 或按【F5】键运行程序，验证结果。单击“结束
”按钮
，可以中止程序，单击“文件”菜单中
第四课 认识VB
浙教版信息技术九年级全册第二单元第8课完善基础建模
新知讲解
二、扫描的应用
1.扫描的特点和规则
扫描是沿着一条路径移动轮廓(截面)来生成基体、凸台、切除或者曲面。 扫描必须遵循以下规则: (1)对于基体或凸台扫描轮廓必须是闭环的
(2)对于曲面扫描轮廓可以是闭环的，也可以是开环的
(3)不管开环或是闭环，路径的起点必须位于轮廓的基准面上。
新知讲解
（1）路径扫描
新知讲解
一、模型的完善
生活中的茶杯大多都有杯柄，以便于拿握。
杯柄可以看作弯曲的圆柱体。
在3D建模里，绘制杯柄的基本原理是先将其看作一条细线，在 Solidworks 里这条线称为路径。
有了这个基本路径之后，再来确定杯柄的形状。
新知讲解
需要确定一个与此线 垂直的平面(基准面)， 在基准面画一个横截面 的草图，沿着路径扫描 一遍就形成了立体图形 (如图所示)。
新知讲解
（2)获取扫描的基准面。
选择“特征”工具“参考 几何体” ，选择“基准 面”，“第一参考”选曲线 的一个端点，“第二参考” 选曲线上的任一点，会生成 与曲线相垂直的基准面(如图 所示)，单击 完成。
新知讲解
(3)绘制杯柄的截面草图。
在这个基准面上，以曲线的一端为中心 点，画个杯柄截面的轮廓草图，如圆形就画 一个圆的草图。
第8课 完善基础建模
浙教版信息技术 九年级
新知导入
新知导入
新知导入
新知导入
我们已经学习了3D建模中的草图绘制、拉伸、 切除、旋转、阵列等功能应用，可以设计一些比较 规则的造型。但是，在日常生活中，不规则的物品 随处见，如上面图中的杯柄、弯曲的水管、手推车 的扶手等，这一类的模型在设计过程中需要用到路 径、扫描等功能。这节课我们来学习这方面的内容。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
小结
• • • • • • 一、随机函数初始化：randomize 二、Rnd产生一个大于等于0且小于1的小数。 生成某个范围内的随机整数，可使用以下公式： Int(Rnd*(Max-Min+1)+Min) (其中Max为数据范围的上限，Min为下限) 如：要产生1~9的数字，可用Int(Rnd*9+1)
试一试
• 将例子改为10以内的减法练习，要求被减数大于等于减数
• • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize ' 随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) '产生减数（或被减数） b = Int(Rnd * 9 + 1) '产生减数（或被减数） If a >= b Then s = a & "-" & b & "=" '产生一个减法练习式 ElseIf a < b Then s = b & "-" & a & "=" End If Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then ' 一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub
Thank You！
练一练1 题目
• 设计一个猜数游戏。程序自动产生 一个数（不显示），让用户进行猜 测，程序给出反馈：“大了”、“ 小了”或“相等”。
参考答案一界面
参考答案一源程序
• • • • • • • • • • • • • • • • • • • • • • Private Sub Command1_Click() Randomize Dim a As Integer Dim b As Integer Dim s As String a = Int(Rnd * 100) s = "请输入" For I = 1 To 10 b = Val(InputBox(s, "猜一猜")) If b > a Then s = "太大了，请重新输入" ElseIf b < a Then s = "太小了，请重新输入" Else MsgBox "相等，恭喜你，在第" & I & "次猜中了", vbInformation, "猜一猜" Exit For End If Next I If I > 10 Then '猜题结束 MsgBox "很遗憾,(答案是" & a & ")" & vbCrLf & "猜题结束", vbInformation, "猜一猜" End If End Sub
1-fixed Singleaption
编写代码
• • • • • • • • • • • • • • • Private Sub Command1_Click() Dim s As String Dim a, b As Integer Label2.Caption = "" '清空显示内容 Randomize '随机种子初始化 For i = 0 To 19 a = Int(Rnd * 9 + 1) ‘产生乘数 b = Int(Rnd * 9 + 1) ‘产生乘数 s = a & ‚-‛ & b & ‚=‛ ‘产生一个乘法练习式 Label2.Caption = Label2.Caption & s & " " '写入显示框 If i Mod 4 = 3 Then '一行显示4个练习式 Label2.Caption = Label2.Caption & vbCrLf End If Next i End Sub
效果如下一张PPT
减法练习效果图
补充知识
• 1、Mod 运算符,用来对两个数作除法并且只返回余数。属算 术运算符. Mod 运算符示例 本示例使用 Mod 运算符来对两 数作除法运算，但返回其余数而非商数。如果两数中有一数 为浮点数，该数会先被四舍五入成整型后再进行运算。 • 10 Mod 5 = 0。 • 10 Mod 3 = 1。 • 12 Mod 4.3 = 0。 • 12.6 Mod 5 = 3。 • 2、vbCrLf的含义是： • vbCr=Chr(13) 回车符 vbLf=Chr(10) 换行符 vbCrLf=Chr(13) & Chr(10) 回车+换行符
随机函数
• Rnd产生一个大于等于0且小于1的小数。 • 生成某个范围内的随机整数，可使用以下公式： • Int(Rnd*(Max-Min+1)+Min) • (其中Max为数据范围的上限，Min为下限)
试一试
• 用Rnd函数表示产生范围为1~9之间的随机整数
• • • • • • • • Private Sub Command1_Click() Dim a As Integer Max = 9 Min = 1 Randomize ’随机种子初始化 a = Int(Rnd * (Max - Min + 1) + Min) Print a; End Sub
第八课 综合运用
宁波版九年级信息技术（VB）
（附P37练一练及乘法练习的VB源程序）
2017,6
学习目标
• 掌握随机数产生的方法 • 熟练运用选择结构设计程序 • 熟练运用循环结构设计程序
复习
选择结构
条件？
Y
N
循环结构
条件？ Y 语句组 N
语句1
语句2
任务分析
• 单击“出题”命令按钮，随机产生10以内的乘法练习题。 运行效果如图所示
界面设计
Label1
Label2
Command1
属性设计
对象名 属性名 属性值
Caption
Form1
乘法练习 （根据路径选择）
乘法练习 0-transparent （空）
Picture
Label1 Caption BackStyle caption
Label2
BorderStyle
BackColor
三、选择结构： • If 条件 Then 语句1[Else 语句2] • End If • 或 • If 条件 Then • 语句1 • [Else • 语句2] • End if 四、循环结构： 当循环次数确定时，可以用For…Next语 句，格式为: • For 循环变量=初值 To 终值[Step 步长] • 循环体 • Next 循环变量