现在位置:范文先生网>理工论文>计算机信息技术>利用VB开发CAI课件

利用VB开发CAI课件

时间:2023-02-21 00:05:46 计算机信息技术 我要投稿
  • 相关推荐

利用VB开发CAI课件

陈颖 梁宏宝

利用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


【利用VB开发CAI课件】相关文章:

CAI课件的特点及开发步骤08-06

浅说CAI课件的制作08-06

浅淡CAI课件的制作08-17

把CAI课件用到最佳点08-13

CAI课件制作原则之我见08-07

巧用CAI课件 规避使用误区08-07

小学英语CAI课件制作初探10-08

CAI课件当用到最佳点08-17

CAI课件在美术课中的运用08-07