翻新时间: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
下载文档
网友最新关注
- 自我介绍
- 思念
- 小赵老师
- 聪明的小鸟
- 游泳
- 小猴和皮球
- 快乐的周末
- 春天
- 春姑娘来了
- 给金鱼喂食
- 我和古诗
- 植树
- 美丽的春天
- 春天
- 生态园游
- 论建设工程施工现场管理
- 试论农村整洁工程建设的难点与对策
- 怎样写施工方案?
- 毕业设计开题报告的撰写方法
- 论文化广场设计
- 十句话记住建筑面积计算规范
- 屋面防水的施工质量控制
- 城市规划专业的学校排名
- 2012年全国建筑学专业分档排名
- 全国建筑学专业分档排名
- 论安全玻璃在高层建筑中的使用
- 对提高建筑安装工程质量的几点建议
- 浅谈高层建筑的美学价值
- 试论后现代主义建筑风格的发展和衰落
- 刍议现代城市色彩建设
- 《找春天》教学设计及建议
- 《找春天》课堂重点:文章问题分析
- 《找春天》教案2
- 《找春天》延伸学习:描写春天的古诗
- 《找春天》读书笔记
- 《找春天》教案3
- 《找春天》课堂重点:拟人描写
- 《找春天》教学设计举例
- 《找春天》延伸学习:有关春天的古诗词句
- 《找春天》教案1
- 《找春天》延伸学习:描写春天的古诗名句
- 《找春天》延伸学习:有关春天的谚语
- 《找春天》延伸学习:“春”字成语
- 《找春天》教学设计与思考
- 《找春天》 课外日记:春天来了