翻新时间：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
下载文档
网友最新关注
- 小溪
- 北海银滩
- 夏天的云
- 风
- 帮老奶奶生煤炉
- 游老顶山
- 秋
- 飞雪迎春到
- 美丽的家乡
- 我爱家乡的绿化带
- 秋
- 校园里的大柳树
- 荷花
- 校园秋色
- 秋天的晨雨
- 纪念少年先锋队建队55周年讲话
- 军训总结会上的讲话 2
- 在高峰会开幕式上的讲话
- 在新闻发布会上的讲话
- 在全县城区环境综合整治工作会议上的主持词
- 全县贯彻实施行政许可法工作会议上的主持词
- 注册会计师工作会议总结讲话
- 在全区党委系统办公室工作会议上的讲话
- 在收购仪式上的讲话
- 厂长在庆祝中国共产党成立83周年大会上的讲话
- 军训总结会上的讲话
- 在全区工作目标完成情况督查会上的讲话
- 会议主持词(创建全国文明城市动员大会)
- 在新职工上岗前培训班上的总结讲话（医院）
- 创建学习型企业动员大会上的讲话提纲
- 试论《高级英语》教学中的难点及对策
- 浅谈现代教育观指导下的发展性评价机制的建立
- 试论如何培养学生的语言形式能力
- 浅析化学史教育融入化学教学中的实践与思考
- 浅论高校师资培训模式的创新发展
- 地方文献的征管用
- 地方文献与西部开发
- 浅析“配电网综合自动化技术”课程网络学堂建设的分析
- 论文献收藏的地方特色
- 关于建立三峡库区特色文献资源馆藏的思考
- 地方石刻资料的收集与利用
- 浅谈工科院校非物理专业大学物理教学改革初探
- 我国图书馆地方文献研究综述
- 探讨网络游戏与现代教育的结合
- 数字图书馆与地方文献数字化
- 《可贵的沉默》教学设计
- 《惊弓之鸟》第二课时
- 《火烧云》第二课时
- 《荷花》教学设计之五
- 《惊弓之鸟》教学设计之二
- 《惊弓之鸟》第一课时
- 《荷花》教学设计之四
- 《火烧云》第二课时教学设计之三
- 《火烧云》第二课时教学设计之二
- 《荷花》教学设计之三
- 《惊弓之鸟》教学设计之一
- 《荷花》第一课时
- 《妈妈的账单》教学设计
- 《女娲补天》教学设计
- 《灰雀》教学设计