PRACTICA “MINICALCULADORA ELEMENTAL”
2.
- Mini calculadora elemental
En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro
operaciones aritméticas.
Los ficheros de este proyecto se pueden llamar minicalc.
vbp y
minicalc.
frm....
More
PRACTICA “MINICALCULADORA ELEMENTAL”
2.
- Mini calculadora elemental
En este ejemplo se muestra una calculadora elemental que permite hacer las cuatro
operaciones aritméticas.
Los ficheros de este proyecto se pueden llamar minicalc.
vbp y
minicalc.
frm.
El usuario introduce los datos y clica sobre el botón correspondiente a la operación que desea
realizar, apareciendo inmediatamente el resultado en la caja de texto de la derecha.
.
Tabla de Objetos y propiedades
A continuación se muestra el código correspondiente a los procedimientos que gestionan los
eventos de este ejemplo.
Option Explicit
Private Sub cmdDiv_Click()
txtResult.
Text = Val(txtOper1.
Text) / Val(txtOper2.
Text)
lblOp.
Caption = "/"
End Sub
Private Sub cmdProd_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)
Less