计量馆展示课件自动语音播讲的设计与实现

关婕

【摘要】 为在计量馆展馆参观中实现检定校准培训活动数字化，本文设计了一套方便快捷的展示方案，即通过简单的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.