Necesito ayuda de programación para crear un formulario para un examen con 20 preguntas aleatorias
Hola, tengo que hacer un formulario, es un examen en el que cada vez que se hace un nuevo examen me arroje 20 preguntas diferentes con tres respuestas(opciones), tengo la base de datos con laspreguntas y las respuestas y no se como jalar los datos de manera aleatoria, para que cada examen sea diferente. En las tres opciones tengo que hacer que al presionar el botón de opción correspondiente a la respuesta coorecta me asigne un punto que se tiene que sumar con los de las demás preguntas para que me de la calificación, pero no se como hacerlo.
¿Crees qué puedas ayudarme?
¿Crees qué puedas ayudarme?
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
De principio jno veo ningún problema ¿En qué lenguiaje es el formulario?
Es en lenguaje de visual basic y realmente si se me complica un poco por que no se mucho de programación. Te repito no tengo ni idea de como obtener las 20 preguntas aleatorias de la base Hellllpppp!
Gaby
Gaby
Para generar 20 preguntas utiliza el siguiente código:
Dim Preguntas(1 To 20)
For i = 1 To 20
Preguntas(i) = 0
Next
cont = 1
Randomize
Do While cont <= 20
enc = False
' Numero_preguntas es el número de preguntas que se
' encuentran en la base de datos.
a = Int((Numero_preguntas * Rnd) + 1)
For i = 1 To cont
If Preguntas(i) = a Then
enc = True
Exit For
End If
Next
If Not enc Then
Preguntas(cont) = a
cont = cont + 1
End If
Loop
For i = 1 To 20
Label1(i).Caption = Preguntas(i)
Next
Dim Preguntas(1 To 20)
For i = 1 To 20
Preguntas(i) = 0
Next
cont = 1
Randomize
Do While cont <= 20
enc = False
' Numero_preguntas es el número de preguntas que se
' encuentran en la base de datos.
a = Int((Numero_preguntas * Rnd) + 1)
For i = 1 To cont
If Preguntas(i) = a Then
enc = True
Exit For
End If
Next
If Not enc Then
Preguntas(cont) = a
cont = cont + 1
End If
Loop
For i = 1 To 20
Label1(i).Caption = Preguntas(i)
Next
Dejame lo checo, por que hasta hoy pude checar mi mail, pero tengo una duda que va unida a el código que me enviaste, delante de las preguntas tengo que poner tres respuestas que también las tengo en la base de datos en la misma tabla que las preguntas y esta diseñada así, la pregunta y sus tres respuestas. ¿Estas tienen que aparecer en botones de opción ahí como le hago?
Gracias por tu ayuda me estas salvando de un espantoso cero.
Gracias por tu ayuda me estas salvando de un espantoso cero.
¿Funcionó el código?, en caso de no existir algún problema, favor de valorar la respuesta a fin de poder disponer de más espacio en todoexpertos.
Bueno, eso digo yo...
Bueno, eso digo yo...
