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
Objetivo: Controlar Tu S.O. Mediante Voz
última edición por jsbsan el Martes, 20 Septiembre 2016, 04:42; editado 2 veces
última edición por jsbsan el Martes, 20 Septiembre 2016, 04:42; editado 2 veces
| ControlVoz-0.0.1.tar.gz | ||
| Descripción: | Embrión de un sistema de control del sistema operativo por voz. |  Descargar |
| Nombre del archivo: | ControlVoz-0.0.1.tar.gz | |
| Tamaño: | 35.8 KB | |
| Descargado: | 46 veces | |
| ControlVoz-0.0.1.tar.gz | ||
| Descripción: | Embrión de un sistema de control del sistema operativo por voz. | Descargar |
| Nombre del archivo: | ControlVoz-0.0.1.tar.gz | |
| Tamaño: | 35.8 KB | |
| Descargado: | 46 veces | |
| ControlVoz-0.0.1.tar.gz | ||
| Descripción: | Embrión de un sistema de control del sistema operativo por voz. | Descargar |
| Nombre del archivo: | ControlVoz-0.0.1.tar.gz | |
| Tamaño: | 35.8 KB | |
| Descargado: | 46 veces | |
Objetivo: 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.
Objetivo: Re: Controlar Tu S.O. Mediante Voz
última edición por vuott el Lunes, 19 Septiembre 2016, 10:12; editado 3 veces
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.
última edición por vuott el Lunes, 19 Septiembre 2016, 10:12; editado 3 veces
Objetivo: 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
Objetivo: 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
Objetivo: 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.
última edición por vuott el Lunes, 19 Septiembre 2016, 20:19; editado 1 vez
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.
última edición por vuott el Lunes, 19 Septiembre 2016, 20:19; editado 1 vez
Objetivo: 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...)
Objetivo: 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
Objetivo: 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
Objetivo: Re: Controlar Tu S.O. Mediante Voz
No usando programa externo con Exec:
https://foro.gambas-es.org/viewtopic.php?f=5&t=3587
última edición por vuott el Martes, 20 Septiembre 2016, 08:14; editado 1 vez
tincho escribió: [Ver mensaje]
No usando programa externo con Exec:
https://foro.gambas-es.org/viewtopic.php?f=5&t=3587
última edición por vuott el Martes, 20 Septiembre 2016, 08:14; editado 1 vez
Página 1 de 1
No puede crear mensajesNo puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4261s (PHP: -68% SQL: 168%)
Consultas SQL: 51 - Debug off - GZIP Activado