Transformar mouse para ampulheta em processamento

[beatriz]

Relembrando a primeira mensagem :

Oie

Minha primeira mensagem aqui.
Tenho uma rotina que faz um calculo extenso e demorado, gostaria que ao executa-la o mouse virasse ampulheta.


Beatriz

[m@r<3|o]

VaLEw JuLhiu

[Julio]

Valeu Marcos

Bem mais pratico, irei colocar em algumas aplicações.

Obrigado

abs

julio

[Julio]

Marcelo

Me desculpe mas este codigo tambem deve ter algum problema.

Código:

CLEAR
CLEAR
CLOSE DATABASES ALL

SET TALK ON
SET NOTIFY OFF

IF .NOT. DIRECTORY ('c:\teste5')
      MESSAGEBOX("Diretorio Invalido "+CHR(13)+;
      "Redirecione para c:\teste5 ",64+0+0, "Atenção")
RETURN 0
ENDIF     

IF .NOT. FILE ('c:\teste5\cepbrasil.dbf')
        =MESSAGEBOX("Voce precisa Colocar a Tabela cepbrasil dentro desta pasta para testar o termometro",64,"Aviso")
        RETURN 0
ENDIF



set defa to "c:\teste5"
SET PATH TO c:\teste5
SET PROCEDURE TO progbar
 
if not used('cepbrasil')
use cepbrasil in 0 alias cepbrasil shared
endif
Select cepbrasil
set order to tag cidade


b = RECCOUNT ("cepbrasil")
m.titulo = "CIDADES E ESTADOS"
m.cadlista = 'Selecionando Dados... Por favor Aguarde...'

=TERMOMETRO(.T.,0,cadlista,1)

SELECT cidade ;
from cepbrasil;
WHERE  TERMOMETRO (.T.,RECNO()/b*100,cadlista,10) ; 
ORDER BY cidade;
INTO CURSOR cadlista

WAIT windows  && parada
 
MESSAGEBOX("Inicio de Geracao de Arquivo "+CHR(13)+;
  "Concluindo o Processo ",64+0+0, "Atenção")
 
 
CREATE CURS TMP (endereco C(70))
APPEND FROM cepbrasil
COPY TO cepbrasil.TXT SDF


=TERMOMETRO ()
SET TALK OFF 

  MESSAGEBOX("CepBrasil.txt "+CHR(13)+;
  "Gerado com Sucesso  ",64+0+0, "Atenção")

Observe que coloquei um wait windows antes desta parte

Código:

MESSAGEBOX("Inicio de Geracao de Arquivo "+CHR(13)+;
  "Concluindo o Processo ",64+0+0, "Atenção")

Indo na pasta o arquivo não tinha sido criado ainda e o termometro ja tinha terminado o 100%

Clicando no wait windows liberei a continuação do processo e o arquivo somente começou a ser criado apos clicar no botão OK da mensagem acima.

Vejo que não é real acho que o termometro deva funcionar durante a execução do processo de criação do arquivo txt.

Código:

CREATE CURS TMP (endereco C(70))
APPEND FROM cepbrasil
COPY TO cepbrasil.TXT SDF

Na parte acima que seu codigo esta criando o arquivo txt e a barra de progresso do termometro ja tinha completado o 100%.

[m@r<3|o]

Óla Julio , tem como voce colocar 2 cursores ....
esse termometro é bom em questao de select pq se encaixa facil em select ate que testei

se voce quer usar num procedimento que carrega e gera
e use 2 termometros modifique o codigo

aonde voce colocou wait windows la voce fecha o termometro
=TERMOMETRO ()
SET TALK OFF

eai abra outro termometro em seguida

o que voce esta vendo , é um exemplo que fiz , está muito facil de entender como encaixar o termometro ..... somente gerei o txt de brinde .... segurei a tela , somente trocar os escritos , ? inves de carregando arquivos escrever gerando as ruas .... sera que isso arruma ????

o exemplo foi pra selecionar o select , " nitidamente da pra notar no WHERE que la que a coisa funciona
Voce pode estar colocando o que tem no where em qualquer lugar que se encaixe aquele codigo .

"( amarrei o termometro ate o termino 100% pq é assim que deu pra fazer , .... encaixar no copy tambem com um termometro nao vo me arriscar ...... talves tenha como colocar o termometro depois do FOR

o exemplo é somente para a real demora do peso de arquivo, qdo emito copy ele nao demora o tanto que demora pra carregar ,
se eu usa-se outro select iria ter a mesma demora

utilizar um copy foi uma escapa de brinde
pq ja pega o cursor automatico usei para finalizar o exemplo inves de brow ....

agora caso queira que funcione diferente , ai voce tem que modificar meu caro.
Abraços

[beatriz]

Bom colegas do forum, discussões a parte.

Testei as opções aqui apresentadas e fico com a rotina do Julio, que é que atende o que vim buscar ajuda em relação em fazer o cursor virar ampulheta.
Não quero rotinas de termometro, pois como foi dito aqui mesmo o proprio VisualFoxPro tem e ja tenho imprementada no meu projeto.


Obrigada

Beatriz