'==========================================================
' Subrutina: Qué hacer cuando se muestra el formulario
'==========================================================
Public Sub Form_Show()
Dim $reg As Result
Dim $cadena As String
Dim $Comodines As String
Music.Load("musica/Pregunta.wav")
Music.Play(-1)
Label2.Text = ""
opcionA.Background = &HE0E0E0&
opcionB.Background = &HE0E0E0&
opcionC.Background = &HE0E0E0&
opcionD.Background = &HE0E0E0&
Label1.Text = "Pregunta Nº " & modulo1.$numPreguntaActual
Modulo1.ConectarBD() 'Abre la conexión a la BD
$cadena = "SELECT * FROM cuestionario (aqui deberia selecionar aleatoriamente el num pregunta, pregunta opciones y respuesta)para que cargue desde mi base de datos llamada cuestionario porfavor ayuda
$reg = Modulo1.$Con.Exec($cadena)
'****Si no encontró el registro
If $reg.Count = 0 Then
Message.Warning("Pregunta no registrada...")
Else
'****mostrar datos de la pregunta actual
lapregunta.Text = $reg!pregunta
opcionA.Text = $reg!opcionA
opcionB.Text = $reg!opcionB
opcionC.Text = $reg!opcionC
opcionD.Text = $reg!opcionD
Modulo1.$respCorrectaActual = $reg!respCorrecta
modulo1.$respActual = ""
Endif
Modulo1.CerrarBD() 'Cierra la conexión a la BD
End
'==========================================================
' Botón opcionA: Selecciona la opcionA
'==========================================================
Public Sub opcionA_Click()
If (modulo1.$respActual = "") Then
opcionA.Background = &H3FFF3F&
modulo1.$respActual = "A"
Espere()
Endif
End
'==========================================================
' Botón opcionB: Selecciona la opcionB
'==========================================================
Public Sub opcionB_Click()
If (modulo1.$respActual = "") Then
opcionB.Background = &H3FFF3F&
modulo1.$respActual = "B"
Espere()
Endif
End
'==========================================================
' Botón opcionC: Selecciona la opcionC
'==========================================================
Public Sub opcionC_Click()
If (modulo1.$respActual = "") Then
opcionC.Background = &H3FFF3F&
modulo1.$respActual = "C"
Espere()
Endif
End
'==========================================================
' Botón opcionD: Selecciona la opcionD
'==========================================================
Public Sub opcionD_Click()
If (modulo1.$respActual = "") Then
opcionD.Background = &H3FFF3F&
modulo1.$respActual = "D"
Espere()
Endif
End
'==========================================================
' Subrutina: Para detener la pantalla 2 segundos de acuerdo al Timer
'==========================================================
Public Sub Espere()
Label2.Text = "Por favor, espere..."
Music.Stop
Music.Load("musica/Redoble.wav")
Music.Play(1)
Timer1.Enabled = True
End
'==========================================================
' Subrutina: Para detener la pantalla 2 segundos de acuerdo al Timer
'==========================================================
Public Sub Timer1_Timer()
Timer1.Enabled = False
Music.Stop
MostrarResultado()
End
'==========================================================
' Subrutina: Para revisar si respuesta es correcta
'==========================================================
Public Sub MostrarResultado()
Me.Visible = False
'ME.Delete
Resultado.Show
End