Reproducir Ñ con sapi.voice

[rub'n]

que tal chavales pues tengo lo siguiente

Código (vbnet) [Seleccionar] Expandir

Dim message, sapi
message="niño algo con ñ"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message


Necesito reproducir las ñ, pero no lo logro 

[FJDA]

Código (vbnet) [Seleccionar] Expandir

       Dim message, sapi
       message = "el ninio no sabe lo que es un monio en la cabeza"

       sapi = CreateObject("sapi.spvoice")
       sapi.Speak(message)

[rub'n]

Código (vbnet) [Seleccionar] Expandir

        Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"

        sapi = CreateObject("sapi.spvoice")
        sapi.Speak(message)

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

[FJDA]

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

más lento

Código (vbnet) [Seleccionar] Expandir


   Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
        sapi = CreateObject("sapi.spvoice")
        sapi.rate = -5
        sapi.Speak(message)


[rub'n]

más lento

Código (vbnet) [Seleccionar] Expandir


   Dim message, sapi
        message = "el ninio no sabe lo que es un monio en la cabeza"
        sapi = CreateObject("sapi.spvoice")
        sapi.rate = -5
        sapi.Speak(message)


voy directo a abrir la vm ya va.

[FJDA]

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 (vbnet) [Seleccionar] Expandir


       Dim message, message2, sapi

       message = "el ninio no sabe lo que es un monio en la cabeza"
       message2 = "el ninyo no sabe lo que es un monyo en la cabeza"
       sapi = CreateObject("sapi.spvoice")
       sapi.rate = -5
       sapi.Speak(message)
       sapi.Speak(message2)




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


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

Código (vbnet) [Seleccionar] Expandir


Imports System.Speech.Synthesis


En C#

Código (csharp) [Seleccionar] Expandir


using System.Speech.Synthesis;


[rub'n]

ops esto es perfecto ahora si que si  

Lo pongo de las dos maneras para veas la diferencia

Código (vbnet) [Seleccionar] Expandir


       Dim message, message2, sapi

       message = "el ninio no sabe lo que es un monio en la cabeza"
       message2 = "el ninyo no sabe lo que es un monyo en la cabeza"
       sapi = CreateObject("sapi.spvoice")
       sapi.rate = -5
       sapi.Speak(message)
       sapi.Speak(message2)




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


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

Código (vbnet) [Seleccionar] Expandir


Imports System.Speech.Synthesis


En C#

Código (csharp) [Seleccionar] Expandir


using System.Speech.Synthesis;


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.

[FJDA]

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)

[Eleкtro]

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 (vbnet) [Seleccionar] Expandir

Dim synth As New SpeechSynthesizer()

Pongo varios ejemplos útiles:

Seleccionar voz sintética femenina en Español de España.

Código (vbnet) [Seleccionar] Expandir

synth.SelectVoice("Microsoft Helena Desktop")
synth.Rate = -5
synth.Speak("¡Viva España!")

Seleccionar voz sintética femenina en Inglés de EEUU.

Código (vbnet) [Seleccionar] Expandir

synth.SelectVoice("Microsoft Zira Desktop")
synth.Rate = -5
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 (vbnet) [Seleccionar] Expandir

synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
synth.Rate = -5
synth.Speak("¡Viva España!")

Iterar todas las voces instaladas en el sistema.

Código (vbnet) [Seleccionar] Expandir

For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()

   Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo

   Dim sb As New StringBuilder()
   sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
                   NameOf(voiceInfo.Name), voiceInfo.Name,
                   NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
                   NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
                   NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
                   NameOf(installedVoice.Enabled), installedVoice.Enabled)
   Console.WriteLine(sb.ToString())

   If (installedVoice.Enabled) Then
       synth.SelectVoice(voiceInfo.Name)
       synth.Rate = -5
       synth.Speak("¡Viva España!")
   End If

Next

Saludos.

[FJDA]

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 (vbnet) [Seleccionar] Expandir

Dim synth As New SpeechSynthesizer()

Pongo varios ejemplos útiles:

Seleccionar voz sintética femenina en Español de España.

Código (vbnet) [Seleccionar] Expandir

synth.SelectVoice("Microsoft Helena Desktop")
synth.Rate = -5
synth.Speak("¡Viva España!")

Seleccionar voz sintética femenina en Inglés de EEUU.

Código (vbnet) [Seleccionar] Expandir

synth.SelectVoice("Microsoft Zira Desktop")
synth.Rate = -5
synth.Speak("¡Viva España!")

Seleccionar voz sintética por género, año y localización.

Código (vbnet) [Seleccionar] Expandir

synth.SelectVoiceByHints(VoiceGender.Female, VoiceAge.Adult, 0, New CultureInfo("es-ES"))
synth.Rate = -5
synth.Speak("¡Viva España!")

Iterar todas las voces instaladas en el sistema.

Código (vbnet) [Seleccionar] Expandir

For Each installedVoice As InstalledVoice In synth.GetInstalledVoices()

   Dim voiceInfo As VoiceInfo = installedVoice.VoiceInfo

   Dim sb As New StringBuilder()
   sb.AppendFormat("{0}:{1}, {2}:{3}, {4}:{5}, {6}:{7}, {8}:{9}",
                   NameOf(voiceInfo.Culture), voiceInfo.Culture.Name,
                   NameOf(voiceInfo.Gender), voiceInfo.Gender.ToString(),
                   NameOf(voiceInfo.Age), voiceInfo.Age.ToString(),
                   NameOf(installedVoice.Enabled), installedVoice.Enabled)
   Console.WriteLine(sb.ToString())

   If (installedVoice.Enabled) Then
       synth.SelectVoice(voiceInfo.Name)
       synth.Rate = -5
       synth.Speak("¡Viva España!")
   End If

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

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 [Seleccionar] Expandir

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\MS-Anna-1033-20-DSK

Código (vbnet) [Seleccionar] Expandir


       Dim synth As New SpeechSynthesizer()
       synth.SelectVoice("Microsoft Anna")
       synth.Rate = -5
       synth.Speak("¡Viva España!")



Desde panel de control

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