Instalé un TTS de voz y no sé cómo usarlo.

laser_2008

Uso de la tecnología de motor de lectura de texto (TTS) en VB

Algunos de los programas de aprendizaje de inglés más populares del mercado actual suelen hablar de sí mismos en sus anuncios. slogans 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 producido por Microsoft. Este software en inglés lo llama 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, y no los enumerará en detalle aquí.

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=caption="Oración anterior"

COMANDO5: Nombre =siguiente; Caption="Siguiente oración"

COMANDO6: Nombre=salir; Caption="Salir"

2007-11-5 03:53 p.m. laser_2008

4. Escribe el código

Ahora podemos escribir el código paso a paso. El código específico es el siguiente:

'Llama al método Register para. registrarse cuando se carga el formulario Los dos parámetros entre paréntesis son una cadena

Private Sub Form_Load()

Llamar a VTxtAuto.VTxtAuto.Register(Space(8), Space(8) )

'Debido a la velocidad del habla, el valor predeterminado es 170, por lo que el valor inicial de la barra de desplazamiento horizontal también se establece en 170

SpeedChange.Value = 170

End Sub

'Establece el Código de ajuste de velocidad de lectura, cuando el valor de la barra de desplazamiento horizontal cambie, asígnalo a la propiedad Velocidad que controla la velocidad de habla

Sub privado SpeedChange_Change()

VTxtAuto.VTxtAuto.Speed=SpeedChange.Value

Label3.Caption = SpeedChange.Value

End Sub

'Establezca el código del botón "Leer en voz alta"

Private Sub read_Click()

'Si ocurre un error durante la lectura, vaya al módulo de marca de manejo de errores ErrorHandler

En caso de error, Ir a ErrorHandler

'Llame al método Hablar para leer en voz alta. El primer parámetro es el texto que se leerá en voz alta, el segundo parámetro es establecer el estilo de lectura.

Llame a VTxtAuto.VTxtAuto.speak(Trim(Text1.Text), vtxtsp_VERYHIGH vtxtst_READING)

Salir de Sub

ErrorHandler:

MsgBox "Solo se pueden leer documentos en inglés ¡En voz alta, no en caracteres chinos! ", , "Mensaje de error

mensaje"

End Sub

'Establecer código del botón "Pausa"

Sub privado pausa_Click()

Si VTxtAuto.VTxtAuto.IsSpeaking Entonces

'Si el atributo IsSpeaking es verdadero, significa que la lectura está en progreso. Llama al método AudioPause para pausar la lectura.

Llama a VTxtAuto.VTxtAuto.AudioPause

Else

'Si ya está en estado de pausa, llame al método AudioResume para reanudar la lectura

Llame a VTxtAuto .VTxtAuto.AudioResume

pausa .Caption = "Pausa"

End If

End Sub

'Establece el botón "Detener" código y llame al método StopSpeaking para detener la lectura actual

Private Sub stop_Click()

Llamar a VTxtAuto.VTxtAuto.StopSpeaking

End Sub

'Establece el código del botón "frase anterior" y llama al método AudioRewind para volver Saltar una frase

Private Sub prev_Click()

Llamar a VTxtAuto.VTxtAuto.AudioRewind

End Sub

'Establecer código del botón "siguiente oración", llame al método AudioFastForward para saltar una oración hacia adelante

Private Sub next_Click()

Llamar a VTxtAuto.VTxtAuto.AudioFastForward

End Sub

'Establecer el código del botón "Salir"

Private Sub quit_Click()

Descargar Yo

End Sub

Este programa está en chino. Se ejecuta en entorno Windows 95/98 y VB 5.0. Al ejecutarlo, ingrese o pegue el documento en inglés en el cuadro de edición de texto. luego haga clic en el botón "Leer en voz alta" para reproducir la pronunciación.

5. Ideas para mejorar el programa

Este artículo es solo una introducción al uso de la tecnología TTS en la programación de VB. que estén familiarizados con la programación VB pueden realizar algunas mejoras a este programa, como agregar detección de 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, agregar funciones como permitir a los usuarios elegir el prioridad de lectura en voz alta y ajuste del volumen del sonido. La implementación de estas funciones es relativamente compleja y los lectores interesados ​​pueden realizar una investigación en profundidad.

2008-6-17 03:35 PM walefrt

El software de lectura de voz incluye: como Narrador que viene con WINDOWS y software gratuito de terceros [url= .panopreter.com / ][u]Versión china de Panopreter[/u][/url], o [url= /][u]Versión en inglés[/u][/url