Quiero crear un software de prueba de mecanografía, pero no sé cómo juzgar la exactitud del texto.

Agregué la desactivación de tiempo y retroceso en el código, la "prueba de escritura" es "Tab 2", el código es el siguiente:

.Versión 2

. Ventana de configuración del programa programa set_Launch Window

. El programa establece la variable Texto2, tipo de texto

. El programa establece la variable Texto1, tipo de texto

. Variable de programa Palabra Bit, número entero

. Longitud de la variable de programa, número entero

. Error de variable de programa, número entero

. Recuento de variables, número entero

. Corrección de variables, doble decimal

. Variable ensambladora Hora, fecha y hora

.ScrollBar = 2

Editbox2.ScrollBar = 2

Label1.TextColor = #Blue

Label1 .HorizontalAlignment = 1

_Editbox1_content cambiado ()

.Subrutina _editbox1_content_changed

Editbox2.forbidden = false

Editbox2.content = " "

Typos = 0

Label1.caption = "¡Ingrese en ancho completo, ingrese a continuación cuando esté listo!"

. Subroutine_Edit Box 2_Key, tipo lógico

Código de clave de parámetro, entero

. Estado de la tecla de función del parámetro, número entero

. Si es verdadero (código clave = #Retroceso)

Devuelve (falso)

. Finalizar si es verdadero

La subrutina _Editbox2_content cambió

Posición de la palabra = obtener longitud del texto (editbox2.content)

. Primero repite la variable (1, posición de la palabra - longitud, 2, recuento)

Texto1 = obtiene la parte media del texto (editbox1.content, recuento de longitud, 2)

Texto2 = obtener la mitad de la parte del texto (editbox2.content, length count, 2)

.Si es verdadero (texto1 ≠ texto2)

Error = Error 1

.End if true

.Fin del bucle variable ()

Corrección = redondeado ((posición de la palabra ÷ 2 - palabra incorrecta) ÷ (posición de la palabra ÷ 2), 2)

Etiqueta 1 .Título = "Corrección:"