Jump to content

Recommended Posts

Posted

I would simply like to control the speed withint the TalkOBJ function, I tried to mod something thinking, who knows maybe it will work. Here is what I did.

_TalkOBJ("I Hope This Works", 60)

_TalkOBJ("I Hope This Works Again", 40)

Func _TalkOBJ($s_text, $s_speed)

Local $o_speech = ObjCreate("SAPI.SpVoice")

$o_speech.Speak($s_text)

$o_speech.Speed($s_speed) ; modded part which doesnt work

$o_speech = ""

EndFunc

Posted

This one works

;Speak("text to speak", 1-10 rate of speaking,
;0 - 100 Colume
$input=InputBox("Text to Speak", "Type Text")
Dim $voice = ObjCreate("Sapi.SpVoice")
Func Speak($Text, $Rate, $Vol) 
$voice.Rate = $Rate
$voice.Volume = $Vol
$voice.Speak($Text)
EndFunc
Speak($input, 1, 100)


Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Posted

$o_speech.Speed($s_speed)

is before

$o_speech.Speak($s_text)

8)

Now I keep getting "The requested action with this object has failed." error when I run

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...