vb趣味程序教案.docx

《vb趣味程序教案.docx》由会员分享，可在线阅读，更多相关《vb趣味程序教案.docx（19页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、教学进度表周次时间教学内容39月16日QQ登录窗口的制作初步相识计算机语言49月23日VB程序设计的过程59月28日VB程序的数据与表达式8、910月21日、28日几何计算（2课时）1011月4日 程序的选择构造1211月18日1311月25日程序的循环构造1412月2日整人小程序1712月23日计时秒表1812月30日小球来回弹屏幕爱护程序191月6日期末考察授课时间2014年9月16日 第2周 星期2 总第1课时课题QQ登录窗口的制作初步相识计算机语言课型新授课教学时数1课时教 学 目 标（一）学问与技能：理解计算机语言；熟识VB开发环境理解VB中的对象、属性、事务学会编写窗体的设计代码，

2、并能运行程序（二）过程与方法：通过QQ登陆窗体的制作理解并驾驭程序编写的整个过程（三）情感、看法与价值观： 通过制作学生最熟识的QQ登录界面，使学生对VB程序设计产生深厚的爱好。教材分析重点属性、方法和事务难点VB的集成开发环境教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【学习要点】 理解计算机语言；理解VB语言的特点；熟识VB开发环境【新课讲授】一、 理解计算机语言各种软件，包括Windows、Word、PowerPoint、各种嬉戏等都是计算机语言编写出来的。（演示）如贪吃蛇嬉戏、安康指标计算器等等。 常见的高级语言1. BASIC。入门者首选语言。指令少，简洁上手，易于驾驭。2

3、. PASCAL。合适科学计算、数据处理，运行编译速度快。3. C语言。主要适用于应用软件的开发，计算机专业人员的必修课。4. JAVA、.Net、PHP、C#、HTML二、 VB语言介绍VB是Visual Basic的简称，它对学习者的要求不高，但本身效率高、功能强大、好用性强。主要有如下特点：面对对象、事务驱动、软件的集成式开发、构造化。面对对象和面对过程的区分：例如五子棋，面对过程的设计思路就是首先分析问题的步骤：1、开场嬉戏，2、黑子先走，3、绘制画面，4、推断输赢，5、轮到白子，6、绘制画面，7、推断输赢，8、返回步骤2，9、输出最终结果。 把上面每个步骤用分别的函数来实现，问题就解

4、决了。 而面对对象的设计则是从另外的思路来解决问题。整个五子棋可以分为：1、黑白双方，这两方的行为是一模一样的，2、棋盘系统，负责绘制画面，3、规则系统，负责断定诸如犯规、输赢等。第一类对象（玩家对象）负责承受用户输入，并告知第二类对象（棋盘对象）棋子布局的变更，棋盘对象接收到了棋子的变更就要负责在屏幕上面显示出这种变更，同时利用第三类对象（规则系统）来对棋局进展断定。 可以明显地看出，面对对象是以功能来划分问题，而不是步骤。三、 VB的开发环境四、 制作QQ登录界面【学生练习】完成QQ登录界面的制作，并保存工程提交。教学后记授课时间2014年9月23日 第 4周 星期2 总第2课时课题VB程

5、序设计的过程课型新授课教学时数1课时教 学 目 标（一）学问与技能：理解计算机语言；熟识VB开发环境理解VB中的对象、属性、事务学会编写窗体的设计代码，并能运行程序（二）过程与方法：通过QQ登陆窗体的制作理解并驾驭程序编写的整个过程（三）情感、看法与价值观： 通过制作学生最熟识的QQ登录界面，使学生对VB程序设计产生深厚的爱好。教材分析重点属性、方法和事务难点VB的集成开发环境教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【新课引入】【新课讲授】对象名称属性、方法或事务(属性、方法或事务)作用说明登陆窗体Form1Height属性、Width属性窗体的高度和宽度登陆窗体Form1Hid

6、e方法隐藏登录窗体图片Image1Height属性、Width属性图片的高度和宽度图片Image2Height属性、Width属性图片的高度和宽度图片Image1Picture属性显示的图片图片Image2Picture属性显示的图片文本框(输入帐号)Text1Text属性Text属性记录输入的值(账号)文本框(输入密码)Text2PasswordChar属性输入密码时显示的字符按钮(登陆)Command1Click事务点击按钮执行登陆事务按钮(退出)Command2Click事务点击按钮执行退出事务一、 属性对象的属性:指对象(窗体、控件）的大小、颜色、方位等一系列外观或内部构造的特征1.

7、Height是高度，Width是宽度VB运用的是twip坐标系统，它与像素（pixel）不同，它们之间的转换关系为15twip=1pixel。已知“qq1.jpg”的高度为139pixel，宽度为379 pixel，则将之改为twip单位，即height属性应当为_twip，width属性应当为_twip;已知“qq2.jpg”的高度为98 pixel，宽度为100 pixel，则将之改为twip单位，即height属性应当为_twip，width属性应当为_twip;2. Picture属性将Image1的Picture属性设置为qq1.jpg，将Image2的Picture属性设置为qq2

8、.jpg.3. PasswordChar属性参考P59一点通，将密码Text2控件的PasswordChar属性改成“*”二、 事务对象的事务:指对象(窗体、控件）对外部条件的响应。VB是由事务触发（事务驱动）,例如单击某个按钮（Click事务），文本框内容变更（Change事务)1. Click事务参考P60。 单击“退出”按钮触发的事务为完毕本程序。 单击“登录”按钮触发的事务为弹出一个消息框并且将本窗体隐藏；三、 方法对象的方法：指对象(窗体、控件）所进展的操作。例如窗体的隐藏、刷新；图像对象的挪动等。1. Hide方法单击“登录”按钮后，将QQ登录窗体隐藏，即form1.Hide保存工

9、程到自己的文件夹内，保存窗体名为“login.frm”，保存工程文件为“login.vbp”，生成exe文件，文件名为“login.exe”【学生练习】教学后记授课时间2014年9月28日 第5周 星期2 总第3课时课题VB程序的数据与表达式课型新授课教学时数1课时教 学 目 标（一）学问与技能：驾驭VB中常用的数据类型驾驭VB中常量和变量的说明方法（二）过程与方法：通过分数计算器的制作，体会运用VB编写程序的整个过程（三）情感、看法与价值观： 培育勇于理论、勤于思索和擅长总结的科学探究精神与严谨的治学看法。教材分析重点常见的数据类型；常量、变量说明方法难点常量和变量的说明方法教学方法讲授法、

10、演示法、练习法、任务驱动法教学情景设计【新课引入】展示本节课任务：完成分数计算器的制作。【新课讲授】一、 根本数据类型1、整型(integer) 不带小数点的整数；整型的标识符为integer，取值范围为-3276832767；如范例中的语文、数学、英语、总分采纳整型2、长整型（long）与integer一样存取整数，但取值范围较大。取值范围为-214748364821474836473、实数型(single)可存储小数或者整数。如范例中的平均分可能会取小数，所以用实数型表示。4、字符串型（string）由字母、数字字符构成的序列，必需用双引号括起来。例如“张三”、“zhangsan”、“12

11、3”。留意：“123”和123是有区分的二、 常量在程序运行过程中，取值不变的量称为常量。常量定义局部的一般形式为：Const常量名 as 类型=表达式例如下列的常量说明语句，哪个是正确的A. Const x as integerB. Const x as integer=3.14C. Const x as single=3.14D. Const name as string=“张三”E. Const name as string=张三三、 变量在程序运行过程中，取值可以变更的量称为变量。变量定义局部的一般形式为：Dim变量名 as 类型例如：Dim yw as integer Dim sx

12、as integer Dim yy as integer也可以放在同一行，如上述语句可以写成：Dim yw as integer, sx as integer, yy as integer是正确的Dim yw as integer, sx as integer, yy as integer,pjf as single就是错误的四、 分数计算器的制作【学生练习】完成分数计算器的制作，并保存工程提交。教学后记本范例与学生实际生活相关，便利学生理解，学习效果不错。学生简洁出错的地方：控件的名称写错，导致编译时“要求对象”授课时间2014年10月21、28日 第8、9周 星期2 总第4、5课时课题几何

13、计算课型新授课教学时数2课时教 学 目 标（一）学问与技能：理解依次构造的特点驾驭VB语言中的赋值语句；（二）过程与方法：通过完成自动饮料机的制作，驾驭VB的赋值和输出语句，并尝试解决实际问题。（三）情感、看法与价值观：培育学生发觉问题、思索问题和解决问题的习惯；培育学生初步的程序设计思维。教材分析重点TextBox、Image、Label的运用；赋值语句难点对依次构造的理解和运用；Label和TextBox的运用教学方法自学法、练习法、任务驱动法教学情景设计【新课引入】展示本节课任务：完成分数计算器的制作。【学生练习】第一个窗体中：长方形计算按钮代码提示：长方形面积计算代码提示：教学后记授课

14、时间2014年11月4日 第10周 星期2 总第6、7课时课题程序的选择构造课型新授课教学时数2课时教 学 目 标（一）学问与技能：相识选择构造的特点驾驭条件语句学会运用条件语句解决实际问题（二）过程与方法：在教师的指导下，通过QQ登录界面的制作和完善体验自主学习并获得胜利的喜悦。（三）情感、看法与价值观：培育学生的逻辑思维实力、促进学生对计算机解决问题方法的理解；在自主探究解决问题的过程中，让学生体验学习的乐趣。教材分析重点稳固选择构造的格式、执行过程及其功能。难点稳固选择构造的格式、执行过程及其功能教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【新课引入】展示本节课任务：完成QQ登

15、录界面的注册、登录。 【新课讲授】一、 注册窗口的完成1. 运用user记录昵称，运用pass记录密码，即Public user, pass As String2. “退出”按钮代码为End；3. “注册”按钮实现记录用户输入的账号和密码，并显示登录窗体，隐藏注册窗体；代码为：user = Text1.Textpass = Text2.Textform2.Showform1.Hide二、 登录窗体的完成1. 假如用户在登录窗体输入的账号和密码与注册窗体输入的一样，则显示登录后的窗口，否则提示“账号或密码错误”。2. 退出”按钮代码为End；3. “登录”按钮代码为：If user = Text

16、3.Text And pass = Text4.Text Then form3.Show form2.HideElse MsgBox (帐号或密码错误)End If【学生练习】完成QQ注册、登录界面的制作，并保存工程提交。【扩展练习】Option控件的运用。“返回重选”按钮代码为：Form1.ShowForm3.Hide“返回重选”按钮代码为：Form1.ShowForm2.Hide“提交”按钮代码为：If Option1.Value = True ThenForm1.HideForm2.ShowElseForm1.HideForm3.ShowEnd If教学后记学生爱好盎然，课堂气氛活泼，驾

17、驭状况很好。授课时间2014年11月25日 第13周 星期2 总第8课时课题程序的循环构造课型新授课教学时数1课时教 学 目 标（一）学问与技能：相识循环构造的特点驾驭For循环语句学会运用For循环语句解决实际问题（二）过程与方法：初步学会运用For循环语句解决简洁实际问题。（三）情感、看法与价值观：培育学生探讨性学习实力、逻辑思维实力以及温故知新的学习爱好和创新精神。教材分析重点驾驭For/Next循环语句的格式和执行步骤难点For/Next循环语句的格式和执行步骤教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【新课引入】师：5、4、3、2、1，我们如今开场上课。刚刚我们看到一个倒

18、计时的程序，在日常生活中我们常常会遇到这种状况，例如十运会的倒计时牌；十字路口的红绿灯；火箭放射最终的数秒。我们如何在计算机中用VB来实现以上的功能呢？【复习回忆】师：jishi Text显示的内容是5，写出相应的语句？ 生：jishi.Text=5 添加Delay(1)【新知学习】一、 揣测各语句的功能程序功能Dim i As Integer定义整型变量iFor i = 5 To 0 Step -1限制变量5-0变更Jishi.Text = i显示变量i的值（5、4、3、2、1、0）Delay (1)延时1秒Next i二、 For语句的格式For = To Step Next 三、 For

19、语句的执行过程 【学生练习】1. 在屏幕中显示5、4、3、2、1、0。做好后生成工程1.exe2. 在屏幕中显示12、22、32、42、52 。做好后生成工程5.exe【新课讲授】【新知拓展】暴力破解密码算法分析：从0到999999依次尝试，假如某个数字和密码相等，则输出、退出循环；否则接着尝试下一个数。密码变量为pass循环变量的初值为_ 循环变量的终值为_步长为_？循环语句为_假如破解胜利，循环变量的值为_？假如破解不胜利，循环变量的值为_？For i=_ to _ step _ If _ then jieguo.text=_ exit for end _Next _ If i=_ the

20、n jieguo.text=“破解失败”End if教学后记授课时间2014年12月2日 第14周 星期2 总第9课时课题整人小程序课型新授课教学时数1课时教 学 目 标（一）学问与技能：相识循环构造的特点驾驭For循环语句学会运用For循环语句解决实际问题（二）过程与方法：初步学会运用For循环语句解决简洁实际问题。（三）情感、看法与价值观：培育学生探讨性学习实力、逻辑思维实力以及温故知新的学习爱好和创新精神。教材分析重点驾驭For/Next循环语句的格式和执行步骤难点For/Next循环语句的格式和执行步骤教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【新课引入】展示几个整人小程序

21、：鼠标狂按的“数羊”、定时关机、新建多数文件的三个程序【新知学习】一、 数羊程序中的10可以更改二、 定时关机程序中的60即60秒三、 新建文件【学生练习】教学后记授课时间2014年12月23日 第17 周 星期2 总第10课时课题用定时器设计的工程计时秒表课型新授课教学时数1课时教 学 目 标（一）学问与技能：驾驭VB内部函数Timer的用法驾驭设置shape控件属性的方法（二）过程与方法：学会运用Timer制作一个功能齐全的计时秒表（三）情感、看法与价值观：培育学生探讨性学习实力、逻辑思维实力以及温故知新的学习爱好和创新精神。教材分析重点Timer的用法难点Timer的用法教学方法讲授法、

22、演示法、练习法、任务驱动法教学情景设计【新课引入】本节课我们将利用VB内部函数Timer制作一个计时秒表，效果如下图：【新课讲授】“计时秒表”是利用VB内部函数Timer，该函数报告从当天零点到现时的总秒数。假如两次启用此函数，就可以得到这两次启用时的时间差，也就起到了计时的作用。“计时秒表”程序采纳两种计时方式，假如计时的时间间隔较短，可以用鼠标按键放下时开场计时，鼠标键释放时完毕计时的方式，程序中用Command_MouseDown()和Command_MouseUp()两事务来处理计时的；假如计时的时间间隔较长，则可以分别按“计时开场”和“计时完毕”两吩咐按钮来计时，这两个吩咐按钮都是响

23、应鼠标单击事务的Command_Click()。程序的表达式：Int(Timer-start)*1000)/1000是计算“计时秒表”完毕时与启动时的时间差，并准确到1/1000秒。 本程序运用了一个Shape1控件，它用Timer1定时器每隔0.5秒驱动一次，以显示计时器的工作状态，在计时还是不在计时。代码讲解：Dim start, start1 变量说明语句Dim a As IntegerPrivate Sub Command1_Click()Label1.Caption = 清空Label1End SubPrivate Sub Command2_Click()start = Timer

24、计时开场，start取当前时间Shape1.Visible = True 计时开场，shape1显示End SubPrivate Sub Command3_Click()Label1.Caption = Int(Timer - start) * 1000) / 1000 & 秒 计时完毕，label1显示当前时间与start的差值，并准确到小数点后3位Shape1.Visible = False 计时完毕，shape1不行见End SubPrivate Sub Command4_Click()End 退出程序End SubPrivate Sub Command5_MouseDown(Butto

25、n As Integer, Shift As Integer, X As Single, Y As Single)start = Timer 取鼠标按下时的时间End SubPrivate Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.Caption = Int(Timer - start) * 1000) / 1000 & 秒 取鼠标释放时的时间与按下时间的差值，并准确到小数点后3位End SubPrivate Sub Form_Load()Shape1.Vi

26、sible = False 开场时shape1不行见End SubPrivate Sub Timer1_Timer()a = a + 1 a为计数器If a Mod 2 = 0 Then 若计数器为偶数，则让shape1显示红色，否则显示绿色 Shape1.BackColor = RGB(255, 0, 0)Else Shape1.BackColor = RGB(0, 255, 0)End IfEnd Sub【学生练习】教学后记授课时间2014年12月30日 第18 周 星期2 总第11课时课题小球来回弹屏幕爱护程序课型新授课教学时数1课时教 学 目 标（一）学问与技能：驾驭Lefttophe

27、ightwidth等属性的用法驾驭制作屏幕爱护程序的根本思想：调整borderstyle、windowstate（二）过程与方法：学会运用vb制作一个小球来回弹的屏幕爱护程序（三）情感、看法与价值观：培育学生探讨性学习实力、逻辑思维实力以及温故知新的学习爱好和创新精神。教材分析重点Timer的用法难点Timer的用法教学方法讲授法、演示法、练习法、任务驱动法教学情景设计【新课引入】本节课我们将利用VB制作一个小球来回弹的屏幕爱护程序，效果如下图：【新课讲授】 1. 将窗体的Borderstyle属性（边框款式）设置为0-none（无边框）2. 将窗体的windowstate（窗口运行时的状态）属性设置为2-maximized（最大化）3. 将窗体的backcolor（背景颜色）属性设置为自己喜爱的颜色。4. 添加1个timer控件，设置timer1的interval属性为105. 添加一个shape，设置它的fillcolor（填充颜色）、fillstyle 为0-solid，shape属性为3-circle6. 代码提示：请同学们思索：如何制作小球上下弹的屏保？小组合作完成。提示：请设置两个方向变量dim fx,fx2Fx限制左右挪动的球，fx2限制上下挪动的球【学生练习】教学后记