PRACTICA 03 (Signo Zodiacal en power builder)

PRACTICA 03 (Signo Zodiacal en power builder)

Codigo Fuente:

Ø Botón apply:

intdia,mes,año,szodiaco

string z

datefec

dia=integer(sle_dia.text)

mes=integer(sle_mes.text)

año=integer(sle_año.text)

fec=today()

szodiaco=integer(right(string(fec),4))

ifdia>=21 and mes=3 or dia<=19 and mes=4 then

            z="Aries"

            pb_imagen.picturename="F:\power2010\aries_small.jpg"

elseifdia>=20 and mes=4 or dia<=20 and mes=5 then

            z="Tauro"

            pb_imagen.picturename="F:\power2010\tauros_small.jpg"

elseifdia>=21 and mes=5 or dia<=20 and mes=6 then

            z="Gemenis"

            pb_imagen.picturename="F:\power2010\geminis_small.jpg"

elseifdia>=21 and mes=6 or dia<=22 and mes=7 then

            z="Cancer"

            pb_imagen.picturename="F:\power2010\cancer_small.jpg"

elseifdia>=23 and mes=7 or dia<=22 and mes=8 then

            z="Leo"

            pb_imagen.picturename="F:\power2010\leo_small.jpg"

elseifdia>=23 and mes=8 or dia<=22 and mes=9 then

            z="Virgo"

            pb_imagen.picturename="F:\power2010\virgo_small.jpg"

elseifdia>=23 and mes=9 or dia<=22 and mes=10 then

            z="Libra"

            pb_imagen.picturename="F:\power2010\libra_small.jpg"

elseifdia>=23 and mes=10 or dia<=21 and mes=11 then

            z="Escorpio"

            pb_imagen.picturename="F:\power2010\scorpio_small.jpg"

elseifdia>=22 and mes=11 or dia<=20 and mes=12 then

            z="Sagitario"

            pb_imagen.picturename="F:\power2010\sagitario_small.jpg"

elseifdia>=21 and mes=12 or dia<=19 and mes=1 then

            z="Capricornio"

            pb_imagen.picturename="F:\power2010\capricornio_small.jpg"

elseifdia>=20 and mes=1 or dia<=18 and mes =2 then

            z="Acuario"

            pb_imagen.picturename="F:\power2010\acuario_small.jpg"

elseifdia>=19 and mes=2 or dia<=19 and mes=3 then

            z="Picis"

            pb_imagen.picturename="F:\power2010\piscis_small.jpg"

           

endif

st_res.text="Usted Tiene" +""+ string  (szodiaco - año) +"Años y su Signo es:" + string(z)
__________________________________________________ 

Ejercicio.... (checkbox)

 Diseñe el siguiente formulario....

Codigo fuente click aqui...

  Descargar en ZIP..click aqui...

Recuerda las consultas en el siguiente formulario

http://romeral.webcindario.com/Contactos.htm