VB程序设计课程的任务驱动教学法实例

VB程序设计课程的任务驱动教学法实例 《VB 程序设计》课程的任务驱动教学法实例 * 方蓉 摘 要 : 结合实际教学经验, 介绍几个较好的《VB 程序设计》课程的任务驱动教学法补充实例。 程序设计实例设计任务驱动教学: 关 键 词 VB 文献标识码中图分类号 G434 B 文章编号: 1002- 2422( 2007) 05- 0040- 02 “VB Pr ogr amming Design ”Cour se in Radio Examples of and Television Univer sity Based on Task- dr iven Teaching Method Fang Rong Abstr act: Combined with the teaching experiences,some good examples ″VB Programming Design″course based on task- dr- iven teaching method are introduced in the paper. Examples Design Task- driven Method Teaching Keywor d: VB Programming Design 1 控件任务实例介绍 (2)程序过程: Private Sub Form_Click() (1)任务:如何实现一行文字在窗体中自左向右逐渐 Dim year%,moneyP,originalP,interestP 滚动，从右边″滚″出窗体的文字，又在左边逐渐出现，如此 original=10000 循环。 money=original (2)程序过程:在窗体中设置两个L abel 控件 Label1、 Interest=3.25/100 Label2。这两个控件中除 Left 属性外，其他属性设置成完全 Do While money<2Voriginal 一样。这主要是为了实现循环滚动的效果。它们的 Caption year=year+1 属性设置为要滚动显示的文字，另外再调整好其字体、大小 money=money+interestVmoney 和颜色等，在 Form- Load 过程中设置 Label2.Left=- 6240(窗 Loop 体宽度)，Label1.Left=0。这样可保证 Label1 的一部分″滚″出 Print 窗体，则 Label2 的一部分就进入窗体，而形成循环滚动在 End Sub 窗体中设置 Timer 控件。Timer 控件的 Interval 属性决定滚 动的速度，单位是毫秒。 3 图形图像中的坐标系统实例 在 Timer1- Timer()过程中加入如下程序: (1)任务:将一个图片框中图形复制到另外四个图片 Private Sub Timer1- Timer() 框时，如何快速实现各个按钮要求的位图缩放。 Label1.Left=Label1.Left+50 (2)提示 : PictureBox 控 件 上 的 PaintPicture 语 句 和 Label2.Left=Label2.Left+50 ScaleMode 属性。 If Label1.Left>=6240 Then (3)程序过程: Label1.Left=- 6240 Private Sub Command1- Click() End If pics , 0 , 0 , w / 2 , h / 2 , 0 , 0 , w , h If Label2.Left>=6240 Then End Sub Label2.Left=6240 Private Sub Command2- Click() End If picd2. PaintPicture pics , 0 , 0 , w / 2 , h / 2 , w , 0 , - w , End Sub h End Sub Private Sub Command3- Click() picd3. PaintPicture pics , 0 , 0 , w / 2 , h / 2 , 0 , h , w , - 2 程序流程控制语句实例 h End Sub (1)任务:将 10000 元存入银行，按 3.25%的利率，试 Private Sub Command4- Click() 问多长时间就会连本带利翻一番。(注:需用判断循环语 句) * 方蓉 广东省惠州市广播电视大学助教(516001) 修改稿收到日期:2007- 04- 16 ? 40 ? 网络课件中应用流媒体嵌入技术的研究与实现 * ** 刘文杨德芹 摘 要 : 对流媒体嵌入技术进行了探讨, 其在网络课件中的实现给出了方法和步骤。 网络课件元文件嵌入技术: 流媒体 关 键 词 中图分类号: G434 文献标识码: B 文章编号: 1002- 2422( 2007) 05- 0041- 02 Resear ch and Realization of Applying Str eam Medium Implanting Technology in Networ k Cour sewar e Liu Wen Yang Deqin Abstr act: The paper discusses stream medium implanting technology,and gives out the realization method and steps of stream medium implanting technology in network courseware. Stream MediumNetwork Courseware Basic Document Implanting Technology Keywor d: 基于流媒体技术网络课件 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 真实生动，可以方便的打开文件的条件状态等。由于目前通过客户端浏览器通常 不能直接支持用于播放流信息的 MMS 协议 离婚协议模板下载合伙人协议 下载渠道分销协议免费下载敬业协议下载授课协议下载 或 RTSP 协议， 实现音视频内容实时广播、定时广播、点播等教学方式，具 因此需要向流媒体服务器发出请求，由流媒体服务器以流 有强烈的感染力和表现力，在学校教学及远程教育领域得 到广泛的应用。本文就流媒体嵌入技术在网络课件制作中 式传输方式播放指针文件(即元文件)中指定的视音频源 文件。在网页嵌入流媒体的方式中，使用元文件是最好的嵌 实现进行分析与探讨。 入流媒体播放器方式。当网页浏览器接受到元文件时，它就 根据 MIME 类型，将这些文件交给流媒体应用程序。流媒体 1 流媒体嵌入技术中的两个重要慨念 播放器打开元文件，寻找流文件的地址，不通过浏览器，开 1.1 MIME 类型 始单独与流媒体所在的服务器在另一端口并以不同的协议 MIME 类型确定了文件的内容层次和结构。一个 MIME 进行通信，通过从浏览器上脱离，使用其他的协议和端口， 类型是一个文本的简单字符串，它包含在文件头中，浏览器 就可以在使用浏览器浏览网页的同时欣赏到流媒体广播站 比较这个字符串和一个已注册的 MIME 列表中的每一项来 点的节目。 决定这个文件中包含的是什么类型的数据，当浏览器知道 每个文件包含那种类型的数据，它就可以播放并显示这些 不同的数据类型，根据这些数据类型的内容，还可确定它用 2 流媒体嵌入技术在网络课件中的实现 本地的何种应用程序打开此文件，或是需要其他的帮助性 质的程序或插件。 目前最典型的流媒体解决方案有:Windows Media、Rea 1.2 元文件 lMedia 和 Quick Time Pro 三种，在教育领域用的比较多的 元文件是一些使用 MIME 类型并标记了使用流媒体播 是前两种。下面分别以这两种技术方案为例，对流媒体嵌入 放器打开的小文件。它是个包含一定信息的文本文件，含有 技术在网络课件中的实现进行讨论。 流文件地址、元数据、播放器列表或是供播放器使用来选择 2.1 Windows Media 的嵌入 Windows Media 技术使用了大量不同的元文件，包括后 参 考 文 献picd4. PaintPicture pics , 0 , 0 , 2@w , 2Ah , 0 , 0 , w , h End Sub [1]刘世峰. Visual Basic 程序设计[M]. 北京:中央广播电视 大学出版社，2004，(1). 4 结 束 语 [2]王春凤. Visual Basic 程序设计课程教学大纲[M]. 北京: 在任务驱动的实例教学法中，教师需精心准备实例，注 中央广播电视大学出版社200，5:11- 13. 意调动学生学习实例的主动性和积极性;要了解学生想学 [3 ]蔡志强，刘炎. 《VB 程序设计》坐标系统教学方法探讨 习哪方面的知识，在课堂中随时观察学生的态度，以便了解 [J]. 常熟:常熟高专学报，2004，(7). 学生对实例的认知程度，必要时要根据学生掌握知识的情 况及时对所讲授实例进行增删。 * 刘文 荆门职业技术学院现代教育技术中心讲师(448000)，研究方向:计算机辅助教育 修改稿收到日期:2007- 04- 24 * * 杨德芹 湖北宜昌教育学院信息技术系讲师(443100) ? 41 ? Your requestcould not be processed becauseof a configurationerror: "Could not connect to LDAPserver." For assistance,contact your network support team. file:///C|/Users/Administrator/Desktop/新建文本文档.txt 涵盖各行业最丰富完备的资料文献,最前瞻权威的行业动态,是专业人士的不二选择。 file:///C|/Users/Administrator/Desktop/新建文本文档.txt2012/8/26 12:19:58