anyone tried SAPI?
if so please comment on how good n accurate it is
thank you
Printable View
anyone tried SAPI?
if so please comment on how good n accurate it is
thank you
The accuracy all depends on how much you train the engine and what quality microphone you have.
However, this technology is somewhat experimental, therefor it's not something to rely on.
I have tried it, even after many training the accuracy isnt what i expected.
is it worth spending 10 bucks on a mic?
and the training?
Training? That's all done in your engines settings. You don't have to pay for it.
If you are really interested in SAPI, I suggest you buy a Microphone. It can be quite fun to experiment with.
ya i meant like paying 10 bucks for the microphone. (even thou i dont have to pay for it, the company does ) :)
and about the engine
i meant like spending time on it (wasting time on it)
thats why i asked if its worth it..
Well it's not something to deveote your career too, but I personally think it's worth knowing a little bit about it. Even if it's minimal. I can start you off with an easy example if you like. Add a TextBox and a
Microsfot Direct Text-To-Speech control (from the components list) and insert the following code into it.
The engine will speak whatever is in Text1.Code:DirectSS1.Speak Text1.Text
This next example will "hear" you and respond to you depending on what you say. Add a Text-to-Speech and Direct Recognition control and insert the following code into it.
If you say hello or goodbye your computer should respond.Code:Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
If Phrase = "hello" Then DirectSS1.Speak "Hello to you too"
If Phrase = "goodbye" Then DirectSS1.Speak "See you later"
End Sub
Private Sub Form_Load()
' The following are words that the Engine will reconize
DirectSR1.GrammarFromString "[Grammar]" + vbNewLine + _
"type=cfg" + vbNewLine + _
"[<start>]" + vbNewLine + _
"<start>=goodbye" + vbNewLine + _
"<start>=hello" + vbNewLine
DirectSR1.Activate
End Sub