Francia es considerada uno de los países europeos con mayor difusión cultural en el contexto internacional. Es el primer destino turístico mundial, con 80 millones de visitantes extranjeros al año. Es un país reconocido también por la historia que alberga, como el cierre de la Primera Guerra Mundial con el Tratado de Versalles, la Declaración de los Derechos del Hombre y del Ciudadano. Además es miembro fundador de la Organización de las Naciones Unidas (ONU), es sede del Consejo de Europa, del Parlamento Europeo, de las Organizaciones para la Cooperación y el Desarrollo Económico, y de la Unesco. Cabe mencionar que es una de las ocho potencias nucleares reconocidas y miembro de la OTAN.
Su capital, Paris, es el destino turístico más popular del mundo. Cuenta con muchos de los monumentos más famosos y admirados del orbe, tales como la Torre Eiffel, la Catedral de Notre Dame, el Arco de Triunfo, entre otros. Además, en esta ciudad podemos encontrar el Louvre, el Museo de Orsay y el Museo Nacional de Historia Natural de Francia.
Formulario Francia
Para poder conocer más sobre este país, se creó un formulario. En éste podemos ver, por medio de botones, mayor información de Francia.
(Para mayor visualización de la imagen, hacer click en la misma)
Con el primer botón, se tendrá la bandera y el mapa del país. Con el segundo se verán datos demográficos. Por último, con el botón "Trivia", se verá una ventana con ciertas preguntas para que el usuario pueda responderlas luego de haber leído la información presentada, todo ello, a modo de juego.
(Para mayor visualización de la imagen, hacer click en la misma)
En la ventana de Trivia, se verán varios botones, al dar click en el botón con la respuesta correcta, aparecerá un mensaje indicando que el usuario ha respondido correctamente. Para lograr esto, se hizo uso de la función MsgBox en VBA, en cada botón, de la siguiente forma:
Private Sub CommandButton3_Click()
MsgBox "No es la respuesta correcta."
End Sub
Private Sub CommandButton4_Click()
MsgBox "No es la respuesta correcta."
End Sub
Private Sub CommandButton5_Click()
MsgBox "Respuesta correcta!"
End Sub
Private Sub CommandButton6_Click()
MsgBox "No es la respuesta correcta."
End Sub
Private Sub CommandButton7_Click()
MsgBox "No es la respuesta correcta."
End Sub
Private Sub CommandButton8_Click()
MsgBox "No es la respuesta correcta."
End Sub
Private Sub CommandButton9_Click()
MsgBox "Respuesta correcta!"
End Sub
En el presente archivo, se puede ver las interacciones mencionadas.
Por: Cristina Gamboa Guevara