This document contains code for a quiz application with multiple forms. The main form loads student and subject data and allows selecting a student and subject. Subsequent forms display one question at a time from a test database and handle selecting and saving answers. Buttons navigate between the question forms to complete the 20 question test while tracking the student's score.
Download as DOCX, PDF, TXT or read online on Scribd
0 ratings0% found this document useful (0 votes)
28 views
Codigos de Formularios: Formulario Inicio
This document contains code for a quiz application with multiple forms. The main form loads student and subject data and allows selecting a student and subject. Subsequent forms display one question at a time from a test database and handle selecting and saving answers. Buttons navigate between the question forms to complete the 20 question test while tracking the student's score.
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 39
CODIGOS DE FORMULARIOS
FORMULARIO INICIO Public Class Principal
Private Sub Principal_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() Dim mostrarMatriculas As String = "Select Matricula from Alumnos" Dim dataAdapter As New OleDb.OleDbDataAdapter(mostrarMatriculas, cn) dataAdapter.Fill(dt) For fila = 0 To dt.Rows.Count - 1 ComboBox1.Items.Add(dt.Rows(fila)("Matricula")) Next dataAdapter.Dispose() cn.Close() dt.Reset() cn.Open() Dim mostrarMateria As String = "Select NombreMateria from Materia" Dim dataAdapter2 As New OleDb.OleDbDataAdapter(mostrarMateria, cn) dataAdapter2.Fill(dt) For fila = 0 To dt.Rows.Count - 1 ComboBox2.Items.Add(dt.Rows(fila)("NombreMateria")) Next dataAdapter2.Dispose() cn.Close() Me.Button1.Enabled = False End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click cn.Open() dt.Reset() Dim ConsultarDatos As String = "Select * from Alumnos where Matricula='" & CStr(ComboBox1.SelectedItem) & "'" matricula = Me.ComboBox1.SelectedItem Dim dataAdapter3 As New OleDb.OleDbDataAdapter(ConsultarDatos, cn) dataAdapter3.Fill(dt) For fila = 0 To dt.Rows.Count - 1 TextBox1.Text = CStr(dt.Rows(fila)("Nombre")) TextBox2.Text = CStr(dt.Rows(fila)("APaterno")) TextBox3.Text = CStr(dt.Rows(fila)("AMaterno")) TextBox4.Text = CInt(dt.Rows(fila)("Grupo")) Next nombre = Me.TextBox1.Text cn.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click cn.Open() dt.Reset() Dim tempMateria As String = "Select Id_Materia from Materia where NombreMateria='" & CStr(ComboBox2.SelectedItem) & "'" Dim dataAdapter4 As New OleDb.OleDbDataAdapter(tempMateria, cn) dataAdapter4.Fill(dt) For fila = 0 To dt.Rows.Count - 1 materia = CStr(dt.Rows(fila)("Id_Materia")) Next cn.Close() ActiveForm.Hide() Pregunta1.Show() End Sub
Private Sub ComboBox2_SelectionChangeCommitted(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectionChangeCommitted Me.Button1.Enabled = True End Sub
End Class
FORMULARIO PREGUNTA 1/20
Public Class Pregunta1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta2.Show() End Sub
Private Sub Pregunta1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.Label2.Text = "Matricula: " & matricula Me.TextBox1.Text = CStr(dt.Rows(0)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(0)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(0)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(0)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 2/20
Public Class Pregunta2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta3.Show() End Sub
Private Sub Pregunta2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(1)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(1)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(1)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(1)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 3/20
Public Class Pregunta3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta4.Show() End Sub Private Sub Pregunta3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(2)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(2)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(2)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(2)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 4/20
Public Class Pregunta4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta5.Show() End Sub
Private Sub Pregunta4_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(3)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(3)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(3)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(3)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 5/20
Public Class Pregunta5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta6.Show() End Sub
Private Sub Pregunta5_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(4)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(4)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(4)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(4)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 6/20
Public Class Pregunta6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta7.Show() End Sub
Private Sub Pregunta6_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(5)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(5)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(5)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(5)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 7/20
Public Class Pregunta7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta8.Show() End Sub
Private Sub Pregunta7_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(6)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(6)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(6)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(6)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 8/20
Public Class Pregunta8
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta9.Show() End Sub
Private Sub Pregunta8_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(7)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(7)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(7)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(7)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 9/20
Public Class Pregunta9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta10.Show() End Sub
Private Sub Pregunta9_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(8)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(8)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(8)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(8)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 10/20
Public Class Pregunta10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta11.Show() End Sub
Private Sub Pregunta10_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(9)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(9)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(9)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(9)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 11/20
Public Class Pregunta11 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta12.Show() End Sub
Private Sub Pregunta11_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(10)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(10)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(10)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(10)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 12/20
Public Class Pregunta12
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta13.Show() End Sub
Private Sub Pregunta12_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(11)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(11)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(11)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(11)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 13/20
Public Class Pregunta13
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta14.Show() End Sub
Private Sub Pregunta13_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(12)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(12)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(12)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(12)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 14/20
Public Class Pregunta14
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta15.Show() End Sub
Private Sub Pregunta14_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(13)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(13)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(13)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(13)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class FORMULARIO PREGUNTA 15/20 Public Class Pregunta15
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta16.Show() End Sub
Private Sub Pregunta15_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(14)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(14)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(14)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(14)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 16/20
Public Class Pregunta16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta17.Show() End Sub
Private Sub Pregunta16_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(15)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(15)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(15)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(15)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 17/20
Public Class Pregunta17
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta18.Show() End Sub
Private Sub Pregunta17_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(16)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(16)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(16)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(16)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 18/20
Public Class Pregunta18
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta19.Show() End Sub
Private Sub Pregunta18_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(17)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(17)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(17)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(17)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class FORMULARIO PREGUNTA 19/20 Public Class Pregunta19
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Pregunta20.Show() End Sub
Private Sub Pregunta19_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(18)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(18)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(18)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(18)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO PREGUNTA 20/20
Public Class Pregunta20
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click ActiveForm.Hide() Resultados.Show() End Sub
Private Sub Pregunta20_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load cn.Open() dt.Reset() Me.Label2.Text = "Matricula: " & matricula Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos Dim pregunta1 As String = "Select * From Test" Dim dataAdapter As New OleDb.OleDbDataAdapter(pregunta1, cn) dataAdapter.Fill(dt) Me.TextBox1.Text = CStr(dt.Rows(19)("Pregunta")) Me.RadioButton1.Text = CStr(dt.Rows(19)("Respuesta1")) Me.RadioButton2.Text = CStr(dt.Rows(19)("Respuesta2")) Me.RadioButton3.Text = CStr(dt.Rows(19)("Respuesta3")) cn.Close() Me.TextBox1.ReadOnly = True Me.Button1.Enabled = False End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton1.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged opcion = "Incorrecta" aciertos = aciertos fallos = fallos + 1 MsgBox("Respuesta Incorrecta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton2.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged opcion = "Correcta" aciertos = aciertos + 1 fallos = fallos MsgBox("Respuesta Correcta") Me.Label1.Text = "Aciertos: " & aciertos Me.Label3.Text = "Fallos: " & fallos cn.Open() Dim GuardarDatos As String = "Update Test Set Respuesta_Elegida='" & Me.RadioButton3.Text & "',Resultado='" & opcion & "'Where Pregunta='" & Me.TextBox1.Text & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() Me.Button1.Enabled = True Me.RadioButton1.Enabled = False Me.RadioButton2.Enabled = False Me.RadioButton3.Enabled = False End Sub End Class
FORMULARIO RESULTADOS Public Class Resultados
Dim calificacion As Double
Dim mensajefinal As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click End End Sub
Private Sub Resultados_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load Me.Label1.Text = "¡¡Has Concluido Tu Test " & nombre & "!!" Me.Label2.Text = "Obtuviste " & aciertos & " aciertos." If (aciertos = 20) Then calificacion = 10 If (aciertos = 19) Then calificacion = 9.5 If (aciertos = 18) Then calificacion = 9 If (aciertos = 17) Then calificacion = 8.5 If (aciertos = 16) Then calificacion = 8 If (aciertos = 15) Then calificacion = 7.5 If (aciertos = 14) Then calificacion = 7 If (aciertos = 13) Then calificacion = 6.5 If (aciertos = 12) Then calificacion = 6 If (aciertos = 11) Then calificacion = 5.5 If (aciertos = 10) Then calificacion = 5 If (aciertos = 9) Then calificacion = 4.5 If (aciertos = 8) Then calificacion = 4 If (aciertos = 7) Then calificacion = 3.5 If (aciertos = 6) Then calificacion = 3 If (aciertos = 5) Then calificacion = 2.5 If (aciertos = 4) Then calificacion = 2 If (aciertos = 3) Then calificacion = 1.5 If (aciertos = 2) Then calificacion = 1 If (aciertos = 1) Then calificacion = 0.5 If (aciertos = 0) Then calificacion = 0 Me.Label3.Text = "Tu Calificación Es: " & calificacion If ((calificacion >= 0) And (calificacion <= 5.5)) Then mensajefinal = "¡Echale Ganas!" Me.PictureBox1.Image = Test.My.Resources.Resources.EchaleGanas End If If ((calificacion >= 6) And (calificacion <= 7.5)) Then mensajefinal = "¡Puedes Mejorar!" Me.PictureBox1.Image = Test.My.Resources.Resources.Puedes_Mejorar End If If ((calificacion >= 8) And (calificacion <= 9.5)) Then mensajefinal = "¡Así Se Hace!" Me.PictureBox1.Image = Test.My.Resources.Resources.Excelente End If If (calificacion = 10) Then mensajefinal = "¡Excelente!" Me.PictureBox1.Image = Test.My.Resources.Resources.Excelente End If Me.Label4.Text = mensajefinal cn.Open() dt.Reset() Dim GuardarDatos As String = "Update Alumnos Set Calificación='" & calificacion & "',Mensaje='" & mensajefinal & "'Where Matricula='" & matricula & "'" Dim dataAdapter As New OleDb.OleDbDataAdapter(GuardarDatos, cn) dataAdapter.Fill(dt) dataAdapter.Dispose() cn.Close() dt.Reset() cn.Open() Dim guardarMatricula As String = "Update Test Set Matricula='" & matricula & "'" Dim dataAdapter2 As New OleDb.OleDbDataAdapter(guardarMatricula, cn) dataAdapter2.Fill(dt) dataAdapter2.Dispose() cn.Close() dt.Reset() cn.Open() Dim guardarMateria As String = "Update Test Set Materia='" & materia & "'" Dim dataAdapter3 As New OleDb.OleDbDataAdapter(guardarMateria, cn) dataAdapter3.Fill(dt) dataAdapter3.Dispose() cn.Close() End Sub End Class