is it possible

[7h331337]

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

thanks

[rambo3889]

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

[Paulie]

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...

[rambo3889]

Sorry my bad, . 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

[7h331337]

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

[Vindicator209]

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.

[Zibit]

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.