九年级教案2014上

使用定时器控件
教学目标
知识与技能 1.学会使用VB中的函数
2.学会使用VB中的定时器控件和设置它的属性
3.能会使用定时器控件编定简单程序
过程与方法学会使用定时器控件
情感态度与价值观启发学生对程序的感兴趣，在有趣中不知不觉地学会合作学习能力。

教学方法讲授法
教学课时总4-----节
教学重点学会使用定时器控件，时间函数和日期函数。

教学难点编写定时器控件的代码。

教学过程：教学活动
导入新课：
同学们我们一起观察一下这个电子表的小程序，程序中的时间发生什么样的变化？那今天我们一起来学习使用定时器控件编写电子表的小程序。

第一步，启动VB，创建一个新的EXE标准工程。

第二步，设计窗体界面。

第三步，设置对象的属性。

编写程序代码：
在VB程序中，用Date函数可以获取当前日期，用Time函数可以获取当前时间。

窗体的（frmDisplay）装载事件（Load）编写时间函数，实现程序启动时侯显示时间，打开代码窗口为窗体的Load事件编写代码。

代码为：
Private Sub frmDisplay_Load()
Lb1.Caption=Time
Lb2.Caption=Date
EndSub
添加定时器控件设置其属性并实现程序运行时间能够随系统时间的运行不断更新。

教师给学生演示把定时器控件添加到窗体中讲解定时器的作用。

定时器只有一个事件-----Timer.
定时器的Interval属性可以用来确定自动执行Timer事件中程序代码的时间隔。

操作步骤：
第一步，双击工具箱中的定时器图标添加定时器控件。

第二步，按要求设置定时器控件的属性。

第三步，为定时器控件编写代码。

Private Sub tmTime_Timer()
Lb1.Caption=Time
Beep
EndSub
第四步，测试程序并保存。

小结与复习：通过学习这节课内容后，学会了VB中的时间函数，日期函数和定时器控件。

课后反思：本课的内容相对于上学期的课比较难，但学生学习的状态比较好。

第九课使用滚动条控件
教学目标
知识与技能1.掌握滚动条控件的属性设置。

2.掌握 RGB() 函数的使用.
3.掌握调色板程序的代码编写.
过程与方法通过编调色板程序，掌握滚动条控件的使用方法;正确使用滚动条控件的主要属性max,min,largechange,smallchange,value 和常用事件 change 和 scroll 事件
情感态度与价值观 1.培养学生自主学习的能力. 2.提高学生对处理信息,应用信息的能力. 3.培
养学生的实践能力和创新精神. 理解滚动条控件的常用属性及事件的调用。

息意识。

教学方法讲授法
教学课时总-4------节
教学重点会设置滚动条的属性
教学难点利用滚动条编代码
教学过程：导课：同学们你是通过什么方式知道你家门外有人啊？门铃声。

这就是一、制作一个数值显示器
同学们观察并回答
单击“数值显示器”程序里的滚动条控件的不同位来时的问题，对滚动置，问同学们有什么变化。

从而解释滚动条控件条的使用有所了解。

的主要属性，常用事件。

‘学生自己动手操作
老师布置上机的任务：
同学们你们现在打开 vb 窗口，然后绘制程序界学生讨论并回答面并设置各个对象的属性。

教学过程及教学内容学生并记下他们的问题。

学生一边听一边记并了解程序编写过教师巡视学生的学习活动，及时帮助有问题的住老师的操作步骤
问题：那我们怎样编写程序代码？这里改程。

变的是哪个对象的值？
老师小总结：在这个过程中，对象 hscroll1 可以相应 change()事件。

滚动条发生 change()事件后，将新位置的值hscroll1.value 赋给文本框是说，代码可以写成: Private sub hsrcoll1__change() Text1.text= hsrcoll1.value End sub 学生认真听并了解 RGB 色彩模式学生讨论，回答学生自己动手操作学生思考并激发学 text1 的 text 属性值，在文本框中显示出来。

也就生的兴趣
二、编写调色板程序
我们在操作 word 和 frontpage 软件时，都对颜色进行过设置，在配置颜色时，我们可以根据某几种颜色合成其他的颜色。

那么，我们可不可
以利用 vb 自己来设计一个合成颜色的程序。

老师讲解 RGB 色彩模式合成颜色的原理。

通过多媒体网络向学生展示调色板程序“调色板.exe”文件的运行过程，让学生明白程序的大致过程。

的变化？如何设计界面？发生何种事件？如何编写代码？学生认真听老师的讲解，发现自己的不
问题：通过什么控件可实现红，绿，蓝颜色足进行改正
教师布置上机任务：你们现在自己设计一
下窗体界面，设置对象的属性。

老师提示： RGB 色彩模式的取值范围是 0~255，我们把三个滚动条的值分别赋给 RGB 函数的 3 个参数，就可以得到各种颜色。

教师巡视学生的学习活动，及时帮助有问题的学生并记下他们的问题。

教师小总结：使用 RGB 函数调配颜色时，每个参数的最大值为 255.MAX 属性值的作用是限定 Value 的最大值。

所以，把滚动条的 MAX 属性值设为 255. 启动程序时会引发窗体的 load 事件。

这时，三个滚动条的值均为 0 ，RGB 函数为 RGB （0,0,0）图片框中显示黑色。

，拖动控制各种颜色成分的滚动块时，它的值发生变化，引发控件的 change 事件， RGB （r,g,b）函数的值也随之改变，从而重新设置图片框的背景色。

编写调色板程序的代码：
Private sub form_load() Hscroll1.value=0 Hscroll2.value=0 Hscroll3.value=0 End sub Private sub hscroll1_change() Picture1.BackColor=RGB(HScroll1.Value,HScr oll2.Value,hscroll3.Value) End sub 环节 Private sub hscroll2_change() 教学过程及教学内容 Picture1.BackColor=RGB(HScroll1.Value,HScro ll2.Value,hscroll3.Value) End sub Private sub hscroll3_change() Picture1.BackColor=RGB(HScroll1.Value,HScro ll2.Value,hscroll3.Value) End sub 这节课我们主要学了滚动条控件的使用，还学了总结它的重要属性： Max 属性， Min 属性，Value 属性，LargeChange 属性，SmallChange 属性；常用事件 Change、Scroll 事件。

利用滚动条控件编了一个调色板。

学生认真听并巩固新课内容教师活动学生活动
编“调节字号”程序。

调节水平滚动条时，文本框中的文字大小变化。

作业注意：文本框中的文字的字号是由 Font 属性中的 Size 子属性所决定的。

在程序中设置 Size 属性的格式为：对象名.FontSize=x
小结与复习：通过学习这节课内容后，学会了VB中的使用滚动条。

课后反思：还是要让学生多练习。