Anónimo
¿Qué hace este código en formulario de visual foxpro?
Bueno necesito ayuda para comprender este código específicamente en la linea del do While y en la línea donde esta la sentencia if
tn=val(thisform.text1.value)
L = 0
DO WHILE .T. <<-------que hace la .T. Ahi??
IF INT(tn * 10 ^ L) = tn * 10 ^ L <<--------y que hace esta parte del codigo??
EXIT
else
L = L + 1
Endif
enddo
thisform.text2.value= L
Aunque preferiría que me explicaras todo el código por favor...
Y Gracias de Antemano
tn=val(thisform.text1.value)
L = 0
DO WHILE .T. <<-------que hace la .T. Ahi??
IF INT(tn * 10 ^ L) = tn * 10 ^ L <<--------y que hace esta parte del codigo??
EXIT
else
L = L + 1
Endif
enddo
thisform.text2.value= L
Aunque preferiría que me explicaras todo el código por favor...
Y Gracias de Antemano
1 Respuesta
Respuesta de Jerry Ortiz
1
INT()=Devuelve el entero más próximo que sea menor o igual que la expresión numérica especificada.
Ejemplo INT(12.5)===>12
Do While .T. =Esto lo que hace es un ciclo, bastante similar al ciclo For
enddo
Ejemplo: Mientras la Variable "A" sea menor a 10 el ciclo continua, al llegar a 10 el ciclo termina.
A=0
Do while .T.
If A=10
Exit
endif
A=A+1
Enddo
?A
Ejemplo INT(12.5)===>12
Do While .T. =Esto lo que hace es un ciclo, bastante similar al ciclo For
enddo
Ejemplo: Mientras la Variable "A" sea menor a 10 el ciclo continua, al llegar a 10 el ciclo termina.
A=0
Do while .T.
If A=10
Exit
endif
A=A+1
Enddo
?A