FoxPro/Visual FoxPro - COMO CAMBIAR TIPO LETRA EN EL RELOJ CADA 15 MIN.

ESTOY APENAS APRENDIENDO A PROGRAMAR, SOLICITO DE SU AYUDA, TENGO QUE ENTREGAR EN UN FORMULARIO UTILIZANDO EL CONTROL TIMER, PRIMERO QUE DESPLIEGUE LA HORA DEL SISTEMA Y QUE CADA 15 MINUTOS CAMBIE EL TIPO DE LETRA Y EL TAMAÑO ¿ME PUEDEN AYUDAR? GRACIAS

SALUDOS

---define una varible pública en el evento Init del formulario

public lTiempoTranscurrido, aTabla

lTiempoTranscurrido=0 && en segundos

dimension aTabla[3]
aTabla[1]='Arial'
aTabla[2]='Corier New'
aTabla[3]='Times New Roman'

-----------------------------------------------------
del evento timer
modifica la propiedad Interval, poniendo a 1000
osea 1000 milisegundos, es decir 1 segundo

luego sólo debes cambiar las propiedades correspondientes a cada objeto, supongamos que el objeto se llame txtObjeto
entonces escribimos el siguiente código:

if lTiempoTranscurrido=900 && 900 segundos = 15 minutos pues
thisform.txtObjeto.Fontname=aTabla[aleaent(1,3)]
thisform.txtObjeto.Fontsize=aleaent(10,20)
****
lTiempoTranscurrido=0
else
lTiempoTranscurrido=lTiempoTranscurrido+1
endif

----------------
AleaEnt es un programa que devuelve un número entero comprendido entre dos valores dados
y el código es el siguiente, créalo:

para i, j
retu int((j-i+1)*rand()+i)

--------------------
dado que cada 15 minutos deben cambiarse valores y dado que también no tengo muchas más referencias, definí una variable matriz con tres valores de tipos de letras

bueno, espero que todo esto te sirva, aplicando tu propio criterio

saludos