新课标青岛版初中信息技术八年级下册(Vb程序设计)精品教案.rtf

新课标青岛版初中信息技术八年级下册（Vb程序设计）精品 教案 一、八年级下册教学内容安排建议 八年级下册有两部分知识：1、算法思想初步；2、VB程序设计。教学中建议重点学习VB程 序设计，基于两点原因：1、教学时间；2、软件的通适性。但应介绍算法基础知识，建议用1 课时完成，可参考第1单元第1课算法基础知识安排教学，知识点有：算法概念，表示方法：自 然语言、流程图、计算机语言。其中算法的流程图是重要的，要求学生能画流程图，老师举例 得出算法的三种结构：顺序结构、分支结构、循环结构。 二、VB程序教学体验 1、 启动VB 2、VB界面认识：三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件） 一箱：工具箱（类比画图、Flash、PhotoShop）。重点认识:labelcommand buttontextbox 一窗体设计器： 三窗口：资源管理器窗口、属性窗口、窗体布局窗口 3、界面的变动：通过视图工具栏调整 4、制作一个“问好.vbp”，体验： （1）如何添加控件 （2）属性如何改变 （3）代码如何编写 通过制作这个程序，我们体验到了VB程序开发的一般步骤 三、VB程序教学的三维目标 1、 知识目标 2、 技能目标 3、 情感态度和价值观目标 四、教材中有关VB的8个实例分析 第课 大熊猫的两个愿望（四个教学环节） 一、一、认识认识VBVB工作界面工作界面（解决两个问题：界面的组成部分有几个？如何修改？） 1、启动：类比其它软件的启动方法1、程序菜单；2、双击快捷方式；3、右击 2、界面：（1）三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件） 一箱：工具箱（类比画图、Flash、PhotoShop）。重点认识:labelcommandbut tontextbox 一窗体设计器： 三窗口：资源管理器窗口、属性窗口、窗体布局窗口 （2）修改 二、运行程序二、运行程序（解决怎样运行程序的问题） 1、让学生打开文件，启动程序（三种方法：工具栏按钮、菜单、F5） 2、在运行状态时，引导学生观察标题栏的变化，得到工程的三种状态：设计、运行、中断（b reak） 三、修改界面三、修改界面（解决控件的五个问题：怎么加？怎么删？怎么移？怎么缩放？怎么改？） 1、控件的添加与删除 （1）添加（两种方法）：单击控件画出。引导学生回忆“画图”程序如何画几何图形，完成 控件添加 双击控件 （2）如何删除几何图形（三种方法）：Delete右击菜单 2、控件的移动、缩放： 3、修改控件的属性值： （1）教学建议：引导学生发现修改方法（自学探究） （2）难点：添加一个commandbutton控件，修改其标题、文本字体、背景色。教学中注意区 别： 1控件名称（name）与控件标题（caption）的区别：控件名称具有唯一性，可用身份证号码 与人的姓名类比。（可以分别修改控件名称和控件标题试一试） 2Commandbutton控件背景色在改变时，应将其style属性修改为（1-Graphical）模式。 添加一个label控件，修改fontforecolorbackcolorbackstyle 设置控件属性： Label1.Caption Label1.BackStyle Label1.ForeColor Command1.Caption Command1.BackColor Command1.Style 属性与属性值属性与属性值 什么是属性？属性值又是什么？在VB中属性是用来描述对象特性的。比如，在现实生活中 我们常常会问：“这位先生的姓名是什么？”，“年龄多少？”。我们会回答这位先生叫张 三，年龄30岁。这种问题放在VB中就变成：这位先生的“姓名属性”是什么？，“年龄属 性”是什么？其中，“张三”就是名字属性的值，“30”就是年龄属性的值。此外，为了描述 一个人，光有前面两项属性是不够的，往往还需要另外一些属性，如性别、身高、体重、学历 等等。这时要注意的是，每一种对象所具有的属性是不同的，比花与人两种不同的对象，人具 有 “ 学 历 ” 属 性 而 花 没 有 ， 花 具 有 “ 香 味 ” 属 性 而 人 没 有 。 在VB中每种对象有若干个属性。例如命令按钮有名称、标题以及按钮的尺寸等，不同的对 象可能有不同的属性类型和属性值，用户可以根据需要对它们赋予各种不同的值。 四、修改代码体验四、修改代码体验（解决三个问题：分清有几个模型架？每个模型架表示的哪个对象的什么事 件？修改的是哪个对象的什么属性？） VB过程的组成 1、观看代码窗口的构成：（双击控件就可添加过程的模型架） 以Command1_Click()过程的模型架为例 Private Sub Command1_Click() Label2.Caption = “我希望能天天有竹子可吃！“ Label2.ForeColor = RGB(244, 12, 56) End Sub 解读： Private：私有过程，表示该过程只能在本窗体文件中被调用，应用程序中的其他窗体或模块 不可调用它。 Sub：过程开始的标志。 Command1_Click()：过程名，由两部分组成，对象名和事件名，两者之间用下划线连接。 End Sub：过程结束的标志。 2、修改： （1）双击“愿望一”按钮，打开代码窗口，修改label1.caption （2）试探修改labela.forecolor=RGB（244，12，56）颜色值。 进入代码窗口的方法 （1）双击当前窗体 （2）单击“工程”窗口的“查看代码”按钮 （3）在菜单栏中选择“视图”菜单中的“代码窗口”命令 1、愿望一愿望一Command1Command1的的ClickClick事件代码事件代码 Private Sub Command1_Click() Label2.Caption = “我希望能天天有竹子可吃！“ Label2.ForeColor = RGB(244, 12, 56) End Sub 2、愿望二愿望二Command2Command2的的ClickClick事件代码事件代码 Private Sub Command2_Click() Label2.Caption = “我希望能安静地生活！“ Label2.ForeColor = RGB(244, 12, 56) End Sub 五、实践创新五、实践创新 用好评价表 六、总结（六、总结（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体 系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 开发VB应用程序的步骤 总结上述几个例题，开发一个VB应用程序有三个步骤： 1、设计用户界面 2、属性设置 3、编写事件过程代码 第2课 自我介绍（七个环节） 一、一、分析问题分析问题（解决两个问题：对程序整体的感知、分析有几个事件） 让学生运行“自我介绍.frm”，运行过程中思考几个问题： 1、在文本框中输入个人信息后，单击“显示”按钮，会在最下面文本框中显示什么内 容？什么字体被选中？ 2、单击另一个字体单选按钮，自我介绍的内容有什么变化？ 二、界面设计二、界面设计（解决三个问题：控件的添加、调整、设置属性） 1、分析界面上有几种控件？分别是什么？ “自我介绍”程序中用到的控件 图标名称数量 2、添加控件（学会添加控件的两种方法） 3、调整布局（学会一次设置多个控件的方法） 4、设置对象属性 （1）、如何设置文本框多行显示(text1.multiline=true) （2）、如何使文本框置空(选中文本框，text1.text=”) （3）、如何使单选按钮选中（optionbutton1.value=true） （4）、如何修改label的字体属性（修改label.font） 设置控件属性： Label1.Caption Label1.Font Text1.Text Text1.Multiline Command1.Caption Option1.Caption Option1.Value 三、编写代码三、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什 么属性？） 1、退出 2、三个optionbutton(text6.font.size=”14”,text6.font=”楷体_GB2312”) 3、续行符“_”的用法 4、字符串运算符“+” 1、显示显示Command1Command1的的ClickClick事件代码事件代码 Private Sub Command1_Click() Option1.SetFocus Text6.Font = “宋体“ Text6.FontSize = “14“ Text6.Text = “姓名：“ + Text1.Text + “；Email：“ + Text2.Text + _ “；爱好：“ + Text3.Text + “；优点：“ + Text4.Text + “；需要改进的地方：“ + Text5.T ext End Sub 2、退出退出Command2Command2的的ClickClick事件代码事件代码 Private Sub Command2_Click() End End Sub 3、Option1Option1的的ClickClick事件代码事件代码 Private Sub Option1_Click() Text6.Font = “宋体“ Text6.FontSize = “14“ Text6.Text = “姓名：“ + Text1.Text + “；Email：“ + Text2.Text + _ “；爱好：“ + Text3.Text + “；优点：“ + Text4.Text + “；需要改进的地方：“ + Text5.T ext End Sub 4、Option2Option2的的ClickClick事件代码事件代码 Private Sub Option2_Click() Text6.Font = “黑体“ Text6.FontSize = “14“ Text6.Text = “姓名：“ + Text1.Text + “；Email：“ + Text2.Text + _ “；爱好：“ + Text3.Text + “；优点：“ + Text4.Text + “；需要改进的地方：“ + Text5.T ext End Sub 5、Option3Option3的的ClickClick事件代码事件代码 Private Sub Option3_Click() Text6.Font = “楷体_gb2312“ Text6.FontSize = “14“ Text6.Text = “姓名：“ + Text1.Text + “；Email：“ + Text2.Text + _ “；爱好：“ + Text3.Text + “；优点：“ + Text4.Text + “；需要改进的地方：“ + Text5.T ext End Sub 四、调试与运行四、调试与运行（解决程序的修正问题） 程序的三种状态：设计、运行、break 五、保存文件五、保存文件 保存窗体文件（*.frm）和保存工程文件(*.vbp) 六、生成可执行文件六、生成可执行文件 保存可执行文件（*.exe）:可执行文件有什么作用 七、实践与创新七、实践与创新 八、总结拓展（八、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知 识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 1、属性设置和编写代码中的问题 2、拓展：多余代码的去除 第3课谜语大擂台（一） 一、引入新课一、引入新课 我们来做一个猜谜游戏，看哪位同学能用最快的时间猜出来。 这个游戏的设计特点让学生总结一下： 三个CommandBotton“谜语”、“答案”、“退 出” 单击事件发生后，程序运行结果怎样？如何制作这一程序呢？ 二、分析问题二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种 属性？如何做？） 程序有三个事件：谜语、答案、退出三个按钮的_Click事件 三个事件改变的控件属性： 谜语：Text1 显示出现谜语的时间 Text2 显示现在时间 Text3 显示耗时 答案：Text2 将出现答案的时间定格 Text3 将从出谜语到显示答案的时间定格 Text4 显示答案 退出：退出程序 分析：Textbox需要几个？ Lable需要几个？ Commandbutton需要几个？还要用到Timer控 件，Image控件。 三、界面设计界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？） 用到的控件和属性设置（对于常用的Label、TextBox、CommandButton，基本的是两项：修改 标题、美化） Label1.Caption Label1.Font Label1.ForeColor Text1.Font Text1.ForeColor Image1.Picture Image1.Stretch Timer1.InterVal Iimer1.Enabled Command1.Caption 四、编写代码四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什 么属性？） 1、谜语谜语Command1Command1的的ClickClick事件代码事件代码 Private Sub Command1_Click() Text1.Text = Time$ Timer1.Enabled = True Label5.Caption = “高山不见一寸土，“ + vbCrLf + “平地不见半亩田，“ + vbCrLf + “江河 湖海没有水，“ + _ vbCrLf + “世界各国在眼前。“ + vbCrLf + vbCrLf + “(打一学习工具)“ End Sub 2、答案答案Command2Command2的的ClickClick事件代码事件代码 Private Sub Command2_Click() Timer1.Enabled = False Text4.Text = “地图“ End Sub 3 3、退出、退出Command3Command3的的ClickClick事件代码事件代码 Private Sub Command3_Click() End Sub 4 4、Timer1Timer1控件的代码控件的代码 Private Sub Timer1_Timer() Text2.Text = CStr(Time$) Text3.Text = CStr(Val(Text3.Text) + 1) + “秒“ End Sub 教师讲授timer1程序控件代码以及在程序中的作用。 教师引导val()、cstr()、timer$的使用方法，vbcrlf常数的作用。 五、修正调试五、修正调试（解决程序的修正问题） 增加一个清除按扭，将使谜语、计时信息都返回到初始态。分组讨论，小组合作完成任务。 六、实践与创新六、实践与创新（大显身手） 设计一个程序，用来显示系统时间。分组讨论，互助合作，完成任务 七、总结拓展（七、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知 识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 1、编写程序过程中用到的控件的属性设置及用法 2、用到的函数val()、cstr()、timer$的使用方法，vbcrlf常数的作用 3、字符串的概念，字符串合并运算。 拓展：程序的缺陷 第课 节约用水算水价 一、导入新课一、导入新课 为了提高节水意识，促进人们形成良好的用水习惯，物价部门对居民用水实行阶梯式水 价：若用水量小于或等于12吨，价格为2.85元/吨；若用水量大于12吨，大于12吨的部分，价 格为：2.852元/吨。现在我们就替物价部门设计一个这样的计算水费的程序。 二、分析问题二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种 属性？如何做？） 分析收取水费问题，画出其流程图。 学生分组讨论画出流程图。 三、界面设计界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？） 1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性： 根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。 设置控件属性： Label1.Caption Text1.Text Text1.Locked Command1.Caption Form1.Caption 四、编写代码四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什 么属性？） 代码编写，调试，运行。 学生参考课本，自主学习探究。 教师引导学生理解If语句的用法，引导学生理解赋值语句，总结VB中常见的数据类型。 教师准备几个If条件语句小程序，让学生去读程序，引导学生加深对If 语句的理解。 1 1、计算、计算Command1Command1的的ClickClick事件代码事件代码 Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) If x = h2 Text2.Text = CStr(i) End Sub 2 2、退出、退出Command2Command2的的ClickClick事件代码事件代码 Private Sub Command2_Click() End End Sub 五、实践与创新五、实践与创新（运用中体验成功，进一步激发兴趣。用所获） 从1连续累加到某个最小的数，使它们的和不小于10000. 六、总结拓展（六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知 识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到循环结构do loop 语句用法。 第8课 我的媒体播放器 一、导入新课一、导入新课（解决一个问题：做什么？） 在计算机上你们用什么软件播放歌曲，用什么软件播放VCD视频？我们利用VB来制作一个 既能播放歌曲又能听歌的播放器。 二、分析问题二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种 属性？如何做？） 教师展示做好的播放器。师生讨论要使用的7个控件。 三、界面设计界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？） 1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性。 四、编写代码四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什 么属性？） 学生自主学习，分组讨论参考课本来完成。完成任务的同学当老师小助手辅导其他同学。 教师引导学生理解Commondialog控件、MMcontrol控件的使用。 1 1、打开、打开Command1Command1的的ClickClick事件代码事件代码 Private Sub Command1_Click() MMControl1.Command = “close“ CommonDialog1.ShowOpen If Option1.Value = True Then MMControl1.DeviceType = “ If Option1.Value = True Then MMControl1.DeviceType = “WaveAudio“ If Option1.Value = True Then MMControl1.DeviceType = “ MMControl1.FileName = CommonDialog1.FileName MMControl1.Command = “open“ MMControl1.hWndDisplay = Picture1.hWnd MMControl1.Command = “play“ End Sub 2 2、退出、退出Command2Command2的的ClickClick事件代码事件代码 Private Sub Command2_Click() End End Sub 3 3、Form1Form1的的DblClickDblClick事件代码事件代码 Private Sub Form_DblClick() MMControl1.Command = “close“ MMControl1.Shareable = True End Sub 4、Form1Form1的加载事件代码的加载事件代码 Private Sub Form_Load() CommonDialog1.Filter = “mp3|*.mp3“ End Sub 5 5、Option1Option1的的ClickClick事件代码事件代码 Private Sub Option1_Click() CommonDialog1.Filter = “mp3|*.mp3“ End Sub 6 6、Option2Option2的的ClickClick事件代码事件代码 Private Sub Option2_Click() CommonDialog1.Filter = “wav|*.wav“ End Sub 7 7、Option1Option1的的ClickClick事件代码事件代码 Private Sub Option3_Click() CommonDialog1.Filter = “mpg|*.mpg“ End Sub 五、实践与创新五、实践与创新（运用中体验成功，进一步激发兴趣。用所获） 利用CommonDialog控件，调出Font设置对话框。并评价。 六、总结拓展（六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知 识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 编写程序过程中用到的控件的属性设置及用法 Commondialog控件、MMcontrol控件、Pictrue控件和Frame控件 一、标签 属性 1、Name，这是每个控件都有的，即设置标签对象的名称。 2、Alignment，用于设置标签中文字显示的对齐方式。0、标签文字左对齐，这是缺省 值；1、标签文字向右对齐；2、标签居中。 3、AutoSize，用于设置标签的外框尺寸是否随标题大小自动改变。True表示标签的尺寸 将随标题的更改而更改。False表示不更改，这是默认值。建议一般情况下都尽量设置为True。 注意：一旦设置了该属性为True，则前面的Alignment属性自动失效。道理相信不用我说 大家也一定会明白。 4、BackColor，上一章已经说过，就是设置背景颜色。 5、BordStyle，用于设置背景颜色是否透明显示。0为以透明方式显示，1是不以透明方式 显示（缺省值）。一般情况下建议设置为0，这样就不会因为别人的电脑设置不同而显示出不 用。 6、BorderStyle，用于设置标签的边框形式，当为0时表示不含边框，这是默认值，1显示 为立体下陷的固定边框。 7、Caption，这是标签的最重要属性了，因为它的作用就是显示要表达的文字，即标题。 8、ForeColor，设置前景色。通过设置这个属性，标签显示才能多姿多彩。 9、Font，设置标签字体。 10、WordWrap，决定标签控件是否扩大以显示标签文字。 二、文本框 属性 1、Name，这是每个控件的基本属性，用来设置文本框对象的名称。 2、Alignment，用于设置文本框中文字显示的对齐方式。0、标签文字左对齐，这是缺省 值；1、标签文字向右对齐；2、标签居中。 3、BackColor，就是设置背景颜色。 4、ForeColor，设置前景色。 5、MultiLine，设置文本框是否允许多行文本，如果设置为True，则允许多行文本输入， False为不允许（默认值）。 一般情况下，多数文本框是应用于单行输入，如输入口令、姓名、简短信息等等，但如果 是大篇文章输入的话，如制作文本编辑器就应该设置为True。 注意：文本框是有大小限制的，如果超过64K的话就会出错。 6、PasswordChar，用于设置替代用户输入的密码字符，通常用于密码输入。一般情况下 多数设置为“*”号，缺省值为空。如果你想让用户输入密码的话，可要记得设置该属性哦。 7、ScrollBars，用于设置文本框是否含有滚动条。共有四个值：0为不含滚动条（默认 值），1为水平滚动条，2为垂直滚动条，3为水平、垂直滚动条都有。一般与MultiLine配合使 用。 8、MaxLength，用于设置文本框中可以容纳的字符数，缺省值为0，表示无限制，如果是 其他整数值，则表示文本框最多可以容纳的字符数。 9、BorderStyle，用于设置文本框的边框形式，默认值为1，表示有边框，0为无边框，这 时跟标签差不多了吧。 10、Text，这是文本框最重要的属性，也就是文本框里面的文本内容。大部分利用文本框 编程的都是利用这个属性来进行编程。 按钮(Command) 属性 1、Name，用来标识按钮的名称。一般建议用Cmd+用途的英文单词来起名，如确定按钮就 起名：CmdOK，这样容易理解，并且也利于自己编程。 2、Caption，标题，主要作用就是给大家一个简短的按钮作用说明。 3、Default，是否将当前按钮设置成窗体中的缺省按钮。如果一旦设置为True，则其他按 钮的Default属性都会自动设置为False。这时候，一旦按回车，则该按钮会被优先触发。 4、Cancel，是否将当前按钮设置成窗体中的取消命令按钮。如果一旦设置为True，则当 程序运行时，按下Esc就会触发该按钮的Click事件。 5、Enabled，设置按钮是否允许触发事件。如果有时候你不想让按钮执行你在Click事件 中添加的代码，你可以将Enabled设置成False就可以啦。 6、BackColor，设置背景颜色。 我想不少新手一定会产生疑问，为什么我设置了背景颜色，按钮仍然是原来的灰色。答案 其实很简单，因为你另外一个属性还