Lenguaje sencillo para hacer contestadores automáticos
Todo lo demás es fácil de escribir.
----------------------- Código fuente
.Versión 2< / p>
.Ensamblaje Ventana Ensamblaje 1
.Variables de configuración del programa Casilla de verificación, Casilla de verificación, "4"
.Variables de configuración del programa Respuesta correcta, tipo de texto, Registre la respuesta correcta respuesta
. Subroutine_Button Answer_Clicked, juzga la pregunta y bórrala
Variable local x, número entero
.
. Las variables locales registran el número correcto, entero
Si es verdadero (botón de opción [1]. Marque ≠ Verdadero y el botón de opción [2]. Marque ≠ Verdadero y casilla de verificación única [3]. Marque ≠ Verdadero y el botón de opción [4]. Marque ≠ Verdadero)
Cuadro de mensaje ("Seleccione una respuesta primero", 0,)
Volver ( )
. Finalizar si es verdadero
Cuenta el bucle primero (4, x)
. Si es verdadero (cuadro de radio [x]. Marcado)
Respuesta = Cuadro de radio [x]. Título
Salir del bucle ()
.End si es verdadero
.Count end of loop ()
' Aquí también debe leer la respuesta a la pregunta actual en la base de datos para determinar si coincide con la respuesta en la casilla de verificación
. if (respuesta correcta = respuesta)
Número correcto de registros = número correcto de registros + 1
Etiqueta 2.Título = "Eres un bastardo, responde correctamente" + al texto (Cantidad correcta registrada) + "¡Pregunta de palabra!"
.
. De lo contrario
Cuadro de mensaje ("¡Te equivocaste, inténtalo más!", 0,)
Si finalizó
' Continuar haciendo preguntas, si es correcto. o mal.
.Cuenta bucle primero (4, x)
Casilla de opción [x].Marcado = false
.Cuenta bucle final ()
Out()
.Subroutine__Start Window_Created
Casilla de verificación [1] = Casilla de verificación 1
Casilla de verificación [2] = Casilla de verificación 2
Casilla de verificación [3] = Casilla de verificación 3
Casilla de verificación [4] = Casilla de verificación 4
Colocar semilla de números aleatorios ()
' Cree la ventana y proporcione una matriz de valores para las casillas de verificación para llamadas posteriores.
.
.Subrutina _button_start_clicked, , , pregunta
Pregunta () ' Se producirá un error al ejecutar ahora porque la base de datos aún no se ha abierto.
. Subrutina Fuera de cuestión
Variable local a, entero, registra número aleatorio
. >.Variable local n, entero
' Aquí es donde se lee y escribe el contenido de la base de datos. Digamos que tengo 1000 preguntas en mi base de datos.
¡Aleatorizo las preguntas cada vez!
a = toma un número aleatorio (1, 1000)
Pasar a (a)
Etiqueta 1.title = leer ("título")
' Aquí necesita obtener una variable para que la llame el ensamblado (es decir, la respuesta correcta).
Respuesta correcta = Leer ("Respuesta")
x = obtenga un número aleatorio (1, 4)
Menos [x]. Título = Respuesta correcta
. Si es verdadero (x = 1)
. Cuenta la primera vez del bucle (3, n)
a = toma un número aleatorio (1, 1000)
Saltar a (a)
Radio botón [n + 1]. Título = Leer ("Respuesta")
.Fin del ciclo de conteo ()
.Fin si es verdadero
.Si es verdadero (x = 2)< / p>
a = Toma un número aleatorio (1, 1000)
Saltar a (a)
Botón de opción [1]. Título = Leer ("Respuesta")
.Cuenta la primera vez del ciclo (2, n)
a = toma un número aleatorio (1, 1000)
Saltar a (a)
Botón de radio [n + 2]. Título = Leer ("Respuesta")
.Fin del bucle de conteo()
.Finalizar si es verdadero
.Finalizar si es verdadero (x = 3)
Cuenta la primera vez del ciclo (2, n)
a = toma un número aleatorio (1, 1000)
Salta a (a)
Botón de opción [n]. Título = Leer ("Respuesta")
Fin del bucle de conteo ()
a = Tomar un número aleatorio (1, 1000).
Saltar a (a)
Botón de opción [4]. Título = Leer ("Respuesta")
Si es verdadero, finalizar
<. p>. Si es verdadero (x = 4)Cuente la primera vez en el ciclo (3, n)
a = Tome un número aleatorio (1, 1000)
<. p> Saltar Ir a (a)Botón de opción [n]. Título = Leer ("Respuesta")
.Fin del bucle de conteo()
. If true end
' Esto no es perfecto y puede dar lugar a respuestas duplicadas. También es muy sencillo utilizar un bucle grande,
.