計量館展示課件自動語音播講的設計與實現

關婕

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

【關鍵詞】 VBA編程;人機交互;語音播講;數字化

【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

隨著我國信息技術的飛速發展，信息化、數字化已經成為了各類科普展示場館持續發展的必然選擇。

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

1 實現過程

1.1 設計Microsoft Office PowerPoint

根據開展計量檢定校準活動的實際情況需要，單獨制作好每個檢定校準活動的幻燈片，包括技術依據、規程規范介紹、計量標準器展示、檢定校準流程展示、制作團隊介紹等內容。其中規程規范介紹按照實際檢定規程、校準規范，從適用范圍、概述、計量特性、校準條件等幾個方面進行介紹。

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

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

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

1.2 設計PPT播放控制程序

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

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

自動播放實際就是每間隔一定時間調用PPT對象自帶的放映跳轉函數GotoSlide跳轉到下一頁或者指定頁面。

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

1.3 設計PPT語音播放程序

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

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

Sub Speak_Text（） 播放幻燈片內所有內容

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 '設置朗讀語速

End If

k=ActivePresentation.SlideShowWindow.View.Slide.SlideIndex '當前幻燈片序號

j=ActivePresentation.SlideShowWindow.View.Slide.Shapes.Count '幻燈片內對象數目

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 設置PPT動作

程序編制好以后，需要通過動作設置與編輯好的程序關聯才能在運行時調用程序，進而實現播放控制和語音朗讀。

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

2 結語

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

【參考文獻】

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

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

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

[4] 孟曉雷.數字化科技展館業務平臺研究與實現[D].濟南：山東大學，2008.