Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

培训

Access企业培训(现场)
Access在线培训

Access中级培训

Access高级培训

Access定制培训

Access树控件与BOM高级技巧

Access公开课
Access免费公开课视频
Access培训(VIP)
Access培训优惠信息

热门文章

  • 网站数据提取与采集-Acc..
  • Access列表框的高级应..
  • ERP之BOM树源码-Ac..
  • access图片分页展示及..
  • Access动画式关闭窗体..
  • 通用读取文本文件模块-Ac..

最新文章

  • Access自动播音员-A..
  • Access智能搜索组合框..
  • Access自动执行宏的妙..
  • access图片分页展示及..
  • 通用读取文本文件模块-Ac..
  • Access通用TAB键和..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址: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搜索: 搜索服务)

    更多联系方式:http://www.office-cn.net/t/training/officecontact.htm

 

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  【打印此页】  【关闭】
上一条:没有了  下一条:Access智能搜索组合框-Access经典源码剖析



相关文章

  • • Access智能搜索组合框-Access经典源码剖析
  • • Access自动执行宏的妙用-Access经典源码剖析
  • • access图片分页展示及选择功能-Access经典源码剖析
  • • 通用读取文本文件模块-Access经典源码剖析
  • • Access通用TAB键和默认值设置-Access经典源码剖析
  • • access图片文件保存到数据库的通用技巧-Access经典源码剖析
  • • 数据自动导出多个Excel或者多个工作表-Access经典源码剖析

热门文章

  • [2018-02-28] Access调用网页功能-版本自动更新-Access经典源码剖析access数据库
  • [2018-02-28] Access窗体控件-默认值的妙用-Access经典源码剖析access数据库
  • [2018-02-28] 通用读取文本文件模块-Access经典源码剖析access数据库
  • [2018-02-28] Access列表框的高级应用-Access经典源码剖析access数据库
  • [2018-02-28] Access动画式关闭窗体-Access经典源码剖析access数据库
  • [2018-02-28] Access系统设置及系统函数的应用-Access经典源码剖析access数据库

热门产品

  1. Access加密狗系统4.05新版发布

    Access加密狗系统4.05新版发布

  2. 适合国庆/元旦/中秋等节日抽奖的程序

    适合国庆/元旦/中秋等节日抽奖的程序

  3. 销售宝销售管理软件--让销售像“偷菜”一样简单!

    销售宝销售管理软件--让销售像“偷菜”一样简单!

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2021  www.metinfo.cn