第十三课-小球跳来跳去--vb综合应用练习

第九课 小球跳来跳去 vb 综合应用练习 教学班级 八年级 教学班级 八年级 教学时间 教学时间 2014 年年 5 月月 日日 一 一 教学教学目标目标 一一 知识与技能知识与技能 1 利用所学的知识制作小球跳来跳去程序 2 通过设计小球跳来跳去程序 培养学生自主学习 归纳总结和编程能力 二 过程与方法 过程与方法 激励学生融入自己的思想去创作 感受运用信息技术创造作品的乐趣 三 情感态度与价值观 三 情感态度与价值观 培养学生自主学习 团结协作 归纳总结和编程能力 形成和保持对信息 技术的求知欲 养成积极主动地学习态度 二 教学重点与难点二 教学重点与难点 1 教学重点 掌握本课基本结构 2 教学难点 培养学生利用计算机的反馈作用进行探究学习的能力 三 教学过程三 教学过程 第一课时第一课时 界面设计界面设计 FORM1 窗体设计 这个程序将用到多窗体 即点击 关于 按钮将弹出版权信息窗体 修改修改 Form1 窗体控件属性值 窗体控件属性值 P84表 Timer 控件 Image 控件 pictureBox 控 件 Form2 窗体窗体设计设计 Form2 窗体用来显示该软件的信息 点击 form1 窗体上的 关于 按钮 即会弹出该窗体 Form2 窗体的界面上也可以添加其他一些控件如 Image 等 以使界面更加美观 Form2 窗体控件属性值 窗体控件属性值 P85表 表 定义变量定义变量 小球在移动过程中 需要有一个横坐标和纵坐标的位移量 所以 我们定 义 X 和 Y 两个整型变量在通用代码区 开始按钮代码开始按钮代码 当点击 开始 按钮后 定时器开始工作 而球每次移动的位移量将根据 Combol 当前显示的文本来决定 第二课时第二课时 停止按钮代码停止按钮代码 当按下 停止 按钮后 定时器将停止工作 关于按钮代码关于按钮代码 关于按钮实现的功能很简单 仅仅是在屏幕上显示 Form2 选项按钮代码选项按钮代码 选项按钮用于选择图片框的背景色 定时器代码定时器代码 定时器代码是最复杂的 因为它要实时显示当前时间 当前日期 小球 坐标 还要移动小球的位置 运行调试运行调试 1 点击 开始 按钮 启动小球开始运动 2 点击 停止 按钮使小球停下来 3 改变 Combol 的选项 再点击 开始 按钮 观察小球运动速度的变化 4 点击各选项按钮以改变图片框的背景颜色 5 点击 退出 按钮 关闭窗口 退出程序 开始按钮编写代码开始按钮编写代码 Dim x y As Integer Private Sub Command1 Click Timer1 Enabled True 定时器开始工作 If Combo1 Text 慢速 Then 如果是 慢速 则 x 10 y 10 ElseIf Combo1 Text 中速 Then 如果是 慢速 则 x 20 y 20 ElseIf Combo1 Text 快速 Then 如果是 快速 则 x 30 y 30 End If End Sub 停止按钮编写代码 停止按钮编写代码 Private Sub Command2 Click Timer1 Enabled False 定时器停止工作 End Sub 退出按钮编写代码 退出按钮编写代码 Private Sub Command3 Click End 结束程序 End Sub 关于按钮编写代码 关于按钮编写代码 Private Sub Command4 Click Form2 Show 显示窗体 2 End Sub 背景颜色代码 背景颜色代码 Private Sub Option1 Click Picture1 BackColor QBColor 1 背景色为蓝色 End Sub Private Sub Option2 Click Picture1 BackColor QBColor 2 背景色为绿色 End Sub Private Sub Option3 Click Picture1 BackColor QBColor 14 背景色为黄色 End Sub Private Sub Picture1 Click End Sub 定时器代码定时器代码 Private Sub Timer1 Timer Label1 Caption Time 显示当前时间 Label2 Caption Date 显示当前日期 Label3 Caption Int Image1 Top Int Image1 Left 显示当前坐标 Image1 Left Image1 Left x Image1 在横坐标上移动 Image1 Top Image1 Top y Image1 在纵坐标上移动 If Image1 Top Picture1 Height Image1 Height Then y y 如 Image1 活动超越活动区上界或下界时 则改变纵向的方向 End If If Image1 Left Picture1 Width Image1 Width Then x x