请先登录 | 注册
WWW.MM0759.COM
014 TTS语音播报 - 文章首页→返回版区
■标题:014 TTS语音播报
■作者:IPSC [2025/3/26 14:56:55]
类库加上TTS




Sub Process_Globals




Dim TTS1 As TTS' 语音




End Sub




Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("1")




If TTS1.IsInitialized = False Then TTS1.Initialize("TTS1")' 语音

TTS1.SetLanguage("zh_CN",True)' 语音，中文zh_CN，英文en




End Sub




Sub btnSpeak_Click

  PlayTT

End Sub




Sub PlayTT




If TTS1.SetLanguage("zh_CN", "") = True Then' 语音

TTS1.SpeechRate = 1' 语音

TTS1.Pitch =1' 语音音高，1是默认女声，数字越大声音越尖

TTS1.Speak(EditText1.Text, True)' 语音'TTS1.Stop'关闭播报

End If' 语音




End Sub









【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】(暂无)
(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
50 毫秒 .