- 相關(guān)推薦
利用VB開發(fā)CAI課件
陳穎 梁宏寶
（大慶石油學(xué)院 151400）
chen-y@0451.com
摘要 利用VB編寫多媒體課件，主要解決動(dòng)畫、聲音、圖片、文本的顯示、播放與控制等問題，本文介紹一些有關(guān)的編程技巧和關(guān)鍵技術(shù)。
關(guān)鍵詞 VB 多媒體 課件
Visual Basic采用面對(duì)對(duì)象的程序設(shè)計(jì)思想，且繼承了Basic簡單易學(xué)的特點(diǎn)，功能強(qiáng)大被很多課件的開發(fā)者所青睞，它和許多課件開發(fā)平臺(tái)相比，具有更好的靈活性，可以充分的實(shí)現(xiàn)開發(fā)者的意圖，是開發(fā)多媒體程序的利器，下面是我用 Visual Basic 編寫課件的一點(diǎn)經(jīng)驗(yàn)。
1．播放FLC動(dòng)畫
FLC動(dòng)畫是表示物理量之間的聯(lián)接關(guān)系及運(yùn)動(dòng)關(guān)系有利工具，我采用vbplay.vbx控件播放動(dòng)畫。
使用該控件，必須有aaplay.dll文件同時(shí)存在。
①播放動(dòng)畫前判斷是否有動(dòng)畫文件，有則播放：
if dir("文件名.flc")<>"" then
animation1.animation="文件名.flc"
animation1.visible=true
endif
②為了看清物理量某一狀態(tài)，動(dòng)畫需要在某一幀暫停：
Private Sub pausebtn_Click()
If animation1.Pause Then
animation1.Pause = False
Else
animation1.Pause = True
End If
End Sub
③ 動(dòng)畫向前退一幀：
Private Sub back_Click()
animation1.PositionFrame = animation1.PositionFrame - 1
End Sub
2．聲音的播放
為了使用者更好的理解并撐握軟件所講知識(shí)，增強(qiáng)學(xué)習(xí)效果，聲音解說在多媒體課件中起著十分重要的作用。聲音可用windows的錄音機(jī)錄制。是否聲音播放可由使用者控制，也可實(shí)現(xiàn)聲音的暫停。下面是利用MCI控件實(shí)現(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
'===========================================
'如果解說已播放結(jié)束,則關(guān)閉媒體播放器
Private Sub MMControl1_Done(NotifyCode As Integer)
If MMControl1.Position = MMControl1.Length Then
MMControl1.Command = "close"
End If
End Sub
【利用VB開發(fā)CAI課件】相關(guān)文章：
淺說CAI課件的制作08-06
淺淡CAI課件的制作08-17
把CAI課件用到最佳點(diǎn)08-13
CAI課件制作原則之我見08-07
小學(xué)英語CAI課件制作初探10-08