vb趣味程序教案.docx
- 文档编号:5608795
- 上传时间:2022-12-29
- 格式:DOCX
- 页数:28
- 大小:393.54KB
vb趣味程序教案.docx
《vb趣味程序教案.docx》由会员分享,可在线阅读,更多相关《vb趣味程序教案.docx(28页珍藏版)》请在冰豆网上搜索。
vb趣味程序教案
教学进度表
周次
时间
教学内容
3
9月16日
QQ登录窗口的制作——初步认识计算机语言
4
9月23日
VB程序设计的过程
5
9月28日
VB程序的数据与表达式
8、9
10月21日、28日
几何计算(2课时)
10
11月4日
程序的选择结构
12
11月18日
13
11月25日
程序的循环结构
14
12月2日
整人小程序
17
12月23日
计时秒表
18
12月30日
小球来回弹屏幕保护程序
19
1月6日
期末考查
授课时间
2014年9月16日第2周星期2总第1课时
课题
QQ登录窗口的制作——初步认识计算机语言
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
了解计算机语言;
熟悉VB开发环境
了解VB中的对象、属性、事件
学会编写窗体的设计代码,并能运行程序
(二)过程与方法:
通过QQ登陆窗体的制作了解并掌握程序编写的整个过程
(三)情感、态度与价值观:
通过制作学生最熟悉的QQ登录界面,使学生对VB程序设计产生浓厚的兴趣。
教材分析
重点
属性、方法和事件
难点
VB的集成开发环境
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【学习要点】
了解计算机语言;
了解VB语言的特点;
熟悉VB开发环境
【新课讲授】
一、了解计算机语言
各种软件,包括Windows、Word、PowerPoint、各种游戏等都是计算机语言编写出来的。
(演示)如贪吃蛇游戏、健康指标计算器等等。
常见的高级语言
1.BASIC。
入门者首选语言。
指令少,容易上手,易于掌握。
2.PASCAL。
适合科学计算、数据处理,运行编译速度快。
3.C语言。
主要适用于应用软件的开发,计算机专业人员的必修课。
4.JAVA、.Net、PHP、C#、HTML……
二、VB语言介绍
VB是VisualBasic的简称,它对学习者的要求不高,但本身效率高、功能强大、实用性强。
主要有如下特点:
面向对象、事件驱动、软件的集成式开发、结构化。
面向对象和面向过程的区别:
例如五子棋,面向过程的设计思路就是首先分析问题的步骤:
1、开始游戏,
2、黑子先走,
3、绘制画面,
4、判断输赢,
5、轮到白子,
6、绘制画面,
7、判断输赢,
8、返回步骤2,
9、输出最后结果。
把上面每个步骤用分别的函数来实现,问题就解决了。
而面向对象的设计则是从另外的思路来解决问题。
整个五子棋可以分为:
1、黑白双方,这两方的行为是一模一样的,
2、棋盘系统,负责绘制画面,
3、规则系统,负责判定诸如犯规、输赢等。
第一类对象(玩家对象)负责接受用户输入,并告知第二类对象(棋盘对象)棋子布局的变化,棋盘对象接收到了棋子的变化就要负责在屏幕上面显示出这种变化,同时利用第三类对象(规则系统)来对棋局进行判定。
可以明显地看出,面向对象是以功能来划分问题,而不是步骤。
三、VB的开发环境
四、制作QQ登录界面
【学生练习】
完成QQ登录界面的制作,并保存工程提交。
教学
后记
授课时间
2014年9月23日第4周星期2总第2课时
课题
VB程序设计的过程
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
了解计算机语言;
熟悉VB开发环境
了解VB中的对象、属性、事件
学会编写窗体的设计代码,并能运行程序
(二)过程与方法:
通过QQ登陆窗体的制作了解并掌握程序编写的整个过程
(三)情感、态度与价值观:
通过制作学生最熟悉的QQ登录界面,使学生对VB程序设计产生浓厚的兴趣。
教材分析
重点
属性、方法和事件
难点
VB的集成开发环境
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】
【新课讲授】
对象
名称
属性、方法或事件
(属性、方法或事件)作用说明
登陆窗体
Form1
Height属性、Width属性
窗体的高度和宽度
登陆窗体
Form1
Hide方法
隐藏登录窗体
图片
Image1
Height属性、Width属性
图片的高度和宽度
图片
Image2
Height属性、Width属性
图片的高度和宽度
图片
Image1
Picture属性
显示的图片
图片
Image2
Picture属性
显示的图片
文本框(输入帐号)
Text1
Text属性
Text属性记录输入的值(账号)
文本框(输入密码)
Text2
PasswordChar属性
输入密码时显示的字符
按钮(登陆)
Command1
Click事件
点击按钮执行登陆事件
按钮(退出)
Command2
Click事件
点击按钮执行退出事件
一、属性
对象的属性:
指对象(窗体、控件)的大小、颜色、方位等一系列外观或内部构造的特征
1.Height是高度,Width是宽度
VB使用的是twip坐标系统,它与像素(pixel)不同,它们之间的转换关系为15twip=1pixel。
已知“qq1.jpg”的高度为139pixel,宽度为379pixel,则将之改为twip单位,即height属性应该为__________twip,width属性应该为__________twip;
已知“qq2.jpg”的高度为98pixel,宽度为100pixel,则将之改为twip单位,即height属性应该为__________twip,width属性应该为__________twip;
2.Picture属性
将Image1的Picture属性设置为qq1.jpg,将Image2的Picture属性设置为qq2.jpg.
3.PasswordChar属性
参考P59一点通,将密码Text2控件的PasswordChar属性改成“*”
二、事件
对象的事件:
指对象(窗体、控件)对外部条件的响应。
VB是由事件触发(事件驱动),例如单击某个按钮(Click事件),文本框内容变更(Change事件)
1.Click事件
参考P60。
1单击“退出”按钮触发的事件为结束本程序。
2单击“登录”按钮触发的事件为弹出一个消息框并且将本窗体隐藏;
三、方法
对象的方法:
指对象(窗体、控件)所进行的操作。
例如窗体的隐藏、刷新;图像对象的移动等。
1.Hide方法
单击“登录”按钮后,将QQ登录窗体隐藏,即form1.Hide保存工程到自己的文件夹内,保存窗体名为“login.frm”,保存工程文件为“login.vbp”,生成exe文件,文件名为“login.exe”
【学生练习】
教
学
后
记
授课时间
2014年9月28日第5周星期2总第3课时
课题
VB程序的数据与表达式
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
掌握VB中常用的数据类型
掌握VB中常量和变量的说明方法
(二)过程与方法:
通过分数计算器的制作,体会使用VB编写程序的整个过程
(三)情感、态度与价值观:
培养勇于实践、勤于思考和善于总结的科学探索精神与严谨的治学态度。
教材分析
重点
常见的数据类型;常量、变量说明方法
难点
常量和变量的说明方法
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】展示本节课任务:
完成分数计算器的制作。
【新课讲授】
一、基本数据类型
1、整型(integer)
不带小数点的整数;整型的标识符为integer,取值范围为-32768~32767;如范例中的语文、数学、英语、总分采用整型
2、长整型(long)
与integer一样存取整数,但取值范围较大。
取值范围为-2147483648~2147483647
3、实数型(single)
可存储小数或者整数。
如范例中的平均分可能会取小数,所以用实数型表示。
4、字符串型(string)
由字母、数字字符构成的序列,必须用双引号括起来。
例如“张三”、“zhangsan”、“123”。
注意:
“123”和123是有区别的
二、常量
在程序运行过程中,取值不变的量称为常量。
常量定义部分的一般形式为:
Const 常量名as类型=表达式
例如下列的常量说明语句,哪个是正确的?
A.Constxasinteger
B.Constxasinteger=3.14
C.Constxassingle=3.14
D.Constnameasstring=“张三”
E.Constnameasstring=‘张三’
三、变量
在程序运行过程中,取值可以改变的量称为变量。
变量定义部分的一般形式为:
Dim 变量名as类型
例如:
Dimywasinteger
Dimsxasinteger
Dimyyasinteger
也可以放在同一行,如上述语句可以写成:
Dimywasinteger,sxasinteger,yyasinteger是正确的
Dimywasinteger,sxasinteger,yyasinteger,pjfassingle就是错误的
四、分数计算器的制作
【学生练习】完成分数计算器的制作,并保存工程提交。
教
学
后
记
本范例与学生实际生活相关,方便学生理解,学习效果不错。
学生容易出错的地方:
控件的名称写错,导致编译时“要求对象”
授课时间
2014年10月21、28日第8、9周星期2总第4、5课时
课题
几何计算
课型
新授课
教学时数
2课时
教学目标
(一)知识与技能:
了解顺序结构的特点
掌握VB语言中的赋值语句;
(二)过程与方法:
通过完成自动饮料机的制作,掌握VB的赋值和输出语句,并尝试解决实际问题。
(三)情感、态度与价值观:
培养学生发现问题、思考问题和解决问题的习惯;
培养学生初步的程序设计思维。
教材分析
重点
TextBox、Image、Label的使用;赋值语句
难点
对顺序结构的理解和运用;Label和TextBox的使用
教学方法
自学法、练习法、任务驱动法
教学情景设计
【新课引入】展示本节课任务:
完成分数计算器的制作。
【学生练习】
第一个窗体中:
长方形计算按钮代码提示:
长方形面积计算代码提示:
教
学
后
记
授课时间
2014年11月4日第10周星期2总第6、7课时
课题
程序的选择结构
课型
新授课
教学时数
2课时
教学目标
(一)知识与技能:
认识选择结构的特点
掌握条件语句
学会使用条件语句解决实际问题
(二)过程与方法:
在老师的指导下,通过QQ登录界面的制作和完善体验自主学习并获得成功的喜悦。
(三)情感、态度与价值观:
培养学生的逻辑思维能力、促进学生对计算机解决问题方法的理解;
在自主探究解决问题的过程中,让学生体验学习的乐趣。
教材分析
重点
巩固选择结构的格式、执行过程及其功能。
难点
巩固选择结构的格式、执行过程及其功能
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】展示本节课任务:
完成QQ登录界面的注册、登录。
【新课讲授】
一、注册窗口的完成
1.使用user记录昵称,使用pass记录密码,即Publicuser,passAsString
2.“退出”按钮代码为End;
3.“注册”按钮实现记录用户输入的账号和密码,并显示登录窗体,隐藏注册窗体;代码为:
user=Text1.Text
pass=Text2.Text
form2.Show
form1.Hide
二、登录窗体的完成
1.如果用户在登录窗体输入的账号和密码与注册窗体输入的一致,则显示登录后的窗口,否则提示“账号或密码错误”。
2.退出”按钮代码为End;
3.“登录”按钮代码为:
Ifuser=Text3.TextAndpass=Text4.TextThen
form3.Show
form2.Hide
Else
MsgBox("帐号或密码错误")
EndIf
【学生练习】完成QQ注册、登录界面的制作,并保存工程提交。
【扩展练习】Option控件的使用。
“返回重选”按钮代码为:
Form1.Show
Form3.Hide
“返回重选”按钮代码为:
Form1.Show
Form2.Hide
“提交”按钮代码为:
IfOption1.Value=TrueThen
Form1.Hide
Form2.Show
Else
Form1.Hide
Form3.Show
EndIf
教
学
后
记
学生兴趣盎然,课堂气氛活跃,掌握情况很好。
授课时间
2014年11月25日第13周星期2总第8课时
课题
程序的循环结构
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
认识循环结构的特点
掌握For循环语句
学会使用For循环语句解决实际问题
(二)过程与方法:
初步学会使用For循环语句解决简单实际问题。
(三)情感、态度与价值观:
培养学生研究性学习能力、逻辑思维能力以及温故知新的学习兴趣和创新精神。
教材分析
重点
掌握For/Next循环语句的格式和执行步骤
难点
For/Next循环语句的格式和执行步骤
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】
师:
5、4、3、2、1,我们现在开始上课。
刚才我们看到一个倒计时的程序,在日常生活中我们经常会遇到这种情况,例如十运会的倒计时牌;十字路口的红绿灯;火箭发射最后的数秒。
我们如何在计算机中用VB来实现以上的功能呢?
【复习回顾】
师:
jishiText显示的内容是5,写出相应的语句?
生:
jishi.Text=5
添加Delay
(1)
【新知学习】
一、猜测各语句的功能
程序
功能
DimiAsInteger
定义整型变量i
Fori=5To0Step-1
控制变量5-0变化
Jishi.Text=i
显示变量i的值(5、4、3、2、1、0)
Delay
(1)
延时1秒
Nexti
二、For语句的格式
For<循环变量>=<初值>To<终值>[Step<步长>]
<语句>
Next<循环变量>
三、
For语句的执行过程
【学生练习】
1.在屏幕中显示5、4、3、2、1、0。
做好后生成工程1.exe
2.在屏幕中显示12、22、32、42、52。
做好后生成工程5.exe
【新课讲授】
【新知拓展】暴力破解密码
算法分析:
从0到999999依次尝试,如果某个数字和密码相等,则输出、退出循环;否则继续尝试下一个数。
密码变量为pass
循环变量的初值为______?
循环变量的终值为______?
步长为__________?
循环语句为________________?
如果破解成功,循环变量的值为_________________?
如果破解不成功,循环变量的值为_______________?
Fori=_____to_______step_____
If________________then
jieguo.text=________
exitfor
end__________
Next__________
Ifi=________________then
jieguo.text=“破解失败”
Endif
教
学
后
记
授课时间
2014年12月2日第14周星期2总第9课时
课题
整人小程序
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
认识循环结构的特点
掌握For循环语句
学会使用For循环语句解决实际问题
(二)过程与方法:
初步学会使用For循环语句解决简单实际问题。
(三)情感、态度与价值观:
培养学生研究性学习能力、逻辑思维能力以及温故知新的学习兴趣和创新精神。
教材分析
重点
掌握For/Next循环语句的格式和执行步骤
难点
For/Next循环语句的格式和执行步骤
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】
展示几个整人小程序:
鼠标狂按的“数羊”、定时关机、新建无数文件的三个程序
【新知学习】
一、数羊
程序中的10可以更改
二、定时关机
程序中的60即60秒
三、新建文件
【学生练习】
教
学
后
记
授课时间
2014年12月23日第17周星期2总第10课时
课题
用定时器设计的工程——计时秒表
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
掌握VB内部函数Timer的用法
掌握设置shape控件属性的方法
(二)过程与方法:
学会使用Timer制作一个功能齐全的计时秒表
(三)情感、态度与价值观:
培养学生研究性学习能力、逻辑思维能力以及温故知新的学习兴趣和创新精神。
教材分析
重点
Timer的用法
难点
Timer的用法
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】
本节课我们将利用VB内部函数Timer制作一个计时秒表,效果如下图:
【新课讲授】
“计时秒表”是利用VB内部函数Timer,该函数报告从当天零点到现时的总秒数。
如果两次启用此函数,就可以得到这两次启用时的时间差,也就起到了计时的作用。
“计时秒表”程序采用两种计时方式,如果计时的时间间隔较短,可以用鼠标按键放下时开始计时,鼠标键释放时结束计时的方式,程序中用Command_MouseDown()和Command_MouseUp()两事件来处理计时的;如果计时的时间间隔较长,则可以分别按“计时开始”和“计时结束”两命令按钮来计时,这两个命令按钮都是响应鼠标单击事件的Command_Click()。
程序的表达式:
Int((Timer-start)*1000)/1000
是计算“计时秒表”结束时与启动时的时间差,并精确到1/1000秒。
本程序使用了一个Shape1控件,它用Timer1定时器每隔0.5秒驱动一次,以显示计时器的工作状态,在计时还是不在计时。
代码讲解:
Dimstart,start1'变量说明语句
DimaAsInteger
PrivateSubCommand1_Click()
Label1.Caption=""'清空Label1
EndSub
PrivateSubCommand2_Click()
start=Timer'计时开始,start取当前时间
Shape1.Visible=True'计时开始,shape1显示
EndSub
PrivateSubCommand3_Click()
Label1.Caption=Int((Timer-start)*1000)/1000&"秒"'计时结束,label1显示当前时间与start的差值,并精确到小数点后3位
Shape1.Visible=False'计时结束,shape1不可见
EndSub
PrivateSubCommand4_Click()
End'退出程序
EndSub
PrivateSubCommand5_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
start=Timer'取鼠标按下时的时间
EndSub
PrivateSubCommand5_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1.Caption=Int((Timer-start)*1000)/1000&"秒"'取鼠标释放时的时间与按下时间的差值,并精确到小数点后3位
EndSub
PrivateSubForm_Load()
Shape1.Visible=False'开始时shape1不可见
EndSub
PrivateSubTimer1_Timer()
a=a+1'a为计数器
IfaMod2=0Then'若计数器为偶数,则让shape1显示红色,否则显示绿色
Shape1.BackColor=RGB(255,0,0)
Else
Shape1.BackColor=RGB(0,255,0)
EndIf
EndSub
【学生练习】
教
学
后
记
授课时间
2014年12月30日第18周星期2总第11课时
课题
小球来回弹屏幕保护程序
课型
新授课
教学时数
1课时
教学目标
(一)知识与技能:
掌握Left\top\height\width等属性的用法
掌握制作屏幕保护程序的基本思想:
调整borderstyle、windowstate
(二)过程与方法:
学会使用vb制作一个小球来回弹的屏幕保护程序
(三)情感、态度与价值观:
培养学生研究性学习能力、逻辑思维能力以及温故知新的学习兴趣和创新精神。
教材分析
重点
Timer的用法
难点
Timer的用法
教学方法
讲授法、演示法、练习法、任务驱动法
教学情景设计
【新课引入】
本节课我们将利用VB制作一个小球来回弹的屏幕保护程序,效果如下图:
【新课讲授】
1.将窗体的Borderstyle属性(边框样式)设置为0-none(无边框)
2.将窗体的windowstate(窗口运行时的状态)属性设置为2-maximized(最大化)
3.将窗体的backcolor(背景颜色)属性设置为自己喜欢的颜色。
4.添加1个timer控件,设置timer1的interval属性为10
5.添加一个shape,设置它的fillcolor(填充颜色)、fillstyle为0-solid,shape属性为3-circle
6.代码提示:
请同学们思考:
如何制作小球上下弹的屏保?
小组合作完成。
提示:
请设置两个方向变量dimfx,fx2
Fx控制左右移动的球,fx2控制上下移动的球
【学生练习】
教
学
后
记
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 趣味 程序 教案
![提示](https://static.bdocx.com/images/bang_tan.gif)