Capital de República de Macedonia

Capital de República de Macedonia,

Para la esta trivia usaremos 4f ormularios .

1. Formulario Principal

(Para mayor visualización de la imagen, hacer click en la misma)

2. Formulario Preguntas

(Para mayor visualización de la imagen, hacer click en la misma)

 

Al llenar el formulario click en Intentar y arrojará los resultados de las preguntas si son correctas o incorrectas.

(Para mayor visualización de la imagen, hacer click en la misma)

3. Datos Demográficos

4. Formulario Reseña Histórica

(Para mayor visualización de la imagen, hacer click en la misma)

 

Funcionamiento de los Formularios:

1. Para el Formulario de Menú obtenemos el siguiente código:

El formulario menú carga las imágenes y el ListBox , las acciones de los botones dirigiéndose a sus respectivos formularios.

Private Sub btnPreguntas_Click()
Preguntas.Show
End Sub

Private Sub CommandButton3_Click()
Main.Hide
End Sub

Private Sub CommandButton4_Click()
If ListBox1.Text = "MAPA" Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
ElseIf ListBox1.Text = "BANDERA" Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Else
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End If
End Sub

Private Sub CommandButton5_Click()
Demografia.Show

End Sub

Private Sub CommandButton6_Click()
Resena.Show
End Sub

Private Sub UserForm_Activate()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
ListBox1.AddItem ("MAPA")
ListBox1.AddItem ("BANDERA")
ListBox1.AddItem ("CAPITAL")

End Sub

2. Para el Formulario de Preguntas.

Agrupamos las optionbutton para la primera y tercera pregunta. Luego le damos una lógica condicional para poder obtener las respuestas correctas y enviar un mensaje de responder las preguntas correctas y sino contesta con un mensaje donde indica cual de las preguntas es incorrecta.

Private Sub btnIntentar_Click()
If OptionButton1.Value = True Then
primera = "Correcta"
Else
primera = "Incorrecta"
End If

If LCase(TextBox1.Value) = "skopie" Then
segunda = "Correcta"
Else
segunda = "Incorrecta"
End If

If OptionButton5.Value = True Then
Tercera = "Correcta"
Else
Tercera = "Incorrecta"
End If

If primera = "Correcta" And segunda = "Correcta" And Tercera = "Correcta" Then
MsgBox "Felcidades todas las respuestas estan correctas."
Else
MsgBox "Intentalo denuevo. Respuesta 1: " & primera & ", Respuesta 2: " & segunda & ", Respuesta 3: " & Tercera
End If

3. Formularios de Demografía y Reseña Histórica

Estos formularios muestran información sobre la Capital de República de Macedonia.

Este código para el formulario de Reseña Histórica permite ajustar texto al Textbox

Private Sub UserForm_Activate()

TextBox1.MultiLine = True
ScrollBars = 2 - fmScrollBarsVertical
End Sub

 

Formulario Capital de la República de Macedonia

Republica_de_Macedonia

 

Por: Kevin Mallea