¿Cómo programar el temporizador de cuenta regresiva en Visual FoxPro?

1. Cree un nuevo formulario y coloque un cuadro de texto, un botón y un temporizador en el formulario. Atributos del temporizador: habilitado es .f., intervalo=1000

Complete el código en el evento del temporizador del temporizador1:

a=val(thisform.text1.value)

este formulario.refresh

a=a-1

si a<=0

a=0

endif

thisform.text1.value=str(a)

Rellene el código en el evento de clic del botón:

thisform.timer1.enabled= .t.

2.s=0

para m=3 a 100 paso 2

n=int(sqrt(m))

para i =3 a n

si mod(m,i)=0

salir

endif

endfor

si i>n

s=s+m

endif

endfor s=s+2

3. Cree un nuevo formulario, agregue un cuadro de texto y un control de botón al formulario. Agregue código en el evento de clic del control del botón:

s=''

a=alltrim(thisform.text1.value)

l=len( a )

para i=l a 1 paso -1

b=substr(a,i,1)

s=s+b

siguiente

este formulario.text1.value=s