利用VB開發(fā)CAI課件

陳穎 梁宏寶

（大慶石油學院 151400）

chen-y@0451.com

摘要  利用VB編寫多媒體課件，主要解決動畫、聲音、圖片、文本的顯示、播放與控制等問題，本文介紹一些有關的編程技巧和關鍵技術。

關鍵詞  VB 多媒體  課件

　　

Visual Basic采用面對對象的程序設計思想，且繼承了Basic簡單易學的特點，功能強大被很多課件的開發(fā)者所青睞，它和許多課件開發(fā)平臺相比，具有更好的靈活性，可以充分的實現(xiàn)開發(fā)者的意圖，是開發(fā)多媒體程序的利器，下面是我用 Visual Basic 編寫課件的一點經驗。

1．播放FLC動畫

FLC動畫是表示物理量之間的聯(lián)接關系及運動關系有利工具，我采用vbplay.vbx控件播放動畫。

使用該控件，必須有aaplay.dll文件同時存在。

①播放動畫前判斷是否有動畫文件，有則播放：

if dir("文件名.flc")<>"" then

  animation1.animation="文件名.flc"

  animation1.visible=true

endif

 ②為了看清物理量某一狀態(tài)，動畫需要在某一幀暫停：

  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的錄音機錄制。是否聲音播放可由使用者控制，也可實現(xiàn)聲音的暫停。下面是利用MCI控件實現(xiàn)聲音的播放。

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()

'如果聲音正在播放則暫停或繼續(xù)播放

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開發(fā)CAI課件】相關文章：

CAI課件的特點及開發(fā)步驟08-06

淺說CAI課件的制作08-06

淺淡CAI課件的制作08-17

把CAI課件用到最佳點08-13

CAI課件制作原則之我見08-07

巧用CAI課件 規(guī)避使用誤區(qū)08-07

小學英語CAI課件制作初探10-08

CAI課件當用到最佳點08-17

CAI課件在美術課中的運用08-07