現在位置：范文先生網>理工論文>計算機信息技術>利用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課件】相關文章：