PRÁCTICA 2 - Mini Calculadora

Este programa permite mostrar una calculadora elemental que permite hacer las cuatro operaciones aritméticas. Los archivos de este proyecto se llamarán minicalc.vbp y minicalc.frm.



El usuario introduce los datos y hace click sobre el botón correspondiente a la operación que desea realizar, apareciendo inmediatamente el resultado en la caja de texto de la derecha.

A continuación los objetos y las propiedades de este programa:



El código correspondiente a los procedimientos que gestionan los eventos de este programa:

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)
    lblOp.Caption = "-"
End Sub

Private Sub cmdSuma_Click()
    txtResult.Text = Val(txtOper1.Text) + Val(txtOper2.Text)
    lblOp.Caption = "+"
End Sub