Pues gracias a Celtilander, (miembro de gambas-es.org), que me paso un código para el reconocimiento de voz, he hecho este programa que es un embrión para controlar tu escritorio (y el sistema operativo en si) con la voz...
Link
Probarlo, y espero vuestros comentarios...
Saludos
NOTA: 20/09/2016
Versión 0.0.2:
Link
Para más detalles:
http://jsbsan.blogspot.com.es/2016/...ontrola-tu.html
Controlar Tu S.O. Mediante Voz
Subject: Controlar Tu S.O. Mediante Voz
Last edited by jsbsan on Tuesday, 20 September 2016, 04:42; edited 2 times in total
Last edited by jsbsan on Tuesday, 20 September 2016, 04:42; edited 2 times in total
| ControlVoz-0.0.1.tar.gz | ||
| Description: | Embrión de un sistema de control del sistema operativo por voz. |  Download |
| Filename: | ControlVoz-0.0.1.tar.gz | |
| Filesize: | 35.8 KB | |
| Downloaded: | 46 Time(s) | |
| ControlVoz-0.0.1.tar.gz | ||
| Description: | Embrión de un sistema de control del sistema operativo por voz. | Download |
| Filename: | ControlVoz-0.0.1.tar.gz | |
| Filesize: | 35.8 KB | |
| Downloaded: | 46 Time(s) | |
| ControlVoz-0.0.1.tar.gz | ||
| Description: | Embrión de un sistema de control del sistema operativo por voz. | Download |
| Filename: | ControlVoz-0.0.1.tar.gz | |
| Filesize: | 35.8 KB | |
| Downloaded: | 46 Time(s) | |
Subject: Re: Controlar Tu S.O. Mediante Voz
muy bueno, gracias por compartir
ya se me ocurrirá alguna idea para usar el componente.
Saludos.
ya se me ocurrirá alguna idea para usar el componente.
Saludos.
Subject: Re: Controlar Tu S.O. Mediante Voz
Last edited by vuott on Monday, 19 September 2016, 10:12; edited 3 times in total
Hola frater jsbsan !
Muy interesante el tu programa. ...como sabes yo soy un partidario de la mezcla de lenguajes..... (pero sin serpientes
)
Bueno, a mi no funciona adecuadamente TrayIcon... no se el porque... y por eso he borrado toda la parte con TrayIcon, usando solo el Formulario.
Tambien he cambiado la sigla de la lengua a italiano.
Entonces probé tu programa, funciona.
Ah... lo señalé en el foro de gambas-it.org !
He visto que el ejecutable speech.sh crea un file audio formato .flac, donde está guardado el audio de la palabra dicha. Pero las palabras largas son cortadas.
Claro que este no es un gran problema por el programa.
Muy interesante el tu programa. ...como sabes yo soy un partidario de la mezcla de lenguajes..... (pero sin serpientes
)Bueno, a mi no funciona adecuadamente TrayIcon... no se el porque... y por eso he borrado toda la parte con TrayIcon, usando solo el Formulario.
Tambien he cambiado la sigla de la lengua a italiano.
Entonces probé tu programa, funciona.
Ah... lo señalé en el foro de gambas-it.org !
He visto que el ejecutable speech.sh crea un file audio formato .flac, donde está guardado el audio de la palabra dicha. Pero las palabras largas son cortadas.
Claro que este no es un gran problema por el programa.
Last edited by vuott on Monday, 19 September 2016, 10:12; edited 3 times in total
Subject: Re: Controlar Tu S.O. Mediante Voz
Ahora no tengo micro... 
Hace años tenía un software de voz que usaba en windows95, venía son la SoundBlaster Awe 32.
Ejecutaba aplicaciones con la voz. Y otra tambien permitía leer textos y cantaba!.
Aquí os muestro un ejemplo con la aplicación Text Assist. Textole. Es una demo.
Merece la pena verlo y escucharlo, además fijo que os reís con las voces.
Link
El micro que incorporaba está tarjeta de vídeo, permitía recibir los sonidos que estaban cerca, pero no los lejanos.
La verdad es que ver eso por primera vez era realmente interesante.
Si a eso se le añade, que según dictas va escribiendo. Eso ya no era capaz de hacerlo.
Aunque eso estamos un poco más acostumbrado hoy con el sistema androide, internet, Google, etc.
Saludos
Hace años tenía un software de voz que usaba en windows95, venía son la SoundBlaster Awe 32.
Ejecutaba aplicaciones con la voz. Y otra tambien permitía leer textos y cantaba!.
Aquí os muestro un ejemplo con la aplicación Text Assist. Textole. Es una demo.
Merece la pena verlo y escucharlo, además fijo que os reís con las voces.
Link
El micro que incorporaba está tarjeta de vídeo, permitía recibir los sonidos que estaban cerca, pero no los lejanos.
La verdad es que ver eso por primera vez era realmente interesante.
Si a eso se le añade, que según dictas va escribiendo. Eso ya no era capaz de hacerlo.
Aunque eso estamos un poco más acostumbrado hoy con el sistema androide, internet, Google, etc.
Saludos
Subject: Re: Controlar Tu S.O. Mediante Voz
Vout:
El script, se puede configurar para que escuche más tiempo (solo escucha 2 segundos, que esta bien para órdenes cortas) y en otros idiomas (esta por defecto en español).
Saludos
Citar:
El script, se puede configurar para que escuche más tiempo (solo escucha 2 segundos, que esta bien para órdenes cortas) y en otros idiomas (esta por defecto en español).
Saludos
Subject: Re: Controlar Tu S.O. Mediante Voz
Sì, yo intuí que fuera así, pero no hay cambio, también poniendo otros valores de la duración.
Pero es claro que este no es una cosa importante por el programa.
Last edited by vuott on Monday, 19 September 2016, 20:19; edited 1 time in total
jsbsan escribió: [Ver mensaje]
Sì, yo intuí que fuera así, pero no hay cambio, también poniendo otros valores de la duración.
Pero es claro que este no es una cosa importante por el programa.
Last edited by vuott on Monday, 19 September 2016, 20:19; edited 1 time in total
Subject: Re: Controlar Tu S.O. Mediante Voz
Me parece estupendo!!!
Hay ciertos campos donde me parece que gambas está flojo, y este con este tipo de ayuda, mejora mucho.
Es probable que hable de más como buen ignorante que soy, pero me parece que sería interesante que se pudiesen instalar componentes de terceros en gambas, que permitiese un uso extendido con funcionalidades como estas, que quizás no deba llevar la versión oficial (igual si lo hace, y estoy hablando de más... pero como dicen en mi tierra, "o falar non ten cancelas"-> hablar no tiene puertas...)
Hay ciertos campos donde me parece que gambas está flojo, y este con este tipo de ayuda, mejora mucho.
Es probable que hable de más como buen ignorante que soy, pero me parece que sería interesante que se pudiesen instalar componentes de terceros en gambas, que permitiese un uso extendido con funcionalidades como estas, que quizás no deba llevar la versión oficial (igual si lo hace, y estoy hablando de más... pero como dicen en mi tierra, "o falar non ten cancelas"-> hablar no tiene puertas...)
Subject: Re: Controlar Tu S.O. Mediante Voz
Interesante, deja pensando en muchas aplicaciones que podrian incluir un interprete para dictarle los contenidos al programa en ves de escribirlos.
Este código que hice lee en voz alta los textos que se le pase y tambien se le puede pasar el idioma, por ahi sirve de algo. yo lo use para lleer el texto de un textbox cuando hacia click en el .
Este código que hice lee en voz alta los textos que se le pase y tambien se le puede pasar el idioma, por ahi sirve de algo. yo lo use para lleer el texto de un textbox cuando hacia click en el .
Public Sub Record(stxText As String[], stxFiles As String[], stxLang As String[])
Dim intTxt As Integer
Dim wtcStat As Watch
Dim strState As String
Dim strSpechPath As String
Dim strSpechText As String
Dim strLanguage As String
For intTxt = 0 To stxText.Max
strSpechPath = stxFiles[intTxt]
strSpechText = stxText[intTxt]
strLanguage = Lower(stxLang[intTxt])
Select strLanguage
Case "spanish", "español", "es"
strLanguage = "es-ES"
Case "english", "ingés", "en"
strLanguage = "en-GB"
Case "french", "francés", "fr"
strLanguage = "fr-FR"
Case "italian", "italiano", "it"
strLanguage = "it-IT"
Case "german", "alemán", "de"
strLanguage = "de-DE"
Case Else
strLanguage = "es-ES"
End Select
Try Kill strSpechPath
strRecordState = "Opened"
Exec ["pico2wave", "-l", strLanguage, "-w", strSpechPath, "\"" & strSpechText & "\""]
Exec ["mplayer", strSpechPath]
If Exist(strSpechPath) = True Then
wtcStat = New Watch(strSpechPath) As "RecordState"
Endif
While strRecordState = "Opened"
Wait 1
Wend
Next
End
Public Sub Speak(stxFiles As String[])
Dim intTxt As Integer
Dim wtcSpeak As Watch
Dim strSpechPath As String
For intTxt = 0 To stxFiles.Max
strSpeakState = "Opened"
strSpechPath = stxFiles[intTxt]
Exec ["mplayer", strSpechPath]
If Exist(strSpechPath) = True Then
wtcSpeak = New Watch(strSpechPath) As "SpeakState"
Endif
While strSpeakState = "Opened"
Wait 1
Wend
Next
End
Public Sub RecordState_Open()
strRecordState = "Opened"
End
Public Sub RecordState_Close()
strRecordState = "Closed"
End
Public Sub SpeakState_Open()
strSpeakState = "Opened"
End
Public Sub SpeakState_Close()
strSpeakState = "Closed"
End
Dim intTxt As Integer
Dim wtcStat As Watch
Dim strState As String
Dim strSpechPath As String
Dim strSpechText As String
Dim strLanguage As String
For intTxt = 0 To stxText.Max
strSpechPath = stxFiles[intTxt]
strSpechText = stxText[intTxt]
strLanguage = Lower(stxLang[intTxt])
Select strLanguage
Case "spanish", "español", "es"
strLanguage = "es-ES"
Case "english", "ingés", "en"
strLanguage = "en-GB"
Case "french", "francés", "fr"
strLanguage = "fr-FR"
Case "italian", "italiano", "it"
strLanguage = "it-IT"
Case "german", "alemán", "de"
strLanguage = "de-DE"
Case Else
strLanguage = "es-ES"
End Select
Try Kill strSpechPath
strRecordState = "Opened"
Exec ["pico2wave", "-l", strLanguage, "-w", strSpechPath, "\"" & strSpechText & "\""]
Exec ["mplayer", strSpechPath]
If Exist(strSpechPath) = True Then
wtcStat = New Watch(strSpechPath) As "RecordState"
Endif
While strRecordState = "Opened"
Wait 1
Wend
Next
End
Public Sub Speak(stxFiles As String[])
Dim intTxt As Integer
Dim wtcSpeak As Watch
Dim strSpechPath As String
For intTxt = 0 To stxFiles.Max
strSpeakState = "Opened"
strSpechPath = stxFiles[intTxt]
Exec ["mplayer", strSpechPath]
If Exist(strSpechPath) = True Then
wtcSpeak = New Watch(strSpechPath) As "SpeakState"
Endif
While strSpeakState = "Opened"
Wait 1
Wend
Next
End
Public Sub RecordState_Open()
strRecordState = "Opened"
End
Public Sub RecordState_Close()
strRecordState = "Closed"
End
Public Sub SpeakState_Open()
strSpeakState = "Opened"
End
Public Sub SpeakState_Close()
strSpeakState = "Closed"
End
Subject: Re: Controlar Tu S.O. Mediante Voz
Tincho:
Gracias por el aporte, una cosa a agregar más
Por otro lado, ya he subido la versión 0.0.2, explicando con un nuevo video, las acciones que realiza
Comandos reconocidos:
Terminal
Consola
Gimp
Caja
Navegador
Ayuda
Link
Para más detalles:
http://jsbsan.blogspot.com.es/2016/...ontrola-tu.html
Gracias por el aporte, una cosa a agregar más
Por otro lado, ya he subido la versión 0.0.2, explicando con un nuevo video, las acciones que realiza
Comandos reconocidos:
Terminal
Consola
Gimp
Caja
Navegador
Ayuda
Link
Para más detalles:
http://jsbsan.blogspot.com.es/2016/...ontrola-tu.html
Subject: Re: Controlar Tu S.O. Mediante Voz
No usando programa externo con Exec:
https://foro.gambas-es.org/viewtopic.php?f=5&t=3587
Last edited by vuott on Tuesday, 20 September 2016, 08:14; edited 1 time in total
tincho escribió: [Ver mensaje]
No usando programa externo con Exec:
https://foro.gambas-es.org/viewtopic.php?f=5&t=3587
Last edited by vuott on Tuesday, 20 September 2016, 08:14; edited 1 time in total
Page 1 of 1
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1089s (PHP: -7% SQL: 107%)
SQL queries: 29 - Debug Off - GZIP Enabled