Uso de delay's en VFP

On Wed, 9 Mar 2005 21:34:08 -0600, "[David]"
wrote:

Saludos.
Mi pregunta es si existe una funcion para retrasar el tiempo para mostrar
resultados, por ejemplo la funcion wait que se usa en los PRG, quisiera
saber si hay una asi para los formularios y usarla en un textbox
ejemplo
I.. N..I..C..I..O
esta palabra INICIO la quiero sacar letra por letra, ya que el prog que
estoy haciendo en un compilador :P
estas letras las saco de un archivo de texto. ej
nFile = fopen ("c:\x.dat")
i=0
thisform.evaluar.value0
do while not feof (lnFile)
i=i+1
thisform.entrada.value=thisform.entrada.value+fread(lnfile,i)
*Aqui quiero una funcion de retraso
enddo
fclose(lnFile)

De antemano, gracias

Ver Sleep API:
http://www.news2news.com/vfp/?function€




Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

On Wed, 9 Mar 2005 21:34:08 -0600, "[David]"
wrote:

Saludos.
Mi pregunta es si existe una funcion para retrasar el tiempo para mostrar
resultados, por ejemplo la funcion wait que se usa en los PRG, quisiera
saber si hay una asi para los formularios y usarla en un textbox
ejemplo
I.. N..I..C..I..O
esta palabra INICIO la quiero sacar letra por letra, ya que el prog que
estoy haciendo en un compilador :P
estas letras las saco de un archivo de texto. ej
nFile = fopen ("c:\x.dat")
i=0
thisform.evaluar.value0
do while not feof (lnFile)
i=i+1
thisform.entrada.value=thisform.entrada.value+fread(lnfile,i)
*Aqui quiero una funcion de retraso
enddo
fclose(lnFile)

Ver:
INKEY()
en la ayuda



Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(address munged with ROT-13)

Blog: http://www.bloglines.com/blog/AlexFeldstein
Website: http://feldstein.net

Hola

Yo haria lo siguiente:

nFile = fopen ("c:\x.dat")
i=0
thisform.evaluar.value0
do while not feof (lnFile)
i=i+1
thisform.entrada.value=thisform.entrada.value+fread(lnfile,i)
*Aqui quiero una funcion de retraso
wait "" timeout 1
enddo
fclose(lnFile)


el timeout 1 indica que espere un segundo, experimenta con diferentes
valores hasta obtener lo que deseas, puedes utilizar valores fraccionarios.

Otra forma seria incorporar un loop del tipo for.endfor

Espero te sea util

David




[quote][B][David] Escribió:[/b]

<pre>
Saludos.
Mi pregunta es si existe una funcion para retrasar el tiempo para mostrar
resultados, por ejemplo la funcion wait que se usa en los PRG, quisiera
saber si hay una asi para los formularios y usarla en un textbox
ejemplo
I.. N..I..C..I..O
esta palabra INICIO la quiero sacar letra por letra, ya que el prog que
estoy haciendo en un compilador :P
estas letras las saco de un archivo de texto. ej
nFile = fopen ("c:\x.dat")
i=0
thisform.evaluar.value0
do while not feof (lnFile)
i=i+1
thisform.entrada.value=thisform.entrada.value+fread(lnfile,i)
*Aqui quiero una funcion de retraso
enddo
fclose(lnFile)

De antemano, gracias

</pre>
[/quote]

Con Fox, todo se puede !!


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway