VISUAL BASIC DESDE EL PROGRAMADOR DE OFFICE
REPASO: HABILITAR EL PROGRAMADOR DE VISUAL BASIC EN MICROSOFT EXCEL
En Excel, lleve a cabo las siguientes acciones:
Haga clic en:
==>Archivo
==>Opciones
==>Opciones Personalizadas
==>Programador (se encuentra en el cuadro del lado derecho de la pantalla, al hacer clic en el casilla debe aparecer un visto bueno que habilita esta herramienta)
Luego, en el libro de Excel, en la Barra Superior (Barra de Menú), haga clic en “Programador”. De las opciones que aparecen, haga clic en “Visual Basic”.
ACTIVIDAD PRÁCTICA EN VISUAL BASIC PARA APLICACIONES
Al ingresar a Visual Basic:
Haga clic en:
==>Insertar
UserForm
Aparecerá en pantalla un UserForm, un Cuadro de Herramientas y una Tabla de Propiedades, tal como se aprecia a continuación:
· En el Cuadro de Herramientas: Hacer clic sobre Etiqueta y dibujar en el UserForm (formulario) la etiqueta.
· En la barra de propiedades de la etiqueta, escribir frente a Caption: PRIMER NÚMERO
· Repetir el procedimiento para insertar otra etiqueta, pero esta vez se escribirá frente a Caption: SEGUNDO NÚMERO
· Luego, en el Cuadro de Herramientas: Hacer clic sobre Cuadro de Texto y dibujar en el Formulario el cuadro de texto correspondiente al primer y al segundo número.
· De nuevo, en el cuadro de Herramientas: Hacer clic sobre el Botón de Comando (CommandButton), e insertar en el formulario un Botón (el de SUMA). Escribir frente a Caption: SUMA.
· Luego, dibujar una etiqueta para el Resultado. Al frente de la etiqueta, dibujar un cuadro de texto.
El formulario deberá ser similar al siguiente:
Por último, hacer doble clic sobre el botón suma y escribir el siguiente código:
Private Sub CommandButton1_Click()
a = Val(TextBox1)
b = Val(TextBox2)
TextBox3 = a + b
EXPLICACIÓN E INSTRUCTIVO PASO A PASO DEL PROGRAMA EN VB PARA CALCULAR EL IMC
RETO POR 50 PUNTOS
Recuerde: Lo que debe hacer es analizar y explicar cada línea del código, o si lo prefiere y tiene computador, hacer este juego o uno nuevo basándose en este.
CÓDIGO PROGRAMACIÓN VB
Private Sub CommandButton1_Click()
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
End Sub
Private Sub CommandButton2_Click()
Image2.Visible = True
Image1.Visible = False
Image3.Visible = False
End Sub
Private Sub CommandButton3_Click()
Image3.Visible = True
Image2.Visible = False
Image1.Visible = False
End Sub
Private Sub CommandButton4_Click()
TextBox1 = "Proteínas"
TextBox2 = ""
TextBox3 = ""
End Sub
Private Sub CommandButton5_Click()
TextBox2 = "Carbohidratos"
TextBox1 = ""
TextBox3 = ""
End Sub
Private Sub CommandButton6_Click()
TextBox3 = "Grasas Saludables"
TextBox2 = ""
TextBox1 = ""
End Sub
Private Sub CommandButton7_Click()
MsgBox "Muy bien, Felicitaciones"
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
TextBox3 = "Grasas Saludables"
TextBox2 = "Carbohidratos"
TextBox1 = "Proteínas"
End Sub
Private Sub CommandButton8_Click()
MsgBox "Te equivocaste"
End Sub
Private Sub CommandButton9_Click()
MsgBox "Te equivocaste"
End Sub
Private Sub CommandButton10_Click()
MsgBox "Te equivocaste"
End Sub
Pistas.
1) Interfaz:
2. Vista en pantalla cuando ejecuto el programa:
Información complementaria:
