2019.09

1

概述

日常工作中常需要手工录入学生成绩

尧

测量数据

等

袁

为减少输入错误

袁

可利用计算机播放声音文件的功

能念出所录入数字字符

袁

遥

以下对实

现这一功能的方法进行简要介绍

袁

并给出相应的

VBA

和

Python

程序

遥

要现实程序功能

袁

首先用

Windows

的录音机或其他

多媒体软件录制生成数字及常用字符的读音文件

袁

存放

于同一文件夹

(

如

D:TESTWAV)

下

袁

每个数字及字符

对应一个适当名称的

.wav

文件

袁

波形文件的时长要尽量

统一

遥

在

Windows

系统中要有动态连接库

winmm.dll

文

件

袁

启用

Excel

的宏功能

袁

才可由

VBA

调用

Windows

API

函数

sndPlaySound遥

用

Python

实现时

袁

先执行

pip

install

playsound

为

Python

安装用于播放声音文件的

playsonud

模块

袁

操作

文本表格数据文件可用内置模块

csv袁

也可安装

open鄄

pyxl

扩展库用来操作

Excel遥

2

用

VBA

调用

API

Excel

数据

首先启用

Excel

宏功能

袁

在

Module

中编写

VBA

程

序

袁

先声明

API

函数

sndPlaySound

用来播放

.wav

文件

袁

函数

GetTickCount

可用于控制播放读音的间隔时间

遥

Option

Explicit

Private

Declare

Function

sndPlaySound

Lib

“winmm.

dll”

Alias

“sndPlaySoundA”

(ByVal

lpszSoundName

As

String,

ByVal

uFlags

As

Long)

As

Long

Private

Declare

Function

GetTickCount

Lib

“kernel32”

()

As

Long

Const

OneInterval

As

Integer

=

200

Const

WavPath

As

String

=

“

D:TESTWAV”

函数

SayNbAPI

实现按字符播放对应的

.wav

文件

院

Public

Sub

SayNbAPI(SOneWav

As

String)

Select

Case

SOneWav

Case

“”1″”

SOneWav

=

WavPath

+

“”Nb1.WAV””

Case

“”2″”

噎

(

略去相关代码

)

Case

“”.””

SOneWav

=

WavPath

+

“”NbDian.WAV””

Case

“”-“”

SOneWav

=

WavPath

+

“”NbFu.WAV””

Case

“”Next””

SOneWav

=

WavPath

+

“”NNext.WAV””

噎

Case

Else

噎

End

Select

Dim

ReturnValue

As

Long

ReturnValue

=

sndPlaySound(SOneWav

R