cambiar etiquetas
Publicado por yanina (1 intervención) el 12/10/2007 01:01:42
necesito esta ayuda, yo tenga distintas letras con distintas medidas en una sola etiqueta, q se agrandan o achican depende la situacion comenzando con la letra D
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G, y desde ahi ir subiendo si no acierta, y si acierta la letra q termine, pero lo q sucede es q cuando coloco bien la letra,en el primer caso me la achica pero no me deja seguir con el programa, aca les mando el codigo a ver si me ayudan
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa
else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF
yo coloco la letre D en un text y cuando le doy enter quiero q me achiq la letra lo menor posible si acierta, seria con la letra G, y desde ahi ir subiendo si no acierta, y si acierta la letra q termine, pero lo q sucede es q cuando coloco bien la letra,en el primer caso me la achica pero no me deja seguir con el programa, aca les mando el codigo a ver si me ayudan
----------------------
el valor de la etiqueta q comienza con la D
A && FOUDSIZE 120
B && FOUDSIZE 100
C && FOUDSIZE 80
D && FOUDSIZE 60
G && FOUDSIZE 60
F && FOUDSIZE 40
G && FOUDSIZE 20
----------------------------------
en el keupress
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="D" && SI LO VIO SIGUE CON EL MAS CHICO
VALOR=70
THISFORM.label1.caption="F" && le cambio la letra
THISFORM.label1.fontsize=20 && la hago mas chica
THISFORM.TEXT1.VALUE=""
IF NKEYCODE=13
S=THISFORM.TEXT1.VALUE
IF S="G"&& si vuelve a acertar q termine
TER=MESSAGEBOX("VE LO SUFICIENTE",4,"TERMINO EL CONtrol"
IF TER=6
VALOR=20
ENDIF && si v mas chico termina el programa
else
& q me permita ir agrandando la letra si no acierta
ENDIF
ENDIF
ELSE
ENDIF
ENDIF
Valora esta pregunta
0