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