計量館展示課件自動語音播講的設(shè)計與實現(xiàn)

關(guān)婕

【摘要】 為在計量館展館參觀中實現(xiàn)檢定校準(zhǔn)培訓(xùn)活動數(shù)字化，本文設(shè)計了一套方便快捷的展示方案，即通過簡單的VBA編程控制已設(shè)計好的幻燈片播放，并通過PPT動作指令實現(xiàn)簡單的人機交互功能，同時利用spvoice實現(xiàn)語音播講。

【關(guān)鍵詞】 VBA編程;人機交互;語音播講;數(shù)字化

【DOI編碼】 10.3969/j.issn.1674-4977.2019.04.008

Abstract： In order to digitalize the verification and calibration training activities in the metrology pavilion，this paper designs a set of convenient demonstration schemes，that is through simple VBA programming to control the designed slide play，realize simple human-computer interaction through PPT action instructions，and realize voice broadcasting by spvoice.

Key words： VBA programming;human-computer interaction;voice broadcasting;digitalization

隨著我國信息技術(shù)的飛速發(fā)展，信息化、數(shù)字化已經(jīng)成為了各類科普展示場館持續(xù)發(fā)展的必然選擇。

遼寧省計量館的改造設(shè)計中要求設(shè)計一系列檢定校準(zhǔn)活動培訓(xùn)教材，向參觀者循環(huán)介紹各項計量檢定活動，并可接受參觀者指令播講某項具體的檢測活動。為實現(xiàn)這一要求可通過兩種途徑，一是將各種具體檢測活動單獨錄制影片，然后編制目錄循環(huán)播放，同時可以接受指令播放某一項具體檢測活動影片;二是制作幻燈片放映，同時利用spvoice在播放時實現(xiàn)講解，利用VBA實現(xiàn)播放的控制。相比較第二種方案更易實現(xiàn)，同時可以節(jié)省人力、物力資源。

1 實現(xiàn)過程

1.1 設(shè)計Microsoft Office PowerPoint

根據(jù)開展計量檢定校準(zhǔn)活動的實際情況需要，單獨制作好每個檢定校準(zhǔn)活動的幻燈片，包括技術(shù)依據(jù)、規(guī)程規(guī)范介紹、計量標(biāo)準(zhǔn)器展示、檢定校準(zhǔn)流程展示、制作團(tuán)隊介紹等內(nèi)容。其中規(guī)程規(guī)范介紹按照實際檢定規(guī)程、校準(zhǔn)規(guī)范，從適用范圍、概述、計量特性、校準(zhǔn)條件等幾個方面進(jìn)行介紹。

Microsoft Office PowerPoint（以下簡稱PPT）課件中可以對某些頁面設(shè)置介紹性文字，放在PPT頁面之外。這些文字僅供PPT播放時由計算機自行朗讀，作為旁白。

每一個PPT課件做好以后，按照計量專業(yè)或者其他標(biāo)準(zhǔn)進(jìn)行分類，做好目錄。遼寧省計量館按照實際情況分為長度、熱工、力學(xué)、電學(xué)、化學(xué)、溫度、車輛七大類，每類暫時包含5個項目。

PPT課件的制作無需多少計算機知識，計量檢定人員即可參與制作，在校準(zhǔn)方法變更時也可以隨時進(jìn)行編輯修改。

1.2 設(shè)計PPT播放控制程序

利用PPT自帶的VBA程序編寫播放控制部分。方法為：單擊PPT菜單中“工具”-“宏”-“Visual Basic編輯器”，進(jìn)入VBA編輯器，如圖1所示。

本文設(shè)計了目錄播放模式、全文播放模式兩種自動播放模式，并可在超出觸摸屏后停止自動播放，進(jìn)入手動模式。為此，程序設(shè)計了兩個timer（定時器），一個定時啟動幻燈片播放程序，按照目錄模式或者全文模式自動播放;另一個監(jiān)視觸摸屏消息，在手觸屏幕后，進(jìn)入手動模式，或者長時間（本文設(shè)定5分鐘）無觸屏動作恢復(fù)自動播放模式。

自動播放實際就是每間隔一定時間調(diào)用PPT對象自帶的放映跳轉(zhuǎn)函數(shù)GotoSlide跳轉(zhuǎn)到下一頁或者指定頁面。

監(jiān)視觸摸屏消息則是利用了API函數(shù)GetLastInputInfo（plii As LASTINPUTINFO），自動模式下監(jiān)視到觸屏動作，則自動切換到手動模式;手動模式時，長時間無輸入則自動切換到自動播放模式;當(dāng)幻燈片播放到最后一頁時，自動切換到第一頁，確保PPT持續(xù)播放。

1.3 設(shè)計PPT語音播放程序

對PPT中介紹性文字朗讀，需要用到spvoice對象。其引入方法為：在VBA編輯器中，再點擊菜單上的“工具”-“引入”，找到“Microsoft Speech Object Library”，在其上勾選，單擊確定（見圖2）。

朗讀文本直接調(diào)用spvoice對象的speak方法，為使朗讀方法更具通用性，本文設(shè)計了朗讀過程Speak_text，可以在播放PPT時直接調(diào)用。

Sub Speak_Text（） 播放幻燈片內(nèi)所有內(nèi)容

Dim s As String

Dim i， j， k As Integer

Dim ii As Balloon

On Error Resume Next

If i_Clause=0 Then '首次啟動spvoice需初始化

Set sp = New SpVoice

sp.Rate = 1 '設(shè)置朗讀語速

End If

k=ActivePresentation.SlideShowWindow.View.Slide.SlideIndex '當(dāng)前幻燈片序號

j=ActivePresentation.SlideShowWindow.View.Slide.Shapes.Count '幻燈片內(nèi)對象數(shù)目

For i=1 To j-1

DoEvents

s=""

ii=ActivePresentation.SlideShowWindow.View.Slide.Shapes（i）.HasTextFrame '含有文本

If ii Then

s=ActivePresentation.SlideShowWindow.View.Slide.Shapes（i）.TextFrame.TextRange.Text

sp.Speak Trim（s） '朗讀文字

Else

Sleep 1 '延時1s

End If

Next

End Sub

1.4 設(shè)置PPT動作

程序編制好以后，需要通過動作設(shè)置與編輯好的程序關(guān)聯(lián)才能在運行時調(diào)用程序，進(jìn)而實現(xiàn)播放控制和語音朗讀。

關(guān)聯(lián)的方法是：首先選中接受動作的對象（圖形、文本、按鈕），然后在其上右擊鼠標(biāo)，選“擇動作設(shè)置”，在彈出的對話框中選擇運行宏，并在下來菜單選擇上面編輯好的過程或者函數(shù)，單擊確定，實現(xiàn)掛接（見圖3）。

2 結(jié)語

通過上述操作，設(shè)計出一套糅合現(xiàn)代多媒體技術(shù)，同時具備友好的人機交互界面的檢定校準(zhǔn)培訓(xùn)課件。將其拷貝到觸摸屏中，單擊放映，再點擊首頁的自動播放，就可以測試效果了。該課件目前安裝于遼寧省計量館，受到了參觀者廣泛好評。

【參考文獻(xiàn)】

[1] 王裕昌.數(shù)字化建設(shè)是博物館發(fā)展的必然趨勢[J].甘肅科技，2007（6）：225-227.

[2] 狄芳.淺析PPT設(shè)計高級操作技巧[J].民營科技，2018（12）：186.

[3] 賀蓉，曾剛，李慧敏.用VB實現(xiàn)測控系統(tǒng)中數(shù)字量的語音播放[J].電測與儀表，2000（3）：39-40.

[4] 孟曉雷.數(shù)字化科技展館業(yè)務(wù)平臺研究與實現(xiàn)[D].濟南：山東大學(xué)，2008.