proyecto final para 502 en linea

Proceso para crea tu proyecto final

Paso 1: crea el formulario principal

Nota: identifique los objetos requeridos en la ventana de acceso con contraseña

Esta forma se llama frmEntrada

Paso 2: Agrega un nuevo formulario a tu proyecto

agrega a tu nuevo formulario

• Una etiqueta
• 5 botones
• Una barra de menú 

La forma se llama frmMenu

Este formulario debe contener 

Una barra de menús con la siguiente estructura (5 menús y cada menú debe llevar por lo menos 2 opciones, puedes elegir del ejemplo)

Ejemplo 1

Ejemplo 2

 Temas (Cambio de colores de Fondo y/o Botones) 

•   Rojo 
•   Amarillo
•   Verde
•   Azul

·         Botones (Control de los Botones)

•      Ocultar Botones
•      Mostrar Botones
•      Habilitar  Botones
•      Des habilitar   Botones

       Datos (Ir a las ventanas de datos)

•           Ir a Clientes
•           Ir a Productos
•           Ir a Proveedores
•           Ir a Empleados

 

          Herramientas

•                   Calculadora (Enlazar al formulario de calculadora básica o estándar) 1

·        Conversiones (Por medio de ventanas de entrada y mensaje realizar las conversiones de:)

f

• Peso a dólar
• Dólar a peso
• Centímetros a pulgadas
• Pulgadas a centímetros
• Litros a onzas
• Onzas a litros

g

·        Información (Mostrar la información solicitada en formularios o cajas de mensaje)

•     Historia de la empresa
•     Misión
•     Visión
•     Ubicación 
•     Teléfono

·        Finalizar

•     Salir
•     Regresar a ventana de acceso
•     Calificar a la compañía

Paso 3 agrega el código al  primer formulario, el código será para el botón Acceso:

Dim Contrasena As String
Dim Usuario As String
Private Sub cmdAcceso_Click()
    Usuario = txtUsuario
    Contrasena = txtContrasena
If (Usuario = "Luis Tapia") And (Contrasena = "hoyt97") Then
    frmEntrada.Hide
    frmMenu.Show
Else
    MsgBox "Acceso Denegado"
    txtUsuario.Text = ""
    txtContrasena.Text = ""
End If
End Sub

--------------------------------------------------------------------------------------------------------------

Comprueba que funcione

paso 4: Crea las formas que utilizaras en cada menú (consulta los ejemplos de la ficha actividades para hoy)

    Ejemplo de datos

      

  

      Ejemplo de calculadora (cualquiera de las 2)

Ejemplo para conversiones, no requiere formulario, puede utilizar cuadros de mensaje y cuadro de entrada.

solo se escribe el código directamente al abrir el menú:

Dim Pesos As Single

Dim Dolares As Single

Dim TCambio As Single

Private sub mnuPesoADolar_Clic()

        Pesos = Inputbox ("Cantidad de pesos")

        TCambio = Inputbox ("Tipo de cambio")

        Dolares= Pesos / TCambio

        Msgbox("El equivalente en dolares son: " & Dolares

End sub

El Resultado será:

Paso 5: Agrega el código a todos los menús y botones.

Temas 

•   Rojo 
•   Amarillo
•   Verde
•   Azul

código:

Private Sub mnuAzul_Click()
      frmMenu.BackColor = vbBlue
End Sub



Private Sub mnuRojo_Click()
     frmMenu.BackColor = vbRed
End Sub

Paso 6: Guarda el proyecto en una nueva carpeta

Paso 7: Genera el proyecto ejecutable.

??????????????????????????????????????????????????????????????????????????????????????????

video para crear una calculadora basica


https://www.youtube.com/watch?v=FzPy7cpSb-8