久久久91-久久久91精品国产一区二区-久久久91精品国产一区二区三区-久久久999国产精品-久久久999久久久精品

1.前言
公路交通多媒體演示系統(tǒng)簡介：
    此演示系統(tǒng)是一個單機(jī)版的開發(fā)軟件，主要功能是實(shí)現(xiàn)對一個地區(qū)公路狀況的查詢。在這個系統(tǒng)中，配有沿途事物的錄像以及各個標(biāo)志性建筑的基本信息(例如一個路口的寬度、流量等)。此系統(tǒng)主要包括：多媒體演示部分，主要實(shí)現(xiàn)錄像的播放、圖片的瀏覽；數(shù)據(jù)庫查詢部分，包含了各種道路、橋梁等的信息以供用戶查詢。

2.多媒體計(jì)算機(jī)系統(tǒng)的組成
2.1.多媒體計(jì)算機(jī)的基本組成
2.1.1.多媒體計(jì)算機(jī)的硬件系統(tǒng)
    構(gòu)成多媒體硬件系統(tǒng)除了需要較高配置的計(jì)算機(jī)主機(jī)硬件之外，通常還需要音頻、視頻處理設(shè)備，光盤驅(qū)動器各種媒體輸入/輸出設(shè)備等。

下圖為多媒體硬件系統(tǒng)基本組成：

2.1.2多媒體計(jì)算機(jī)軟件系統(tǒng)
    多媒體計(jì)算機(jī)軟件系統(tǒng)按功能可分為系統(tǒng)軟件和應(yīng)用軟件。

（1）多媒體系統(tǒng)軟件
系統(tǒng)軟件是多媒體系統(tǒng)的核心，它主要運(yùn)行于多媒體操作系統(tǒng)平臺（如Windows）上，故操作系統(tǒng)平臺是軟件的核心。

（2）多媒體應(yīng)用軟件
多媒體應(yīng)用軟件是在多媒體創(chuàng)作平臺上設(shè)計(jì)開發(fā)的面向應(yīng)用領(lǐng)域的軟件系統(tǒng)。兩者關(guān)系如圖所示：

                                         
3.Visual Basic多媒體開發(fā)環(huán)境
3.1. Visual Basic與Windows
    任何一種程序設(shè)計(jì)語言都離不開操作系統(tǒng)，用Visual Basic開發(fā)多媒體程序的實(shí)質(zhì)是利用了Windows操作系統(tǒng)的多媒體能力。

3.2.MCI設(shè)備類型
    MCI（Media Control Interface）是媒體控制接口的意思，MCI具有設(shè)備無關(guān)性和可擴(kuò)展性，使用戶不須使用低級的API就可以播放多媒體素材。

    MCI可以控制簡單設(shè)備和復(fù)合設(shè)備。簡單設(shè)備是不需要指定數(shù)字文件的設(shè)備，如CD播放器等。復(fù)合設(shè)備是需要指定相應(yīng)的數(shù)據(jù)文件的設(shè)備，如MIDI數(shù)字音頻設(shè)備。MCI具有一個基本功能集包括設(shè)備的打開、播放、暫停、重放、關(guān)閉，這些功能往往可應(yīng)用于所有設(shè)備。擴(kuò)展功能集可以訪問某一設(shè)備的特殊功能，如逐幀顯示功能，只能用于動畫上，而不能用于CD播放器和波形音頻設(shè)備。MCI可以理解為一類標(biāo)準(zhǔn)接口，凡是復(fù)合接口的產(chǎn)品，均可以由MCI控件訪問使用。

4.使用Visual Basic程序設(shè)計(jì)語言設(shè)計(jì)多媒體程序
4.1. Visual Basic設(shè)計(jì)多媒體程序的方法
    在Visual Basic中，大致有以下幾種方法設(shè)計(jì)多媒體程序：

1) 在實(shí)踐過程中用編碼改變屬性。

2) 利用picture 控件循環(huán)顯示畫面。

3) 利用OLE控件（MSOLE.VBX）。

4) 媒體控制對象MCI.VBX和其他第三方控件。

5) 利用API函數(shù)。

4.2. Visual Basic設(shè)計(jì)多媒體程序要注意的幾個問題
1) 多媒體素材的運(yùn)用，包括注意選用的標(biāo)準(zhǔn)堅(jiān)持少而精的原則；注意各種素材之間的同步問題。

2) 多媒體頁面的連接。

3) 程序優(yōu)化。

4) 注意媒體設(shè)備的使用。

5.具體的多媒體程序設(shè)計(jì)過程
5.1.錄像、聲音的播放
    主要是利用Mediaplayer 控件編程，分為添加控件、添加代碼、運(yùn)行程序等幾個步驟。
具體程序如下：

Private Sub Command2_Click()

Form1.MediaPlayer2.Open("D:\Sound\Track01.wav") ' 播放聲音

End Sub

Private Sub Command1_Click()

Form1.MediaPlayer1.pen("D:\mm.avi") ' 播放錄像

Form1.MediaPlayer2.Open("D:\Sound\Track01.wav") ' 播放聲音

End Sub

Private Sub Command4_Click()

Flag=Not flag

If flag=True Then

Form1. MediaPlayer2.Stop

Else

Form1. MediaPlayer2.Play '實(shí)現(xiàn)聲音的暫停，完成靜音功能

End If

End Sub

    在完成了錄像、聲音的播放之后，讓我們通過鼠標(biāo)點(diǎn)擊事件來返回錄像的當(dāng)前位置（當(dāng)前幀數(shù)），來實(shí)現(xiàn)與數(shù)據(jù)庫的連接。與數(shù)據(jù)庫連接的基本思想是：在同一工程中設(shè)置一個變量（設(shè)為aa）在多媒體演示部分返回的錄像當(dāng)前值賦給aa，再傳遞到數(shù)據(jù)庫部分來實(shí)現(xiàn)查詢功能，從而完成了與數(shù)據(jù)庫的連接，由此可見這個變量非常重要，即錄像停下的當(dāng)前值非常重要。

    下面介紹如何獲取錄像停下時刻的值：

    利用MediaPlayer控件的屬性之一currentposition來完成，通過窗體點(diǎn)擊事件form-click()，我們可以通過如下的代碼語句獲得當(dāng)前位置（幀數(shù)）：

Private Sub Form_Click()

Text1.Text= MediaPlayer1.CurrentPosition '返回錄像的當(dāng)前位置（當(dāng)前幀數(shù)）

aa= MediaPlayer1.CurrentPosition

End Sub

    這樣把a(bǔ)a傳給了數(shù)據(jù)庫，實(shí)現(xiàn)了多媒體與數(shù)據(jù)庫的連接。

5.2.圖片的瀏覽
    因?yàn)閳D片的清晰度遠(yuǎn)遠(yuǎn)高于錄像本身，所以對于用戶來說，對于他感興趣的部分（如路口、牌匾等標(biāo)志性建筑），他們有理由獲取更詳細(xì)的信息，這時就會用到圖片瀏覽器。同樣這里也存在著一個與數(shù)據(jù)庫連接的問題，在這里，與數(shù)據(jù)庫連接的基本思想是在同一模塊中定義一個變量（設(shè)為cc），通過賦給cc不同的值來選擇瀏覽不同的圖片，這個值是在查詢時由用戶輸入的，它會有一個指定的范圍。

圖片瀏覽器制作如下：
    添加一個picture box控件，命名為"picview"在其中放置一個圖片框控件，命名為"picscroll"，用于顯示圖片內(nèi)容，在窗體最左側(cè)和下側(cè)各添加一個滾動條，用于大圖瀏覽。
添加代碼如下：
Private Sub Command1_Click()

End

End Sub

Private Sub Form1_Load()

Dim cc As Integer

Select Case cc

Case 1  picscroll.Picture=LoadPicture("D:\1.jpg")

Case 2  picscroll.Picture=LoadPicture("D:\2.jpg")

……………………

case 20  picscroll.Picture=LoadPicture("D:\20.jpg")

End Select

If picscroll.Width<picview.ScaleWidth Then  '將圖形的寬和高于picview的寬和高進(jìn)行比較

picscroll.Left=(picview. Width -ScaleWidth)\2       '如果都小于將picscroll放在picview中心

hscpic.Visble=False                      '不顯示滾動條

Else                                   '否則，如果寬度大于picview的寬

picscroll.Left=0                          '則將picscroll的左邊界定為在
picview最左端，

hscpic.Visble=True                       '并顯示水平滾動條

hscpic.Value=0

hscpic.Max=picscroll.Width-picview.ScaleWidth

hscpic.SmallChange=picscroll.Width\20

hscpic.LargeChange= picscroll.Width\10

End If

If picscroll.Height<picview.Height Then     '將圖形的寬和高于picview的寬和高進(jìn)行比較

picscroll.Top=(picview.Height -ScaleWidth)\2   '如果都小于將picscroll放在picview中心

vscpic.Visble=False                      '不顯示滾動條

Else                                   '否則，如果高度大于picview的高

picscroll.Top =0                          '則將picscroll的上邊界定為在

picview最上端，

vscpic.Visble=True                       '并顯示垂直滾動條

vscpic.Value=0

hscpic.Max=picscroll.Height -picview.ScaleHeight

vscpic.SmallChange=picscroll.Height \20

vscpic.LargeChange= picscroll.Height \10

End If

End Sub

6.最終的公路交通多媒體演示系統(tǒng)