CPP2_Practica05_CalcularAreas

/* prac05
Practica de decision y calculos
Basado en el ejercicio 16 del Cuaderno de Ejercicios de Programacion I */
#include <radc++.h>

//Declaracion de variables
double area= 0;

Form frmForma("Calcular areas",130,180,344,308);
Label   lblInfo("Calcular el area de diferentes poligonos",AUTO_ID,14,7,210,25,frmForma);
NumberBox   txtLado("0",AUTO_ID,119,42,62,25,frmForma);
Label   lblLado("Valor de lado",AUTO_ID,14,42,64,25,frmForma);
Label   lblLadoMenor("Valor del lado menor",AUTO_ID,14,77,100,25,frmForma);
NumberBox   txtLadoMenor("0",AUTO_ID,119,77,65,25,frmForma);
NumberBox   txtLadoMayor("0",AUTO_ID,119,112,64,25,frmForma);
Label   lblLadoMayor("Valor del lado mayor",AUTO_ID,14,112,100,25,frmForma);
Label   lblBase("Valor de la base",AUTO_ID,14,147,100,25,frmForma);
Label   lblAltura("Valor de la altura",AUTO_ID,14,182,100,25,frmForma);
NumberBox   txtBase("0",AUTO_ID,119,147,65,25,frmForma);
NumberBox   txtAltura("0",AUTO_ID,119,182,67,25,frmForma);
Button  cmdCuadrado("Cuadrado",AUTO_ID,210,42,100,25,frmForma);
Button  cmdRectangulo("Rectangulo",AUTO_ID,210,77,100,25,frmForma);
Button  cmTriangulo("Triangulo",AUTO_ID,210,140,100,25,frmForma);
Label   lblResultado("RESULTADO:",AUTO_ID,14,231,100,25,frmForma);
NumberBox   txtResultado("0",AUTO_ID,119,224,84,25,frmForma);


FormProcedure frmForma_Procedure(FormProcArgs) {
    ON_CLOSE() {
        /* [X] Code when form is closed . */
        Application.close(); //remove this line if it is not main form of application
    }

    ON_COMMAND_BY(cmdCuadrado) {
        /* Code when button is clicked. */
        area = val(txtLado.text) * val(txtLado.text);
        txtResultado.text = str(area);

    }

    ON_COMMAND_BY(cmdRectangulo) {
        /* Code when button is clicked. */
        area = val(txtLado.text) * val(txtLadoMayor.text);
        txtResultado.text = str(area);
    }

    ON_COMMAND_BY(cmTriangulo) {
        /* Code when button is clicked. */
        area = (val(txtBase.text) * val(txtAltura.text)) / 2;
        txtResultado.text = str( area );

    }

    return 0;
}

rad_main()

    frmForma.procedure=frmForma_Procedure;


rad_end()