# data[].attributes.body
Public Class frmcuestionario
Private Sub rad1a_CheckedChanged(sender As Object, e As EventArgs) Handles rad1a.CheckedChanged
If rad1a.Checked = True Then
pic1.Visible = True
pic1.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg1.Enabled = False
puntaje = puntaje - 5
End If
End Sub

Private Sub rad1b_CheckedChanged(sender As Object, e As EventArgs) Handles rad1b.CheckedChanged
If rad1b.Checked = True Then
pic1.Visible = True
pic1.Image = Usuario_y_Contraseña.My.Resources.Resources.Correct
grppreg1.Enabled = False
End If
End Sub

Private Sub rad1c_CheckedChanged(sender As Object, e As EventArgs) Handles rad1c.CheckedChanged
If rad1c.Checked = True Then
pic1.Visible = True
pic1.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg1.Enabled = False
puntaje = puntaje - 5
End If
End Sub

Private Sub cbo2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbo2.SelectedIndexChanged
If cbo2.SelectedIndex = 0 Then
pic2.Visible = True
pic2.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg2.Enabled = False
puntaje = puntaje - 5
ElseIf cbo2.SelectedIndex = 1 Then
pic2.Visible = True
pic2.Image = Usuario_y_Contraseña.My.Resources.Resources.Correct
grppreg2.Enabled = False
ElseIf cbo2.SelectedIndex = 2 Then
pic2.Visible = True
pic2.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg2.Enabled = False
puntaje = puntaje - 5
End If
End Sub

Private Sub txt4_TextChanged(sender As Object, e As EventArgs) Handles txt4.TextChanged
If txt4.Text = "" Then
Exit Sub
End If
If IsNumeric(txt4.Text) = False Then
MsgBox("Debes ingresar sólo números", MsgBoxStyle.Critical, "Error")
txt4.Clear()
End If
End Sub

Private Sub btnreiniciar_Click(sender As Object, e As EventArgs) Handles btnreiniciar.Click
grppreg1.Enabled = True
rad1a.Checked = False
rad1b.Checked = False
rad1c.Checked = False
pic1.Visible = False
grppreg2.Enabled = True
cbo2.Text = "Seleccionar respuesta..."
pic2.Visible = False
grppreg3.Enabled = True
chk3a.Checked = False
chk3b.Checked = False
chk3c.Checked = False
chk3d.Checked = False
chk3e.Checked = False
chk3f.Checked = False
pic3.Visible = False
grppreg4.Enabled = True
txt4.Clear()
pic4.Visible = False
End Sub

Private Sub btnresponde3_Click(sender As Object, e As EventArgs) Handles btnresponde3.Click
If chk3a.Checked = True And chk3f.Checked = True Then
pic3.Visible = True
pic3.Image = Usuario_y_Contraseña.My.Resources.Resources.Correct
grppreg3.Enabled = False
ElseIf chk3b.Checked = True Or chk3c.Checked = True Or chk3d.Checked = True Or chk3e.Checked = True Then
pic3.Visible = True
pic3.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg3.Enabled = False
puntaje = puntaje - 5
End If
End Sub

Private Sub btnresponde4_Click(sender As Object, e As EventArgs) Handles btnresponde4.Click
If txt4.Text = 8 Then
pic4.Visible = True
pic4.Image = Usuario_y_Contraseña.My.Resources.Resources.Correct
grppreg4.Enabled = False
Else
pic4.Visible = True
pic4.Image = Usuario_y_Contraseña.My.Resources.Resources.Incorrect
grppreg4.Enabled = False
puntaje = puntaje - 5
End If
End Sub

Private Sub btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
If MsgBox("Volverás al cuadro de Ingreso, ¿estás seguro/a?", MsgBoxStyle.YesNo, "Salir") = MsgBoxResult.Yes Then
MsgBox("Gracias por su visita", MsgBoxStyle.Information, "sistema")
Me.Hide()
frmlogin.Show()
End If
End Sub

Private Sub frmcuestionario_Activated(sender As Object, e As EventArgs) Handles Me.Activated
grppreg1.Enabled = True
rad1a.Checked = False
rad1b.Checked = False
rad1c.Checked = False
pic1.Visible = False
grppreg2.Enabled = True
cbo2.Text = "Seleccionar respuesta..."
pic2.Visible = False
grppreg3.Enabled = True
chk3a.Checked = False
chk3b.Checked = False
chk3c.Checked = False
chk3d.Checked = False
chk3e.Checked = False
chk3f.Checked = False
pic3.Visible = False
grppreg4.Enabled = True
txt4.Clear()
pic4.Visible = False
puntaje = 20
End Sub

Private Sub frmcuestionario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
grppreg1.Enabled = True
rad1a.Checked = False
rad1b.Checked = False
rad1c.Checked = False
pic1.Visible = False
grppreg2.Enabled = True
cbo2.Text = "Seleccionar respuesta..."
pic2.Visible = False
grppreg3.Enabled = True
chk3a.Checked = False
chk3b.Checked = False
chk3c.Checked = False
chk3d.Checked = False
chk3e.Checked = False
chk3f.Checked = False
pic3.Visible = False
grppreg4.Enabled = True
txt4.Clear()
pic4.Visible = False
puntaje = 20
End Sub

Private Sub btnresultados_Click(sender As Object, e As EventArgs) Handles btnresultados.Click
Me.Hide()
frmresumen.Show()
End Sub
End Class

# data[].attributes.body
Public Class frmresumen

Private Sub frmresumen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblnota.Text = puntaje
If puntaje <= 10 Then
lblnota.ForeColor = Color.Red
lblresumen.Text = "Tienes que prepararte mejor compañero"
picresultado.Image = Usuario_y_Contraseña.My.Resources.Resources.Desaprobado
Else
lblnota.ForeColor = Color.Blue
lblresumen.Text = "Has aprobado el test, tienes muchas condiciones"
picresultado.Image = Usuario_y_Contraseña.My.Resources.Aprobado
End If
End Sub

Private Sub btnvolver_Click(sender As Object, e As EventArgs) Handles btnvolver.Click
Me.Hide()
frmcuestionario.Show()
End Sub

Private Sub btnterminar_Click(sender As Object, e As EventArgs) Handles btnterminar.Click
End
End Sub
End Class