vb.net SpeechLib 播报语音封装类

vb.net 使用SpeechLib 播报汉字语音，如果第一句没说完就让它说第二句，可以中止前一句，也可以等前一句说完再说第二句。调用Skip方法即可。

先引用microsoft speech lib object library。

封装实现：


Imports SpeechLib
Imports System.ThreadingPublic Class SpeakerPrivate ReadOnly Speaker As New SpVoicePublic Property Volume() As Int16 = 100Public Property Rate() As Int16 = 0Public Sub Speak(Content As String, enginee As String)Dim t As Threadt = New Thread(AddressOf Speak)t.IsBackground = Truet.Start(New String(1) {Content, enginee})End SubPublic Sub Speak(param() As String)Dim Voices As ISpeechObjectTokens = Speaker.GetVoices()Dim cnVoice As Integer = -1If (Voices.Count = 0) ThenDebug.Print("没有安装语音引擎")Exit SubEnd IfFor i = 0 To Voices.Count - 1If Right(Voices.Item(i).GetDescription, Len(param(1))) = param(1) ThencnVoice = iExit ForEnd IfNextIf cnVoice < 0 Or cnVoice > Voices.Count - 1 ThenDebug.Print("指定的语音引擎不存在")Exit SubEnd IfSpeaker.Voice = Voices(cnVoice)Speaker.Rate = RateSpeaker.Volume = VolumeSpeaker.Skip("Sentence", 1)    '终止前一句Speaker.Speak(param(0), SpeechVoiceSpeakFlags.SVSFlagsAsync)   '异步参数，防止卡住End Sub
End Class

如何调用：

窗体准备两个按钮，两个文本框。一个combobox

Imports SpeechLibPublic Class Form1Dim speaker As New SpeakerPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickspeaker.Rate = -10speaker.Volume = 100speaker.Speak(TextBox1.Text, ComboxVoice.Text)End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadDim Speaker As New SpVoiceDim Voices As ISpeechObjectTokens = Speaker.GetVoices()For Each x As ISpeechObjectToken In VoicesComboxVoice.Items.Add(x.GetDescription)NextIf ComboxVoice.Items.Count > 0 ThenComboxVoice.SelectedIndex = 0End IfEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clickspeaker.Rate = 10speaker.Volume = 100speaker.Speak(TextBox2.Text, ComboxVoice.Text)End Sub
End Class

点一个按钮，然后接着点第二个按钮，测试一下能不能中断第一句话接着说第二句话。如果不想中断，把类里面的_Speaker.Skip("Sentence", 1) 这句代码删除即可。

vb.net SpeechLib 播报语音封装类相关推荐

0-100数字播报语音包
0-100数字播报语音包 0-100号的叫号语音包,有mp3和wav两个版本,下载连接链接:https://download.csdn.net/download/weixin_41502276/182 ...
vue js 语音播报语音读文字 window.speechSynthesis new SpeechSynthesisUtterance (补充无声音问题解决办法)
存在问题1 : 在google chrome 89版本之后默认使用的线上服务来合成语音所以在国内可能会没有声音解决办法 : 通过getVoices 获取 localService为true 的字 ...
语音播报——用setTimeout实现轮询调用接口并播报语音功能
应用场景:对于订单管理系统,如果有订单来了,希望能够及时提醒的话,语音播报是一个很好的方式功能: 勾选语音播报,则会间隔15s去调用接口,如果接口返回数据则进行音频的播报如果不勾选语音播报或者取消 ...
vb.net 文本转语音
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Lo ...
如何在Electron中打造实现语音合成播放，让Windows自带TTS助你实现离线流畅语音播报语音朗读功能
使用Electron和Windows自带TTS进行语音合成播放 const path = require('path'); const { spawn } = require('child_proce ...
uniapp实现微信小程序websocket+背景音频语音播报
业务需求:根据后台返回消息播报语音,要求后台运行可继续播报实现步骤: 建立socket连接监听消息,并建立心跳检测机制,防止socket意外断连将接收到的文字信息转化为音频文件使用uni.get ...
TTS语音播报模块UNV6288的使用方法
TTS即text to sound, 输入字符它可以帮你转化为语音输出. UNV6288可以实现中文.英文.数字的语音合成.用户也可以定义语音大小速度等参数. 这个模块的控制方式很简单,只要通过 TT ...
使用谷歌浏览器的speechSynthesis的API，实现语音播报功能
今天给大家分享一个,使用谷歌自带的API实现语音播报的功能,可以在项目预警上使用! 实现效果: 代码如下: <!DOCTYPE html> <html><head> ...
python 天气预报制作_Python 制作语音天气预报播报程序
之前在参加Python爬虫小分队的学习时,爬取过中国天气网这个网站,可以通过爬虫获取当地的天气信息,今天和大家分享一个将爬虫得到的天气文本信息通过百度语音合成接口制作成语音文件,并进行语音播报. 百度 ...
来电语音播报软件下载apk_来电播报下载-来电播报app安卓版下载v1.2.0-游侠软件下载...
来电播报是一款能够播报来电人姓名.号码和短信内容的应用软件,使用来电播报,用户在开车或是不方便查看信息的时候,也能知道是谁来电,有需要的朋友赶快下载吧! 来电播报app介绍来电播报APP是通过获取来 ...

vb.net SpeechLib 播报语音封装类

vb.net SpeechLib 播报语音封装类相关推荐

最新文章

热门文章