viernes, 8 de julio de 2011

 

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...



Recuerda las consultas en el siguiente formulario
http://romeral.webcindario.com/Contactos.htm
Share: