Al escribir un pequeño programa en vb, ¿cómo hacer que la voz humana anuncie automáticamente los números al ingresar números arábigos en texto1 y texto2? Tengo un archivo .wav con los números del 0 al 9.
Te daré algo relacionado con TTS, que es la conversión de texto a voz. No sé si es adecuado para ti. No necesitas un archivo wav.
______________________________________________________________
Uso de la tecnología de motor de lectura de texto (TTS) en VB
Algunos programas de aprendizaje de inglés populares en el mercado hoy en día a menudo hablan de sí mismos en sus eslóganes publicitarios. Utiliza la mejor tecnología TTS de voz completa del mundo, que puede leer todo el párrafo en inglés con fluidez y puede ajustar libremente la velocidad y frecuencia de la lectura. Entonces, ¿qué es exactamente este TTS mágico?
De hecho, TTS es un motor de conversión de texto a voz (Text-To-Speech Engine) producido por Microsoft. Este software en inglés lo llama para lectura en inglés. También podemos utilizar la tecnología TTS en la programación y desarrollo de software de aprendizaje de inglés. A continuación, el autor utilizará Visual Basic 5.0 para descubrir el misterio de TTS.
1. Instale el motor TTS
El software Microsoft Text-to-Speech Engine y Microsoft Speech API requeridos por el motor TTS se pueden descargar desde el sitio web de Microsoft o desde "Kingsoft Find it en el CD de instalación de "PowerWord 2000" o "Kingsoft PowerWord.net" (los nombres de los archivos son MSTTS.EXE y SPCHAPI.EXE). Después de instalar el motor TTS, se generará un directorio SPEECH en el directorio donde se encuentra Windows, con un archivo Vtxtauto.tlb, al que debemos llamar durante la programación.
2. Introduce el archivo Vtxtauto.tlb en VB
Entra en VB 5.0, ejecuta el comando de menú "Archivo/Nuevo Proyecto/EXE estándar" y confirma, luego ejecuta el menú "Proyecto " "Referencias", haga clic en el botón "Examinar" para ir al subdirectorio SPEECH en el directorio de Windows, abra el archivo Vtxtauto.tlb, agregue "Biblioteca de tipos VoiceText 1.0" a la lista de referencias, selecciónelo y haga clic en Aceptar. Después de introducir la biblioteca Vtxtauto en VB, podemos usar el "Explorador de objetos" en el menú "Ver" para conocer las clases que encapsula, así como los significados, formatos de uso y otra información de los atributos de varias funciones miembro. El autor dará comentarios sobre el significado de algunos métodos y atributos principales en el programa fuente a continuación, que no se enumerarán en detalle aquí. Consulte la Figura 1.
3. Establezca controles y propiedades
Agregue tres controles Label, un control TextBox, un control HScrollBar y seis controles CommandButton en FORM1.
La configuración de propiedades principales del formulario y de cada control es la siguiente:
FORM1: Caption="Lectura en inglés"
LABEL1: Caption="Por favor, ingrese un documento en inglés"
LABEL2: Caption="Velocidad de lectura"
LABEL3: Caption=" "
(La etiqueta LABEL3 se utiliza para mostrar el valor de la velocidad de lectura)
TEXT1: Text="Ingrese texto en inglés"; ToolTiptext="Ingrese o pegue el documento en inglés"; MultiLine=True; ScrollBars=3-Ambos
HSCROLL1: Name=SpeedChange=90; =300 (Mín. y Máx. Los valores de atributo se utilizan para limitar la velocidad de habla mínima y máxima ajustable respectivamente)
COMANDO1: Nombre=leer Caption="Lectura"
COMANDO2; : Nombre=pausa; Caption= "Pausa"
COMANDO3: Nombre=detener; Caption="Detener"
COMANDO4: Nombre=prev; >
COMANDO5: Nombre =siguiente; Caption="Siguiente oración"
COMANDO6: Nombre=salir; Caption="Salir"
4. Escribir código
A continuación, podemos hacerlo en un solo paso. Escriba el código paso a paso. El código específico es el siguiente:
'Llame al método Register para registrarse cuando se carga el formulario. son cadenas
Private Sub Form_Load()
p>Llamar a VTxtAuto.VTxtAuto.Register(Space(8), Space(8))
'Porque el El valor predeterminado de la velocidad de conversación es 170, el valor inicial de la barra de desplazamiento horizontal también está establecido en 170
SpeedChange.Value = 170
End Sub
' Establezca el código de ajuste de la velocidad de lectura y asígnelo al control cuando cambie el valor de la barra de desplazamiento horizontal. Propiedad de velocidad de la velocidad de habla
Private Sub SpeedChange_Change()
VTxtAuto. .VTxtAuto.Speed=SpeedChange.Value
Label3.Caption = SpeedChange.Value
End Sub
'Establece el código del botón "Leer en voz alta"
Private Sub read_Click()
'Si hay un error al leer en voz alta, vaya a la marca de manejo de errores Module ErrorHandler
En caso de error, vaya a ErrorHandler
'Llame al método Speak para leer en voz alta. El primer parámetro es el texto que se leerá en voz alta y el segundo parámetro es para establecer el estilo de lectura.
< p.> Llame a VTxtAuto.VTxtAuto.speak(Trim(Text1.Text), vtxtsp_VERYHIGH + vtxtst_READING)
Salir de Sub
ErrorHandler:
MsgBox "Solo se puede leer inglés Documento, no se pueden leer caracteres chinos ", , "Mensaje de error"
End Sub
'Establece el código del botón "Pausar"
Private Sub pausa_Click()
Si VTxtAuto.VTxtAuto.IsSpeaking Entonces
'Si el atributo IsSpeaking es verdadero, significa leer en voz alta, llama al método AudioPause para pausar la lectura
Llamar VTxtAuto.VTxtAuto.AudioPause
pausa.Caption = "Resume"
Else
'Si ya está en estado de pausa, llame al método AudioResume para reanudar leyendo
Llamar a VTxtAuto .VTxtAuto.AudioResume
pausa.Caption = "Pausa"
Finalizar si
Finalizar sub
'Establece el código del botón "Detener", llama al método StopSpeaking para detener la lectura actual
Private Sub stop_Click()
Llama a VTxtAuto.VTxtAuto.StopSpeaking
End Sub
'Configuración Código del botón "Oración anterior", llame al método AudioRewind para omitir una oración
Private Sub prev_Click()
Llamar a VTxtAuto .VTxtAuto.AudioRewind
End Sub
'Establece el código del botón "siguiente oración" y llama al método AudioFastForward para saltar una oración hacia adelante
Private Sub next_Click( )
Llamar a VTxtAuto.VTxtAuto.AudioFastForward
p>
End Sub
'Establecer código del botón "Salir"
Privado Sub quit_Click()
Descargarme
End Sub
Este programa se ejecuta correctamente en entornos chinos Windows 95/98 y VB 5.0. Al ejecutar, ingrese o pegue el documento en inglés en el cuadro de edición de texto y luego haga clic en el botón "Leer en voz alta" para reproducir la pronunciación. La interfaz de ejecución se muestra en la Figura 2.
5. Ideas para mejorar el programa
Este artículo solo sirve como una introducción al uso de la tecnología TTS en la programación de VB. Los entusiastas de la informática que estén familiarizados con la programación de VB pueden realizar algunas mejoras. Por ejemplo, puede detectar si la tarjeta de sonido y el motor TTS están instalados, agregar la función de leer documentos desde archivos de texto o bases de datos y agregar funciones que permiten a los usuarios elegir la prioridad de lectura en voz alta y ajustar el volumen del sonido. La implementación de estas funciones es relativamente compleja y los lectores interesados pueden realizar una investigación en profundidad.