Minicalculadora elemental. En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro operaciones aritméticas.
El usuario introduce los datos y da clic a sobre el botón correspondiente a la operación que desea realizar, apareciendo inmediatamente el resultado en la caja de texto de la derecha.
Recuerda en este código no hay validación solo se hacen las operaciones por si dejas los texbox vacíos te va a sacar error este código es un ejemplo de como hacer operaciones matemáticas
En este ejemplo se ha utilizado repetidamente la función Val() de Visual Basic. Esta función convierte una serie de caracteres numéricos (un texto formado por cifras) en el número entero o de
punto flotante correspondiente.
Sin la llamada a la función Val() el operador + aplicado a cadenas de caracteres las concatena, y como resultado, por ejemplo, “3+4” daría “34”. No es lo mismo los caracteres “1” y “2” formando la cadena o String “12” que el número 12; la función val() convierte cadenas de caracteres numéricos –con los que no se pueden realizar operaciones aritméticas- en los números correspondientes –con los que sí se puede operar matemáticamente.
Visual Basic 6.0 transforma de modo automático números en cadenas de caracteres y viceversa, pero este es un caso en el que dicha transformación no funciona porque el operador “+” tiene sentido tanto con números como con cadenas.
Option Explicit Private Sub cmdDiv_Click() txtResult.Text = Val(txtOper1.Text) / Val(txtOper2.Text) lblOp.Caption = "/" End Sub Private Sub cmdMultip_Click() txtResult.Text = Val(txtOper1.Text) * Val(txtOper2.Text) lblOp.Caption = "*" End Sub Private Sub cmdResta_Click() txtResult.Text = Val(txtOper1.Text) - Val(txtOper2.Text) lblOp.Caption = "-" End Sub Private Sub cmdSuma_Click() txtResult.Text = Val(txtOper1.Text) + Val(txtOper2.Text) lblOp.Caption = "+" End Sub
En estos códigos vemos lo sencillo que es hacer operaciones matemática en Visual Basic a diferencia de otros lenguajes que debes convertir a numero lo que escribas en el control TexBox y hacer la operación y volver a convertir a texto para ponerlo en el TextBox del resultado.
Este ejercicio se hizo sobre Visual Basic 6 SP6 en Windows 10 64 Bit, Desea instalar Visual Basic en Windows 10 visite Instalar Visual Basic 6 en Windows 10 64 bits
Descarga el código:
Ejercicio 1.2 Minicalculadora elemental (475 descargas )