Problemas de conversión de texto a voz en textos legibles por máquinas
.Biblioteca compatible ESpeechEngine
.Ventana de ensamblaje Ventana Assembly_Launch
.Variable de ensamblaje texto legible por máquina, texto legible por máquina
.Variable de ensamblaje Event Feedback (retroalimentación del evento), número entero
. Subrutina __Launch Window_Created
Texto legible por máquina Configure la biblioteca de voz ("VW Lily")
Subrutina _Botón 1_Clic en Aceptar para iniciar (Botón 1). .Title = "Voz")
Botón 1.Title = "Detener"
Texto legible por máquina. Texto a voz (0, Editbox1.Content, -1, Label1)
. Judge(Button1.Title = "Stop")
Button1.Title = "Speech"
Texto legible por máquina. Detener pronunciación ()
.Predeterminado
. Fin del juicio
. Subrutina _Etiqueta 1_Evento de retroalimentación, entero
. Parámetro 1, entero
. Parámetro 2, número entero
. Si es verdadero (comentarios del evento = parámetro dos)
Botón 1. Título = "Voz"
Texto legible por máquina. Detener pronunciación ()
.Si es verdadero, final
============================= ==============================
Esto es un poco defectuoso, si el evento de retroalimentación usa un mensaje cuadro, aparecerán dos cuadros de mensaje
Su solicitud, el código anterior todavía está disponible