CPP2_Practica08_Zodiaco

/* prac08.cpp
Ejemplo basado en el programa Practica 1 - Zodiaco del Cuaderno de Trabajo
de C++.
Este programa muestra el signo zodiacal de una persona. Para ello el usuario
debe introducir unicamente el dia y mes de su nacimiento y el programa dira
a que signo del zodiaco pertenece.
Basicamente se crea con estructuras condicionales pero en esta version se
agregaron controles visuales y ademas mostrara el icono relacionado con el
signo.
Por: LSC Sergio Hugo Sanchez O.
Fecha: 06/Mayo/2011
*/

#include <radc++.h>

/* Variables globales */
int vMes, vDia;

// Controles
Form frmForma("Zodiaco");
Label lbfMes("Introduzca su mes de nacimiento: ",AUTO_ID, 10,10,200,20,frmForma);
NumberBox txtMes(" ",AUTO_ID,220,10,50,20,frmForma);
Label lbfDia("Introduzca su dia de nacimiento: ",AUTO_ID, 10,30,200,20,frmForma);
NumberBox txtDia(" ",AUTO_ID,220,30,50,20,frmForma);
Button cmdHoroscopo("Pulsa AQUI",AUTO_ID, 10, 60, 200,20, frmForma);
ReadOnlyBox txtHoroscopo("Su Horoscopo es: ",AUTO_ID, 10,90,250,20,frmForma);
ImageBox icoImagen( AUTO_ID,0, 10,110,130,130,frmForma);

FormProcedure frmForma_Procedure(FormProcArgs) {
             ON_CLOSE() Application.close();

             ON_COMMAND_BY( cmdHoroscopo ) {
                 //Hacer un switch para conocer primero el mes
                 txtHoroscopo.visible = true;
                 icoImagen.visible = true;
                 vMes = val( txtMes.text);
                 vDia = val( txtDia.text);
                 switch (vMes)
                 {
                    case 1:
                         if (vDia <=20) {
                           txtHoroscopo.text = "Su Horoscopo es CAPRICORNIO";
                           icoImagen.loadImage( Application.path + "\\Capricornio.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es ACUARIO";
                           icoImagen.loadImage( Application.path + "\\Acuario.png"); }
                         break;
                    case 2:
                         if (vDia <=19) {
                           txtHoroscopo.text = "Su Horoscopo es ACUARIO";
                           icoImagen.loadImage( Application.path + "\\Acuario.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es PISCIS";
                           icoImagen.loadImage( Application.path + "\\Piscis.png"); }
                         break;
                    case 3:
                         if (vDia <=20) {
                           txtHoroscopo.text = "Su Horoscopo es PISCIS";
                           icoImagen.loadImage( Application.path + "\\Piscis.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es ARIES";
                           icoImagen.loadImage( Application.path + "\\Aries.png"); }
                         break;
                    case 4:
                         if (vDia <=20) {
                           txtHoroscopo.text = "Su Horoscopo es ARIES";
                           icoImagen.loadImage( Application.path + "\\Aries.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es TAURO";
                           icoImagen.loadImage( Application.path + "\\Tauro.png"); }
                         break;
                    case 5:
                         if (vDia <=21) {
                           txtHoroscopo.text = "Su Horoscopo es TAURO";
                           icoImagen.loadImage( Application.path + "\\Tauro.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es GEMINIS";
                           icoImagen.loadImage( Application.path + "\\Geminis.png"); }
                         break;
                    case 6:
                         if (vDia <=21) {
                           txtHoroscopo.text = "Su Horoscopo es GEMINIS";
                           icoImagen.loadImage( Application.path + "\\Geminis.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es CANCER";
                           icoImagen.loadImage( Application.path + "\\Cancer.png"); }
                         break;
                    case 7:
                         if (vDia <=23) {
                           txtHoroscopo.text = "Su Horoscopo es CANCER";
                           icoImagen.loadImage( Application.path + "\\Cancer.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es LEO";
                           icoImagen.loadImage( Application.path + "\\Leo.png"); }
                         break;
                    case 8:
                         if (vDia <=23) {
                           txtHoroscopo.text = "Su Horoscopo es LEO";
                           icoImagen.loadImage( Application.path + "\\Leo.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es VIRGO";
                           icoImagen.loadImage( Application.path + "\\Virgo.png"); }
                         break;
                    case 9:
                         if (vDia <=23) {
                           txtHoroscopo.text = "Su Horoscopo es VIRGO";
                           icoImagen.loadImage( Application.path + "\\Virgo.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es LIBRA";
                           icoImagen.loadImage( Application.path + "\\Libra.png"); }
                         break;
                    case 10:
                         if (vDia <=23) {
                           txtHoroscopo.text = "Su Horoscopo es LIBRA";
                           icoImagen.loadImage( Application.path + "\\Libra.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es ESCORPION";
                           icoImagen.loadImage( Application.path + "\\Escorpion.png"); }
                         break;
                    case 11:
                         if (vDia <=22) {
                           txtHoroscopo.text = "Su Horoscopo es ESCORPION";
                           icoImagen.loadImage( Application.path + "\\Escorpion.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es SAGITARIO";
                           icoImagen.loadImage( Application.path + "\\Sagitario.png"); }
                         break;
                    case 12:
                         if (vDia <=21) {
                           txtHoroscopo.text = "Su Horoscopo es SAGITARIO";
                           icoImagen.loadImage( Application.path + "\\Sagitario.png");}
                         else
                           {txtHoroscopo.text = "Su Horoscopo es CAPRICORNIO";
                           icoImagen.loadImage( Application.path + "\\Capricornio.png"); }
                         break;


                        }
                            }
             return 0;
              }

rad_main()
    frmForma.procedure=frmForma_Procedure;     // Ejecutar el procedimiento
    txtHoroscopo.visible = false;              //No mostrar el control de resultado
    icoImagen.visible = false;                 //No mostrar imagen
    txtMes.setLimit(2);                        //Maximo 2 digitos en cajas
    txtDia.setLimit(2);
    txtMes.focus();
rad_end()