培训

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 培训 > Access培训(VIP)
Access培训(VIP)

Access自动播音员-Access经典源码剖析

 
Access主题 主题：Access自动播音员-高手之路                  听课人数：76人      
Access主讲 主讲：王宇虹                       演讲时间：2014-07-02 15:30 至 2014-07-02 16:30
Access培训内容 讲课内容简介：                   Access培训报名： http://www.office-cn.net/thread-118946-1-1.html
  讲解如何设计使用语音播报，可以将文本自动转为可朗读的内容，包括中文和英文内容。同时可选择你喜欢的朗读人员，修改语速、音量等读播信息。可以方便地应用在电子磅，出仓单等需要读播的地方。
 培训优势：使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件  培训
 培训目标：让你 听得懂 学得会 记得住 用得上             要求：有一定的Access 或 VBA的基础 
 

 

clip0058

Access自动播音员

 

 

application_key 功能描述：
▪ 自动将文本朗读，可朗读中文 英文
▪ 可设置播音的语速
▪ 可设置播音的英量
▪ 可选择喜欢的读音员

 

 

application_key  行业应用场景：
 

 

  • 电子秤

          读出读数

  • 大篇文章转化成语音文件

           MP3

  • 财务

         销售单

         语音播报金额

         出仓单

  • 儿童

         学校课文

         语音文件

  • 学习培训

          重点的笔记 内容

  • 盲人

            各种盲人相关软件 

 

application_key  界面预览：

 

     access数据库

 

 

application_key  源码思维导图（脑图）：

 

     access数据库

 

Access教程视频Access自动播音员 -- Access经典源码剖析思维导图在线播放
可直接展开和收缩思维导图中的每个节点来浏览，也可使用下面的放大 缩小 折叠 定位焦点 全页显示 查找关键字等功能
 
 

 

application_key  Access培训笔记：

 

  经典源码剖析系列 自动播音员 Office中国-王宇虹

1 应用场景

1.1 电子秤

1.1.1 读出读数

1.2 大篇文章转化成语音文件

1.2.1 MP3

1.3 财务

1.3.1 销售单

1.3.1.1 语音播报金额

1.3.2 出仓单

1.4 儿童

1.4.1 学校课文

1.4.1.1 语音文件

1.5 学习培训

1.5.1 重点的笔记 内容

1.6 盲人

2 SDK

2.1 必须引用 Speech object library

2.2 语音识别

2.3 语音合成

2.4 开发要点

2.4.1 Voice

2.4.1.1 朗读者

2.4.2 Rate

2.4.2.1 语速

2.4.3 Volume

2.4.3.1 音量

2.4.4 Speak

2.4.4.1 朗读方法

3 SAPI介绍

3.1 SAPI简介

3.1.1 一个是语音识别(speech recognition) 和语音合成(speech synthesis)。

3.1.2 这两个技术都需要语音引擎的支持。微软推出的应用编程接口API，虽然现在不是业界标准，但是应用比较广泛。

3.2 SAPI包括以下组件对象（接口）

3.2.1 Voice Commands API

3.2.2 Voice Dictation API

3.2.3 Voice Text API

3.2.4 Voice Telephone API

3.2.5 Audio Objects API

 

 

 

application_key  相关链接：

 

1. 直接超值购买：

       点击购买：  Button 

       包含：Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

 

2. 购买前咨询：

    

    在线咨询QQ：1918333016

    企业热线QQ：4008553990 （使用QQ搜索： 搜索服务）

 

application_key  部分源码预览：

 

  access数据库

 

Private Sub cmdUseObj_Click()
 
Dim intRate As Integer
Dim strText As String
intRate = Me.SliderRate  '设置朗读速度
If intRate > 10 Then intRate = 10
If intRate < -10 Then intRate = -10
 strText = txtContent.Value
        Call gf_SpeekByApi(strText, intRate)
End Sub
 
Private Sub Command143_Click()
Dim strText As String
Dim intRat As Integer
Dim intVol As Integer
Dim intId As Integer
 
    strText = Me.txtContent  '要读的内容
    intRat = Me.SliderRate  '语速
    intVol = Me.SliderVolume  '音量
    intId = Me.lstVoiceID.ListIndex '朗读者
    
 '.................................
 '.................................
End If
 
  Call gf_Speek(strText, intRat, intVol, intId)
  
End Sub
 
'===============================================================================
'-函数名称:     gf_Speek
'-功能描述:     朗读文本内容
'-输入参数说明: 参数1: 必选 strSpeak As String 朗读的文本内容
'               参数2: 可选 IntRate As Integer  设置朗读的速度 范围：-10到+10
'               参数3: 可选 intVolume As Integer  设置朗读的音量  范围：0到100
'               参数4: 可选 intVoiceID As Integer  朗读者ID
'-返回参数说明:
'-使用语法示例:  Call gf_Speek ("Office交流网")
'-参考:         网上资料
'-使用注意:     需要引用 Microsoft Speech Object Library
'-兼容性:
'-作者:         tmtony 参考 fans代码 微软代码
'-更新日期：    2006-07-21
'===============================================================================
Private Function gf_Speek(strSpeak As String, _
                Optional intRate As Integer = 0, _
                Optional intVolume As Integer = 50, _
                Optional intVoiceID As Integer = 0) As Boolean
                
On Error GoTo Err_gf_Speek
    Dim oVoise As New SpeechLib.SpVoice
    Dim intTotalSpeech As Integer
    
    intTotalSpeech = oVoise.GetVoices.Count '获取朗读者的数量
    
    If intTotalSpeech = 0 Then Exit Function
    
    '设置朗读者
    If intVoiceID > intTotalSpeech - 1 Then intVoiceID = 0
      '.................................
     '.................................
        
        oVoise.Speak strSpeak
        
    gf_Speek = True
    
Exit_gf_Speek:
    Exit Function
 
Err_gf_Speek:
    gf_Speek = False
    MsgBox Err.Description, 64, "Office中国"
    Resume Exit_gf_Speek
 
End Function
 
'===============================================================================
'-函数名称:     GetVoiceIDName
'-功能描述:     获取语音库朗读者名称
'-输入参数说明:
'-返回参数说明:
'-使用语法示例: MsgBox GetVoiceIDName
'-参考:         网上资料
'-使用注意:     需要引用 Microsoft Speech Object Library
'-兼容性:
'-作者:         tmtony 参考 fans代码 微软代码
'-更新日期：    2006-07-25
'===============================================================================
Private Function GetVoiceIDName() As String
Dim oVoise As New SpeechLib.SpVoice
Dim i As Integer
Dim intTotal As Integer
Dim cVoiceIDName As String
 
    intTotal = oVoise.GetVoices.Count
 
For i = 0 To intTotal - 1   '遍历语音库
    cVoiceIDName = StrReverse(oVoise.GetVoices.Item(i).ID)
    cVoiceIDName = StrReverse(Left(cVoiceIDName, InStr(cVoiceIDName, "\") - 1))
    '.................................
     '.................................
   Me.txtContent = "世界杯快乐！ 同学们暑假快乐！Office中国学员们好！"
   Me.SliderRate.Value = 0
   Me.SliderVolume.Value = 50
End Sub
 
 
'非引用方式朗读 可用于设置欢迎语
Public Function gf_SpeekByApi(strSpeech As String, Optional intRate As Integer = 1.5)
    Dim objSp As Object                         '声明对象
    On Error GoTo Err
 
    Set objSp = CreateObject("SAPI.SpVoice")    '创建朗读对象
    objSp.Rate = intRate                        '设置速度
                                                '设置音量
                                                '设置朗读者
    objSp.Speak strSpeech                       '朗读文本
    
Err:
    Set objSp = Nothing
End Function
 

 

发布人:zstmtony  
分享到：
点击次数：  更新时间：2019-04-19 09:55:09  【打印此页】  【关闭】
上一条：ERP之BOM树源码-Access经典源码剖析  下一条：Access智能搜索组合框-Access经典源码剖析


相关文章

热门文章

热门产品