Registrar Preguntas

Fecha: Mayo 27 de 2019

Asignatura: Tecnología e Informática

Formación en Valor: Honestidad.

Núcleo Integrador: Desarrollo de software didáctico.

Desempeño esperado: Crea software didáctico utilizando Visual Basic.

Exploración Cognitiva

¿Sabes que es un software didáctico ?

El siguiente formulario le permite registrar las preguntas y posibles respuestas en la hoja de calculo, para crear una base de datos de preguntas y respuestas al momento de realizar la evaluación que desee el usuario.

El siguiente código se utiliza en el botón Guardar (CommandButton1_Click()), para reguistar los datos en la hoja de calculo y llenar los datos del formulario antes de ser mostrado (UserForm_Initialize())

Private Sub CommandButton1_Click()
  'BOTÓN GUARDAR
  Dim R As String, F As Integer, _
      Cedula As String, Nombre As String, _
      Direccion As String, Salario As Currency
  
  F = 2
  R = "S"
  Cedula = TextBox1
  Do While R = "S"
    
    If Hoja1.Cells(F, 1) = "" Then
      Hoja1.Cells(F, 1) = F - 1
      Hoja1.Cells(F, 2) = ComboBox2.Text
      Hoja1.Cells(F, 3) = ComboBox1.ListIndex
      Hoja1.Cells(F, 4) = TextBox6
      Hoja1.Cells(F, 5) = TextBox1
      Hoja1.Cells(F, 6) = TextBox2
      Hoja1.Cells(F, 7) = TextBox3
      Hoja1.Cells(F, 8) = TextBox4
      Hoja1.Cells(F, 9) = "FALSO"
      Hoja1.Cells(F, 10) = ComboBox3.ListIndex + 1
      Hoja1.Cells(F, 11) = UCase(TextBox5)
      MsgBox "SE REGISTRARON LOS DATOS"
      Exit Sub
      
    End If
    F = F + 1
  Loop
End Sub

Private Sub UserForm_Initialize()
   'ESTE EVENTO OCURRE CUANDO SE INICIA EL FORMULARIO
  ComboBox1.AddItem "Preescolar"
  ComboBox1.AddItem "Primero"
  ComboBox1.AddItem "Segundo"
  ComboBox1.AddItem "Tercero"
  ComboBox1.AddItem "Cuarto"
  ComboBox1.AddItem "Quinto"
  ComboBox1.AddItem "Sexto"
  ComboBox1.AddItem "Septimo"
  ComboBox1.AddItem "Octavo"
  ComboBox1.AddItem "Noveno"
  ComboBox1.AddItem "Decimo"
  ComboBox1.AddItem "Undecimo"
  
  ComboBox2.AddItem "Informatica"
  ComboBox2.AddItem "Matematicas"
  ComboBox2.AddItem "Lenguaje"
  ComboBox2.AddItem "Quimica"
  
  ComboBox3.AddItem "Pregunta 1"
  ComboBox3.AddItem "Pregunta 2"
  ComboBox3.AddItem "Pregunta 3"
  ComboBox3.AddItem "Pregunta 4"
  
End Sub