翻新时间：2023-02-03
利用VB开发CAI课件
利用VB开发CAI课件 利用VB开发CAI课件 信息技术论文 更新：2006-4-8 阅读： 利用VB开发CAI课件
陈颖 梁宏宝
（大庆石油学院 151400）
chen-y@0451.com
摘要 利用VB编写多媒体课件，主要解决动画、声音、图片、文本的显示、播放与控制等问题，本文介绍一些有关的编程技巧和关键技术。
关键词 VB 多媒体 课件
Visual Basic采用面对对象的程序设计思想，且继承了Basic简单易学的特点，功能强大被很多课件的开发者所青睐，它和许多课件开发平台相比，具有更好的灵活性，可以充分的实现开发者的意图，是开发多媒体程序的利器，下面是我用 Visual Basic 编写课件的一点经验。
1．播放FLC动画
FLC动画是表示物理量之间的联接关系及运动关系有利工具，我采用vbplay.vbx控件播放动画。
使用该控件，必须有aaplay.dll文件同时存在。
①播放动画前判断是否有动画文件，有则播放：
if dir("文件名.flc")<>"" then
animation1.animation="文件名.flc"
animation1.visible=true
endif
②为了看清物理量某一状态，动画需要在某一帧暂停：
Private Sub pausebtn_Click()
If animation1.Pause Then
animation1.Pause = False
Else
animation1.Pause = True
End If
End Sub
③ 动画向前退一帧：
Private Sub back_Click()
animation1.PositionFrame = animation1.PositionFrame - 1
End Sub
2．声音的播放
为了使用者更好的理解并撑握软件所讲知识，增强学习效果，声音解说在多媒体课件中起着十分重要的作用。声音可用windows的录音机录制。是否声音播放可由使用者控制，也可实现声音的暂停。下面是利用MCI控件实现声音的播放。
Public Const mci_mode_close As Integer = 524
Public Const mci_mode_play As Integer = 526
Public Const mci_mode_pause As Integer = 529
Private Sub sound_Click()
'如果声音正在播放则暂停或继续播放
If (Not MMControl1.Mode = mci_mode_pause) And (MMControl1.Mode = mci_mode_play) Then
MMControl1.Command = "pause"
Else
'播放解说词
MMControl1.DeviceType = "WaveAudio"
MMControl1.filename = "文件名.wav"
MMControl1.Shareable = False
MMControl1.UpdateInterval = 50
MMControl1.Notify = True
MMControl1.Command = "open"
MMControl1.Command = "prev"
MMControl1.Command = "play"
End If
End Sub
'===========================================
'如果解说已播放结束,则关闭媒体播放器
Private Sub MMControl1_Done(NotifyCode As Integer)
If MMControl1.Position = MMControl1.Length Then
MMControl1.Command = "close"
End If
End Sub
下载文档
网友最新关注
- 温暖冬至
- 老鹰捉小鸡
- 雪
- 我的期中考试
- 谁最幸福
- 冬天
- 家乡的四季
- 未来的车
- 我的女孩
- 兔兔羊日记
- 名字里的爱
- 小木偶历险记
- 我的小猫
- 可爱的妹妹
- 被自己感动
- 小学2010——2011学年教学工作计划
- 中学2010-2011学年教学工作计划
- 初三化学教学工作计划
- 最新小学体育教学工作计划
- 小学信息技术教学工作计划
- 学校2010~2011学年度第一学期教学工作计划
- 小学2012年秋季学期教学工作计划
- 2012年——2011年第一学期英语教学工作计划
- 2010-2011学年学校教学工作计划
- 新学期四、五年级教学工作计划
- 初中教师音乐教学工作计划
- 幼儿园大班教学工作计划
- 2010-2011学年上学期教学工作计划
- 小学2010-2011年第一学期信息技术教学工作计划
- 2012年秋季学校教学工作计划
- 农业剩余：中国现代化发展的瓶颈
- 中国农地股份合作制制度绩效的内生交易费用理论分析
- 乡人大评议的分析和优化
- 乡村同构背景下的政府与村庄的关系
- 透视乡土维系力
- 论民主化村级治理的村庄基础
- 农民负担的现状与症结 ——湖北J市调查
- 为农民增收的七点建议
- 农民工市民化进程中的心理形态和社会文化环境
- 农村基层民主建设和民主监督现状问题及对策
- 中国农村社会转型及其困境
- 派性、选举与村集体经济
- 我国农村社会变迁与农村社会学研究述评
- 村民自治进程中乡村关系的偏离
- 新世纪中国农村改革：反思与展望
- 《纸船和风筝》课堂实录
- 《纸船和风筝》片断赏析
- 狮子简介
- 《纸船和风筝》课堂实录极评析
- 长颈鹿的脖子为什么这样长
- 《从现在开始》词语理解、搭配与例句
- 袋鼠为什么善跳
- 小狮子都吃些什么
- 《从现在开始》多音字同音字形近字组词
- 教《纸船和风筝》有感──和学生说悄悄话
- 《纸船和风筝》课堂实录及评析
- 《纸船和风筝》片断赏析
- 《从现在开始》词语解释
- 运用富有感染力的语言激发学生读书兴趣──《纸船和风筝》教学案例及评析
- 《从现在开始》探究活动