网站大量收购独家精品文档,联系QQ:2885784924

用VB制作“光的折射”CAI课件.doc

  1. 1、本文档共4页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
用VISUAL BASIC制作“光的折射”CAI课件 涟水县教学研究室 马浩洲 文章摘要:计算机辅助教学(简称CAI)是信息时代计算机技木与教育改革相结合的产物。作为为CAI重要分支之一的计算机辅助物理教学,已逐步发展成为提高物理教学质量的一种重要手段。本文作出了一些对演示型CAI课件在中学物理课中应用的探讨,并介绍了用Visual Basic制作关于光的折射CAI课件方法、课件功能及应用情况。 关键词:CAI;物理教学;Visual Basic;控件 一、问题的提出 物理作为中学生的一门基础课,主要目的是培养学生具备一些基本的物理知识,掌握基本的分析、解决问题的方法等。而目前中学物理教学中普遍存在学生感觉物理枯燥乏味,不愿学。要解决这个问题,关键是教师要设法提高学生的学习兴趣,将课堂教学变得生动有趣。要达到这个目的,有诸多环节,其中之一就是借助计算机软件,制作多媒体课件,增强知识的生动性。本文结合实例,介绍Visual Basic 软件在多媒体课件制作中的运用。 二、用Visual Basic制作CAI课件的方法 Visual Basic是一种可视化的面向对象的程序设计语言,它采用以事件驱动对象执行的图形用户界面方式,既有Windows优越的图形窗口环境,又继承了Basic语言的简单易学性,因此特别适合广大教育工作者制作课件的需要。其制作过程可分为以下几个步骤: 2.1建立模型 用计算机模拟某物理过程时,首先要建立该过程的物理模型,这种模型必须是一个算法,而且要合理、可行,能真实反应物理现象,揭示其本质。 2.2创建窗体 在Visual Basic开发环境下是以窗体作为开发平台的 窗体是Visual Basic程序“表演”的舞台,也是各种媒体的配置窗口。因此,制作模拟课件要首先建立窗体,并对其名称、大小、位置、标题、背景等属性进行设置。 2.3安置控件 Visual Basic的工具箱中提供了许多控件,根据模型灵活选择其中的控件,在安置控件前一定耍先选好容纳控件的容器并使其成为活动对象,然后再安置控件,同时要设置好控件的相关属性。如Image 控件Stretch属性值,如采用系统默认的值,表示控件要调整大小以与图形相适。如果 Stretch 被设置为 True,那么,控件大小的调整使得它所包含的图形的大小也要调整 2.4编写事件过程 用Visual Basic制作课件的一个重要环境就是为已设置好的对象(窗体和控件)编写事件过程(即程序代码),以确定每一个对象在收到特定事件后作出的反应。 2.5组装调试 课件制作完成之后要反复运行调试 以检查是否达到预期的设计要求。Visual Basic除了具有“设置断点”、“单步执行 、“显示内存变量”等一般排错功能以外,还有“编辑后继续进行”、“设置下一个执行语句”等特殊功能,帮助深入了解程序运行情况。 三、“光的折射”CAI课件的实现 3.1功能要求 在此课件中,折射率n的大小可以通过键盘输入来改变,而教师只要移动鼠标(控制光源位置),课件的主界面上就可以同步显示出入射光线、反射光线、折射光线的状态,在文本框中也可同步给出入射角、反射角、折射角以及sina、sinβ、n的大小。在主界面上,课件给出了一系列引导性的问题,教师可以按自己的意图引导学生一步步观察,让学生自己发现sina/sinβ= n。这样得到的教学效果无疑要比单纯从课本上记公式要好得多。 3.2控件安排 图一 图二 本课件界面如图一、图二所示,为了实现这些功能,用到的控件有:标签(label)、文本框(textbox)、命令按钮(command button)、图形控件(shape、image)。用到的主要属性有:caption、text、picture、stretch。 3.3程序代码 限于篇幅,本文只给出(图一)光的折射主要代码: Option Explicit(变量声明) Dim in_angle As Single Dim fold_angle As Single Dim sinvalue As Single Dim n As Single Private Sub Command1_Click()(答案按钮代码) Labelqustion1.Visible = False(隐藏问题)Labelqustion2.Visible = True(显示问题答案) End Sub Private Sub Command2_Click()(退出按钮代码) End End Sub Private Sub Command3_Click()(折射定律按钮代码) Form3.Show End Sub Private Sub Command4_Clic

文档评论(0)

xingyuxiaxiang + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档