我正在着手做VB软件,一个记忆软件,基本功能有三个:1、真人朗诵(TTS);2、测验游戏(连连看);3、利用遗忘曲线进行循环记忆。本人是非计算机专业学生,以业余的身份参加学校的创意大赛,想做个软件。难点也就这三个:怎样把TTS(text to speech)插入软件中? 怎样利用遗忘曲线来写代码? 连连看的设计思路?
有点基础的~~下面的是我在别的帖子里看到的朗读代码,试用后可以朗读,但语速稍微快了点。求高手把代码稍微改一下。 先在vb里引用microsoft speech object library 然后写代码, 在窗体上放一个文本框,然后放一按钮; 然后在写: Dim Ospeech1 As New SpVoice
Private Sub Command1_Click() Ospeech1.Speak Text1.Text End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Set Ospeech1 = Nothing End Sub
先在vb里引用microsoft speech object library
然后写代码,
在窗体上放一个文本框,然后放一按钮;
然后在写:
Dim Ospeech1 As New SpVoice
Private Sub Command1_Click()
Ospeech1.Speak Text1.Text
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set Ospeech1 = Nothing
End Sub
看看他们都有些什么东西可以操作...没准找到个什么speed啦,或者rate啦,嘿嘿Dim xxx As New SpVoice
xxx.Rate = 0
xxx.Speak "我们中国"
xxx.Rate = 1
xxx.Speak "我们中国"
xxx.Rate = 5
xxx.Speak "我们中国"
xxx.Rate = 10
xxx.Speak "我们中国"