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

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

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

VisualBasic采用面對對象的程序設(shè)計思想，且繼承了Basic簡單易學(xué)的特點，功能強(qiáng)大被很多課件的開發(fā)者所青睞，它和許多課件開發(fā)平臺相比，具有更好的靈活性，可以充分的實現(xiàn)開發(fā)者的意圖，是開發(fā)多媒體程序的利器，下面是我用VisualBasic編寫課件的一點經(jīng)驗。1．播放FLC動畫FLC動畫是表示物理量之間的聯(lián)接關(guān)系及運動關(guān)系有利工具，我采用vbplay.vbx控件播放動畫。使用該控件，必須有aaplay.dll文件同時存在。①播放動畫前判斷是否有動畫文件，有則播放：ifdir("文件名.flc")<>""thenanimation1.animation="文件名.flc"animation1.visible=trueendif②為了看清物理量某一狀態(tài)，動畫需要在某一幀暫停：PrivateSubpausebtn_Click()Ifanimation1.PauseThen

animation1.Pause=FalseElseanimation1.Pause=TrueEndIfEndSub③動畫向前退一幀：PrivateSubback_Click()animation1.PositionFrame=animation1.PositionFrame-1EndSub2．聲音的播放為了使用者更好的理解并撐握軟件所講知識，增強(qiáng)學(xué)習(xí)效果，聲音解說在多媒體課件中起著十分重要的作用。聲音可用windows的錄音機(jī)錄制。是否聲音播放可由使用者控制，也可實現(xiàn)聲音的暫停。下面是利用MCI控件實現(xiàn)聲音的播放。PublicConstmci_mode_closeAsInteger=524PublicConstmci_mode_playAsInteger=526PublicConstmci_mode_pauseAsInteger=529PrivateSubsound_Click()'如果聲音正在播放則暫?；蚶^續(xù)播放If(NotMMControl1.Mode=mci_mode_pause)And(MMControl1.Mode=mci_mode_play)ThenMMControl1.Command="pause"Else'播放解說詞MMControl1.DeviceType="WaveAudio"MMControl1.filename="文件名.wav"MMControl1.Shareable=FalseMMControl1.UpdateInterval=50MMControl1.Notify=TrueMMControl1.Command="open"MMControl1.Command="prev"MMControl1.Command="play"EndIfEndSub'========================================================'如果解說已播放結(jié)束，則關(guān)閉媒體播放器PrivateSubMMControl1_Done(NotifyCodeAsInteger)IfMMControl1.Position=MMControl1.LengthThenMMControl1.Command="close"EndIfEndSub3．圖形按鈕編程實現(xiàn)雖然VB提供了標(biāo)準(zhǔn)的Windows按鈕，但在多媒體課件中使用帶指示聲音的圖形按鈕發(fā)揮多媒體計算機(jī)的優(yōu)點，使程序界面更美觀，操作更方便，大大的提高多媒體課件的教學(xué)效果。①先用photonshop作三個圖片，代表按鈕的三種狀態(tài)，并命名為move.bmp，normal..bmp，down.bmp，用

windows下的錄音機(jī)錄制二個聲音文件，命名為：mover.wav，down.wav。②利用API函數(shù)播放聲音，函數(shù)定義如下：#IfWin32ThenDeclareFunctionplaysoundLib"WinMN"(ByValSoundNameAsString，ByValhandleAsInteger，ByValFlagsAsLong)AsInteger#ElseDeclareFunctionplaysoundLib"MMSystem"(ByValSoundNameAsString，ByValhandleAsInteger，ByValFlagsAsLong)AsInteger#EndIfPublicConstsnd_nodefault=&H2PublicConstsnd_sync=&O0PublicConstsnd_filename=&H20000③在窗體上畫picture控件，picture1.autosize=true，picture1.borderstyle設(shè)置為0-none，picture1.picture設(shè)置為normal.bmp。④編程如下：'============================================================'當(dāng)光標(biāo)在窗體中時，按鈕處于正常狀態(tài)PrivateSubForm1_MouseMove()picture1.picture=loadpicture("normal.bmp")mark=falseEndSub'============================================================'當(dāng)光標(biāo)在按鈕上移動時，按鈕處于激活狀態(tài)，且播放聲音mover.wavPrivateSubPicture1_MouseMove()ifmarkthenpicture1.picture=loadpicture("move.bmp")playsound"mover.wav"，0，snd_syncorsnd_nodefaultorsnd_filenamemark=trueendifendsub'============================================================'當(dāng)鼠標(biāo)右鍵按下時，按鈕處于按下狀態(tài)PrivateSubPicture1_MouseDown()picture1.picture=loadpicture("down.bmp")endsub'=========================================================當(dāng)鼠標(biāo)右鍵彈起時，按鈕處于激活狀態(tài)PrivateSubPicture1_MouseUp()picture1.picture=loadpicture("move.bmp")endsub'==============