CPP2_Practica02_TiposDatos

/* practica03
Practica basada en el ejercicio 2, con manejo de ventanas */
#include <radc++.h>
#include <string.h>
#include <stdlib.h>

/* Primero definimos las variables a usar */
int y,x;
int suma;
int multiplica;

/* Construimos la forma y sus controles */
Form  Form1("Tipos de datos");                //Definicion de la Forma
Label lblX("Valor X",AUTO_ID,5,7,50,15,Form1);    //Etiqueta 1
Label lblY("Valor Y",AUTO_ID,5,27,50,15,Form1);   //Etiqueta 2
Label lblSuma("Suma:",AUTO_ID,5,47,50,15,Form1);   //Etiqueta 3

TextBox txtX("X",AUTO_ID,65,5,100,18,Form1);    //Caja de texto 1
TextBox txtY("Y",AUTO_ID,65,25,100,18,Form1);   //Caja de texto 2
TextBox txtSuma("Suma",AUTO_ID,65,45,100,18,Form1);   //Caja de texto 3

Button b1("Boton",AUTO_ID,15,75,100,25,Form1);      //Definicion del boton
    FormProcedure procedure1 (FormProcArgs)             //Procedimiento de la forma
    {
    ON_CLOSE()                                          //Evento para cerrar la forma
               {
               Application.close();             //Salir de la aplicacion
               }
    ON_COMMAND_BY (b1)                                  //Evento de hacer click en el boton
               {
               suma=0;
               y=val(txtY.text);
               x=val(txtX.text);
               suma = x + y;
               txtSuma.text = str(suma);
               }
               return 0;
    }
    rad_main()                                          //rad c++ Programa principal
//              lblX.text="X";
//              lblY.text="Y";
//              lblSuma.text="X+Y";
              txtY.text="";
              txtX.text="";
              txtSuma.text="";
              txtSuma.enabled=false;
              b1.text="SUMAR";
              Form1.procedure = procedure1;
    rad_end()