topic-5139

Posts: 365

Joined: Sat Oct 08, 2005 07:59 PM

Como interrumpir un bucle?
Posted: Thu Nov 30, 2006 05:43 PM

Tengo un botón y un bucle Do while, en el que hago las mediciones. Quisiera que al pulsar el botón terminase el bucle. Ahora lo hago así:

Code: Select all Collapse

@ r,c, Button "Stop"..... ACTION lOk := .F. 
lOk := .T.
Do While lOk
     MiFuncionDeMedir()
     ....
Enddo

Pero reacciona muy lentamente. O sea: Entre la pulsación del botón y el fin del bucle pasan algunos segundos. ¿Hay alguna forma de hacer un Break inmediato? Existe alguna función del API de windows o algo así? Gracias

Rafael

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como interrumpir un bucle?
Posted: Thu Nov 30, 2006 06:03 PM

Rafael,

Prueba a llamar a SysRefresh() en el bucle:

Code: Select all Collapse

Do While lOk 
     MiFuncionDeMedir() 
     SysRefresh() 
Enddo

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rafael Clemente

Posts: 365

Joined: Sat Oct 08, 2005 07:59 PM

Como interrumpir un bucle?
Posted: Thu Nov 30, 2006 07:19 PM

Antonio:
Tengo varios SysRefreh() tanto en el bucle como en MiFuncion(). La variable lOk está declarada como Pública.

Más o menos la cosa funciona. "Pastosa", pero funciona. Sólo quería saber si había alguna función escondida por ahí que permitiese forzar una interrupción más ágil, algo así como una interrupción por teclado...

Gracias

Rafael

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como interrumpir un bucle?
Posted: Fri Dec 01, 2006 12:48 PM

Rafael,

Ese proceso lo estás haciendo en bases de datos en la tarjeta de memoria ? Procura hacerlo en ram, no en la tarjeta.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rafael Clemente

Posts: 365

Joined: Sat Oct 08, 2005 07:59 PM

Como interrumpir un bucle?
Posted: Fri Dec 01, 2006 01:01 PM

Antonio:
El proceso consiste simplemente en capturar unos strings de seis cifras que llegan via RS-232 a un ritmo de uno cada diez segundos. Una vez capturado, lo grabo en un Dbf. Programa y datos los tengo en la tarjeta de memoria, en la misma carpeta. Intentaré pasarlos a RAM.

Por cierto, ahora abro las tablas como USE CurDir()+"\Tabla.dbf". Si pongo el programa en RAm pero mantendo las dbfs en la tarjeta, como he de acceder a ella? Quiero decir: Ya no será Curdir(), no?

Saludos,

Rafael

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Como interrumpir un bucle?
Posted: Fri Dec 01, 2006 01:06 PM

Rafael,

Las tarjetas de memoria son algo lentas en acceso a escritura. Procura poner las DBFs en ram. Para usarlas puedes seguir usando CurDir(), si las tienes en donde esté la aplicación (en RAM también). Si no es el caso, especifica su path "carpeta...".

Cuando el proceso termine, cópialas a la tarjeta de memoria, en caso de que necesites llevarte la tarjeta a otra parte.

regards, saludos

Antonio Linares
www.fivetechsoft.com

mjcc

Posts: 139

Joined: Fri Apr 07, 2006 09:16 PM

Estoy interado en esto
Posted: Mon Dec 04, 2006 01:12 PM

Como puedo colocar las bases de datos en RAM.

gracias

imjcc@mjccsl.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM