Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: rub'n en 27 Abril 2019, 20:55 pm


Título: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 27 Abril 2019, 20:55 pm
que tal chavales pues tengo lo siguiente

Código
  1. Dim message, sapi
  2. message="niño algo con ñ"
  3. Set sapi=CreateObject("sapi.spvoice")
  4. sapi.Speak message
  5.  

Necesito reproducir las ñ, pero no lo logro  :-\

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 28 Abril 2019, 20:26 pm
Código
  1.         Dim message, sapi
  2.         message = "el ninio no sabe lo que es un monio en la cabeza"
  3.  
  4.         sapi = CreateObject("sapi.spvoice")
  5.         sapi.Speak(message)



Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 28 Abril 2019, 20:28 pm
Cita de: FJDA en 28 Abril 2019, 20:26 pm
Código
  1.         Dim message, sapi
  2.         message = "el ninio no sabe lo que es un monio en la cabeza"
  3.  
  4.         sapi = CreateObject("sapi.spvoice")
  5.         sapi.Speak(message)

gracias dog, voy a probar, pero creo que habia probado algo parecido sin resultado. te aviso.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 28 Abril 2019, 20:29 pm
Cita de: rub'n en 28 Abril 2019, 20:28 pm
gracias dog, voy a probar, pero creo que habia probado algo parecido sin resultado. te aviso.

más lento

Código
  1.    Dim message, sapi
  2.         message = "el ninio no sabe lo que es un monio en la cabeza"
  3.         sapi = CreateObject("sapi.spvoice")
  4.         sapi.rate = -5
  5.         sapi.Speak(message)
  6.  

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 28 Abril 2019, 20:30 pm
Cita de: FJDA en 28 Abril 2019, 20:29 pm
más lento

Código
  1.    Dim message, sapi
  2.         message = "el ninio no sabe lo que es un monio en la cabeza"
  3.         sapi = CreateObject("sapi.spvoice")
  4.         sapi.rate = -5
  5.         sapi.Speak(message)
  6.  

voy directo a abrir la vm ya va.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 28 Abril 2019, 20:32 pm
Cita de: rub'n en 28 Abril 2019, 20:30 pm
voy directo a abrir la vm ya va.

ops esto es perfecto ahora si que si  ;)

Lo pongo de las dos maneras para veas la diferencia
Código
  1.         Dim message, message2, sapi
  2.  
  3.         message = "el ninio no sabe lo que es un monio en la cabeza"
  4.         message2 = "el ninyo no sabe lo que es un monyo en la cabeza"
  5.         sapi = CreateObject("sapi.spvoice")
  6.         sapi.rate = -5
  7.         sapi.Speak(message)
  8.         sapi.Speak(message2)
  9.  


El código me he fijado que has puesto sapi.Speak message sin el paréntesis, entiendo lo pones como para vbscript y no para NET.

Es que para NET tienes la clase  SpeechSynthesizer
https://docs.microsoft.com/es-es/dotnet/api/system.speech.synthesis.speechsynthesizer.volume?view=netframework-4.8 (https://docs.microsoft.com/es-es/dotnet/api/system.speech.synthesis.speechsynthesizer.volume?view=netframework-4.8)


Tienes que agregar referencia de  System.Speech y luego importar esto

Código
  1. Imports System.Speech.Synthesis
  2.  

En C#
Código
  1. using System.Speech.Synthesis;
  2.  

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 28 Abril 2019, 21:02 pm
Cita de: FJDA en 28 Abril 2019, 20:32 pm
ops esto es perfecto ahora si que si  ;)

Lo pongo de las dos maneras para veas la diferencia
Código
  1.         Dim message, message2, sapi
  2.  
  3.         message = "el ninio no sabe lo que es un monio en la cabeza"
  4.         message2 = "el ninyo no sabe lo que es un monyo en la cabeza"
  5.         sapi = CreateObject("sapi.spvoice")
  6.         sapi.rate = -5
  7.         sapi.Speak(message)
  8.         sapi.Speak(message2)
  9.  


El código me he fijado que has puesto sapi.Speak message sin el paréntesis, entiendo lo pones como para vbscript y no para NET.

Es que para NET tienes la clase  SpeechSynthesizer
https://docs.microsoft.com/es-es/dotnet/api/system.speech.synthesis.speechsynthesizer.volume?view=netframework-4.8 (https://docs.microsoft.com/es-es/dotnet/api/system.speech.synthesis.speechsynthesizer.volume?view=netframework-4.8)


Tienes que agregar referencia de  System.Speech y luego importar esto

Código
  1. Imports System.Speech.Synthesis
  2.  

En C#
Código
  1. using System.Speech.Synthesis;
  2.  

si tal cual era para vbs , pero esta funcionando dog

Pues mi idea era reproducir un sonido desde java, o sea, escribo ese fichero en el directorio temporal con java, y lo  abro desde java, o sea, lo reproduzco.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 28 Abril 2019, 21:11 pm
pues si te vale para "que" dice "kiu" porque en inglés la u la pronuncia iu

En su lugar pones "[k]e"  (sin los corchetes)

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: Eleкtro en 28 Abril 2019, 21:11 pm
No entiendo cual es el problema que teneis, ya que en mi caso y sistema operativo (Windows 10) las dos voces SAPI que tengo instaladas, es decir, Español de España (Helena) e Inglés de EEUU (Zira) reproducen perfectamente la entonación de la letra "Ñ".

De todas formas, el código que habeis puesto, para VisualBasicScript bien, pero en .NET deberiais utilizar la clase System.Speech.Synthesis.SpeechSynthesizer...

Código
  1. Dim synth As New SpeechSynthesizer()

Pongo varios ejemplos útiles:

Seleccionar voz sintética femenina en Español de España.
Código
  1. synth.SelectVoice("Microsoft Helena Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Seleccionar voz sintética femenina en Inglés de EEUU.
Código
  1. synth.SelectVoice("Microsoft Zira Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")
( en masculino creo que se llamaba "Microsoft David Desktop" )

Seleccionar voz sintética por género, año y localización.
Código
  1. synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Iterar todas las voces instaladas en el sistema.
Código
  1. For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()
  2.  
  3.     Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo
  4.  
  5.     Dim sb As New StringBuilder()
  6.     sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
  7.                     NameOf(voiceInfo.Name), voiceInfo.Name,
  8.                     NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
  9.                     NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
  10.                     NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
  11.                     NameOf(installedVoice.Enabled), installedVoice.Enabled)
  12.     Console.WriteLine(sb.ToString())
  13.  
  14.     If (installedVoice.Enabled) Then
  15.         synth.SelectVoice(voiceInfo.Name)
  16.         synth.Rate = -5
  17.         synth.Speak("¡Viva España!")
  18.     End If
  19.  
  20. Next

Saludos.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 28 Abril 2019, 21:14 pm
Cita de: Eleкtro en 28 Abril 2019, 21:11 pm
No entiendo cual es el problema que teneis, ya que en mi caso y sistema operativo (Windows 10) las dos voces SAPI que tengo instaladas, es decir, Español de España (Helena) e Iglés de EEUU (Zira) reproducen perfectamente la entonación de la letra "Ñ".

De todas formas, el código que habeis puesto, para VisualBasicScript bien, pero en .NET deberiais utilizar la clase System.Speech.Synthesis.SpeechSynthesizer...

Código
  1. Dim synth As New SpeechSynthesizer()

Pongo varios ejemplos útiles:

Seleccionar voz sintética femenina en Español de España.
Código
  1. synth.SelectVoice("Microsoft Helena Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Seleccionar voz sintética femenina en Inglés de EEUU.
Código
  1. synth.SelectVoice("Microsoft Zira Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Seleccionar voz sintética por género, año y localización.
Código
  1. synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Iterar todas las voces instaladas en el sistema.
Código
  1. For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()
  2.  
  3.     Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo
  4.  
  5.     Dim sb As New StringBuilder()
  6.     sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
  7.                     NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
  8.                     NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
  9.                     NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
  10.                     NameOf(installedVoice.Enabled), installedVoice.Enabled)
  11.     Console.WriteLine(sb.ToString())
  12.  
  13.     If (installedVoice.Enabled) Then
  14.         synth.SelectVoice(voiceInfo.Name)
  15.         synth.Rate = -5
  16.         synth.Speak("¡Viva España!")
  17.     End If
  18.  
  19. Next

Saludos.

En windows7 no lo pronuncia bien ni usando New System.Globalization.CultureInfo("es-ES") ya se lo digo yo, uso w7


parece que podría ser que fuese que pronuncie bien la Ñ dependiendo de si se tiene la voz adecuada instalada y bien configurada, independientemente de sistema operativo.
Luego el código posteado por electro funcionará o no si se tiene la voz seleccionada instalada, así esto no funciona si no está synth.SelectVoice("Microsoft Zira Desktop") synth.SelectVoice("Microsoft Helena Desktop")
tienes que tener a Zira Helena si no nada no funciona (Helena es para el español).
ver
https://es.switch-case.com/62941538 (https://es.switch-case.com/62941538)

y si se usa vbs entonces es el que tenga el sistema por defecto


...

yo tengo "Microsoft Anna"
En el registro de windows se puede ver las voces
HKEY_CURRENT_USER\Software\Microsoft\Speech\Voices

en DefaultTokenId aparece la siguiente voz
Código:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\MS-Anna-1033-20-DSK

Código
  1.         Dim synth As New SpeechSynthesizer()
  2.         synth.SelectVoice("Microsoft Anna")
  3.         synth.Rate = -5
  4.         synth.Speak("¡Viva España!")
  5.  


Desde panel de control

Panel de control   Reconocimiento de voz\Texto de voz ahí aparecen las voces e idiomas disponibles

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: Eleкtro en 28 Abril 2019, 21:32 pm
Cita de: FJDA en 28 Abril 2019, 21:14 pm
uso w7

Entonces supongo que si @rub'n tiene el mismo problema, también estará usando Windows 7. Y entonces el problema real sería la obsolescencia de un sistema operativo, cuya solución más viable siempre será actualizar la versión del S.O, o en su defecto descargar y actualizar el motor SAPI y las voces sintéticas para ese S.O... en caso de que se pueda (por los requisitos mínimos de la versión del S.O).


Cita de: FJDA en 28 Abril 2019, 21:14 pm
el código posteado por electro funcionará o no si se tiene la voz seleccionada instalada, así esto no funciona si no está synth.SelectVoice("Microsoft Zira Desktop")

Logicamente se puede utilizar la voz por defecto, no es obligatorio seleccionar una voz específica mediante el método SelectVoice. Aparte, el método SelectVoiceByHints siempre seleccionará una voz (en caso de que haya al menos una voz instalada), si no se encuentra la voz mediante los parámetros especificados entonces la se usará la voz por defecto.

Saludos.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 28 Abril 2019, 21:33 pm
Cita de: Eleкtro en 28 Abril 2019, 21:11 pm
No entiendo cual es el problema que teneis, ya que en mi caso y sistema operativo (Windows 10) las dos voces SAPI que tengo instaladas, es decir, Español de España (Helena) e Inglés de EEUU (Zira) reproducen perfectamente la entonación de la letra "Ñ".

De todas formas, el código que habeis puesto, para VisualBasicScript bien, pero en .NET deberiais utilizar la clase System.Speech.Synthesis.SpeechSynthesizer...

Código
  1. Dim synth As New SpeechSynthesizer()

Pongo varios ejemplos útiles:

Seleccionar voz sintética femenina en Español de España.
Código
  1. synth.SelectVoice("Microsoft Helena Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Seleccionar voz sintética femenina en Inglés de EEUU.
Código
  1. synth.SelectVoice("Microsoft Zira Desktop")
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")
( en masculino creo que se llamaba "Microsoft David Desktop" )

Seleccionar voz sintética por género, año y localización.
Código
  1. synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
  2. synth.Rate = -5
  3. synth.Speak("¡Viva España!")

Iterar todas las voces instaladas en el sistema.
Código
  1. For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()
  2.  
  3.     Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo
  4.  
  5.     Dim sb As New StringBuilder()
  6.     sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
  7.                     NameOf(voiceInfo.Name), voiceInfo.Name,
  8.                     NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
  9.                     NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
  10.                     NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
  11.                     NameOf(installedVoice.Enabled), installedVoice.Enabled)
  12.     Console.WriteLine(sb.ToString())
  13.  
  14.     If (installedVoice.Enabled) Then
  15.         synth.SelectVoice(voiceInfo.Name)
  16.         synth.Rate = -5
  17.         synth.Speak("¡Viva España!")
  18.     End If
  19.  
  20. Next

Saludos.

gracias myLord me viene muy bien eso.

Cita de: FJDA en 28 Abril 2019, 21:14 pm
En windows7 no lo pronuncia bien ni usando New System.Globalization.CultureInfo("es-ES") ya se lo digo yo, uso w7


parece que podría ser que fuese que pronuncie bien la Ñ dependiendo de si se tiene la voz adecuada instalada y bien configurada, independientemente de sistema operativo.
Luego el código posteado por electro funcionará o no si se tiene la voz seleccionada instalada, así esto no funciona si no está synth.SelectVoice("Microsoft Zira Desktop")
tienes que tener a Zira si no nada no funciona.
ver
https://es.switch-case.com/62941538 (https://es.switch-case.com/62941538)

y si se usa vbs entonces es el que tenga el sistema por defecto


tal cual my lord, gracias por esa.

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 28 Abril 2019, 21:34 pm
Cita de: Eleкtro en 28 Abril 2019, 21:32 pm
Entonces supongo que si @rub'n tiene el mismo problema, también estará usando Windows 7. Y entonces el problema real sería la obsolescencia de un sistema operativo, cuya solución más viable siempre será actualizar la versión del S.O, o en su defecto descargar y actualizar el motor SAPI y las voces sintéticas para ese S.O... en caso de que se pueda (por los requisitos mínimos de la versión del S.O).

Saludos.

si bueno  :-[ ando en windows 7 ahora, pero en la VM tengo el 10

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: FJDA en 29 Abril 2019, 00:16 am
e buscado y parece que solo a partir de windows 8 se puede usar la voz Helena. Si no se tiene se puede instalar

Título: Re: Reproducir Ñ con sapi.voice
Publicado por: rub'n en 29 Abril 2019, 00:25 am
Muchas gracias chavales, no soy quien para decirles esto, fueron mas aya de lo que pedia. jajajaja

Aunque para mi ya esta bien, pero pues, seguro no me harán caso  :xD, y seguirán mejorando los códigos que ya pusieron  :xD


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines