RE:COMO CAMBIAR TIPO LETRA EN EL RELOJ CADA 15 MIN
---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