014 TTS语音播报

IPSC1978.GICP.NET

014 TTS语音播报 - 文章首页→返回版区

■标题:014 TTS语音播报

■作者:IPSC [2025/3/26 14:56:55]
类库加上TTS

[vb]

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

[/vb]

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】(暂无)

(查看完整版网页)

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