Programacion Orientada
El siguiente proyecto se basa, en varios botones (CommandButtons) para realizar propiedades aritmeticas: suma, resta, multiplicación, división. Se hace uso de Label paracrear el titulo de la ventana del proyecto. Y un Image para agregar un recuadro de imagén con el logo de la institución.
Datos de entrada
Dim : Uso de la palabra reservada Dim para declarar lasvariables usadas en el código.
Single : Palabra reservada que indica el tipo de variable a guardar de tipo decimal.
Integer : Palabra reservada que indica el tipo de variable a guardar de tipo entero.vbOkOnly : Tipo de botón
Variables usadas:
num1
num2
num3
num4
cantidad
suma
resta
mult
div
Datos de salidas
InputBox : Palabra reservada que permite la entrada de datos de Vb, pormedio de una ventana.
MsgBox : Función predeterminada de Vb, para mostrar mensajes de datos o salidas, información, advertencias, cuestionarios por medio de ventanas.
Operaciones y ProcesosEstructura selectiva de decisión simple: Evalua una condición, que corresponde a una expresión lógica. Si la condición es verdadera se ejecuta una seria de comandos, si es falsa no se ejecuta.
Estructurasanidadas: Se usan cuando existen mas de dos alternativas entre las cuales podemos elegir.
Suma: +
Resta: -
Multiplicación: *
División: /
Codificación
PROGRAMA DE OPERACIONES ARITMETICASPrivate Sub Command1_Click()
Dim num1 As Single, num2 As Single, num3 As Single, num4 As Single
Dim suma As Single, cantidad As Integer
cantidad = InputBox(" Ingrese la cantidad de números a sumar","SUMA")
If cantidad = 5 Then
Res = MsgBox("Solo se pueden sumar 4 numeros seguidos", vbOKOnly + 48)
End If
If cantidad > 4 Then
num1 = InputBox("Ingrese el primer número", "SUMA")
num2 =InputBox("Ingrese el segundo número", "SUMA")
num3 = InputBox("Ingrese el tercer número", "SUMA")
num4 = InputBox("Ingrese el cuarto numero", "SUMA")
suma = num1 + num2 + num3 + num4
MsgBox ("El...
Regístrate para leer el documento completo.