Sign in to follow this  
Followers 0
7h331337

is it possible

7 posts in this topic

is there any way i can make a speech to text app in autoit

thanks

Share this post


Link to post
Share on other sites



Before making a topic in the support forum it would be appreciated if you searched the forum.

There are numerous post which has examples of this. just like this one http://www.autoitscript.com/forum/index.ph...2895&hl=tts


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

Before making a topic in the support forum it would be appreciated if you searched the forum.

There are numerous post which has examples of this. just like this one http://www.autoitscript.com/forum/index.ph...2895&hl=tts

Meh, Thats Text-to-speech. He wants it the other way around; like speech recognition. If that is even possible, it certainly isn't native...

Share this post


Link to post
Share on other sites

Sorry my bad, :P. I know that microsoft has made some programs with speech recognition, which have used in the past, but i dont know if it would be possible to use an object or some dll from it


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

hi all iv been hunting and i found this in a vb script iv been trying to convert it but i can lol blowing my head of i was wondering if any one can help convert it thanks for all your help

CODE

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

sapiApp = New WizzSapiDll.sapiApplication()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim rc As Integer

With Button1

If .Text = "Mic On" Then

'activate, fill up command lists

rc = sapiApp.EngineActivate()

If rc = 0 Then

FillUpCommands(0) '1st fill

FillUpCommands(1) 'enable "main" command list

'start without main dictionary

sapiApp.Recognitionstart(False)

.Text = "Mic Off"

End If

Else

'stop and deactivate

sapiApp.Recognitionstop()

sapiApp.EngineDeactivate()

.Text = "Mic On"

End If

End With

End Sub

Private Sub FillUpCommands(ByVal nset As Integer)

Dim cmlist As WizzSapiDll.sapiCommandList

Select Case nset

Case 0

cmlist = sapiApp.sapiCommandLists.AddCommandList("main", False)

cmlist.AddCommand("Begin dictation")

cmlist.AddCommand("Turn microphone off")

cmlist = sapiApp.sapiCommandLists.AddCommandList("free", False)

cmlist.AddCommand("Stop dictation")

cmlist.AddCommand("Insert time")

cmlist.AddCommand("Insert date")

Case 1

With ListBox1.Items

.Clear()

.Add("Begin dictation")

.Add("Turn microphone off")

End With

sapiApp.sapiCommandLists.sapiCommandList("main").IsActive = True

sapiApp.sapiCommandLists.sapiCommandList("free").IsActive = False

Case Else

With ListBox1.Items

.Clear()

.Add("Stop dictation")

.Add("Insert time")

.Add("Insert date")

End With

sapiApp.sapiCommandLists.sapiCommandList("main").IsActive = False

sapiApp.sapiCommandLists.sapiCommandList("free").IsActive = True

End Select

cmlist = Nothing

End Sub

Private Sub sapiApp_MicrophoneVolume(ByVal Volume As Integer, ByVal ColorSection As String) Handles sapiApp.MicrophoneVolume

With Volume2

.Width = 102 - Volume

.Left = Volume1.Left + 1 + Volume

End With

End Sub

Private Sub sapiApp_RecognizedCommand(ByVal txtCommand As String, ByVal CommandListName As String) Handles sapiApp.RecognizedCommand

LblStatus.Text = txtCommand

If CommandListName = "main" Then

Select Case txtCommand

Case "Begin dictation"

sapiApp.Recognitionstop()

FillUpCommands(2) 'enable "free" command list

sapiApp.Recognitionstart(True)

Case "Turn microphone off"

Button1.PerformClick()

End Select

End If

If CommandListName = "free" Then

Select Case txtCommand

Case "Stop dictation"

sapiApp.Recognitionstop()

FillUpCommands(1) 'enable "main" command list

sapiApp.Recognitionstart(False)

Case "Insert time"

TextBox1.Text = TextBox1.Text & DateTime.Now.ToString("t") & " "

Case "Insert date"

TextBox1.Text = TextBox1.Text & DateTime.Now.ToString("d") & " "

End Select

End If

End Sub

Private Sub sapiApp_RecognizedText(ByVal txtWord As String, ByVal WordId As Integer, ByVal EndOfGroup As Boolean) Handles sapiApp.RecognizedText

LblStatus.Text = txtWord

TextBox1.Text = TextBox1.Text & txtWord

End Sub

Private Sub sapiApp_EngineState(ByVal MessageNumber As Integer, ByVal MessageDescription As String) Handles sapiApp.EngineState

LblStatus.Text = MessageDescription & " (" & MessageNumber.ToString() & ")"

End Sub

Private Sub sapiApp_SessionInterference(ByVal MessageNumber As Integer, ByVal MessageDescription As String) Handles sapiApp.SessionInterference

LblStatus.Text = MessageDescription & " (" & MessageNumber.ToString() & ")"

End Sub

Private Sub sapiApp_SessionStatus(ByVal MessageNumber As Integer, ByVal MessageDescription As String) Handles sapiApp.SessionStatus

LblStatus.Text = MessageDescription & " (" & MessageNumber.ToString() & ")"

End Sub

Private Sub sapiApp_RecognizedError(ByVal MessageNumber As Integer, ByVal MessageDescription As String) Handles sapiApp.RecognizedError

LblStatus.Text = "ERROR: " & MessageDescription & " (" & MessageNumber.ToString() & ")"

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

End Class

Share this post


Link to post
Share on other sites

stt programs are very VERY difficult to build because not only do you have to know how to filter out background noise, but to register voice patterns. and "teaching" the program too to recognize your voice.

there are some programs out there that sell for hundreds because its so complex.


[center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center]

Share this post


Link to post
Share on other sites

acctually it should be possible.... ive tryed to make one for a while... its not the patterns that u need its retrieving sound from microfon... i made a program that compares the resemblance of 2 different sounds. it works like pixelsearch shade variation. basically there are really many different possibilities. for one my shade-variation, .mp3 file size compares sizes like theres only differential 10-50 kbytes or patterns which really is complex.

Share this post


Link to post
Share on other sites

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
Sign in to follow this  
Followers 0