Transformar mouse para ampulheta em processamento

[beatriz]

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

[Julio]

Veja se lhe ajuda em alguma coisa.

Crie no form um novo metodo denominado AGUARDAR e cole o codigo abaixo:

Código:


* Metodo aguardar
LPARAMETERS tlAguardar
LOCAL lnPointer
lnPointer = IIF(tlAguardar, 11, 0)
this.MousePointer = lnPointer
_screen.MousePointer = lnPointer
this.SetAll('MousePointer', lnPointer)

No botão ou aonde vai realizar a mudança coloque:

Código:


*!* Habilita a ampuleta do mouse
Thisform.Aguardar(.T.)

seus comandos ou rotinas

*!* Volta o mouse para seta normal
Thisform.Aguardar(.F.)


Deve ter coisa melhor, mas pra mim quebrou um galhão quando precisei algo do tipo.

julio

[Marcos Guedes]

Sem bem vinda, Beatriz!


Ótima solução, Julio!

[alceu11]

Seja bem vinda Beatriz , bonito o seu avatar

[m@r<3|o]

eu fiz aqui e nao notei diferença nao , faça chuva ou faça sol a ampulheta aparece só que demora um poco para aparecer pq acho que ela so aparece qdo o negocio trava na demora mesmo testando com mais de 1 giga

e no caso demorar segundos , com ponteiro e nao virar ampulheta é pq nao necessito mesmo.

se o caso for para relatorio ou consulta um termometro nao seria mais viavel ?

ontem mesmo estava procurando um que adaptei . ainda nao achei
se for o caso colo aqui pra voce ver !

[Julio]

Marcelo

Como disse deve ter coisa melhor.
Mas aqui quando precisei gerar um arquivo TXT, que levava uns 4 minutos para gerar por completo, ele veio a calhar bem.
Até vou verificar a rotina de geração de novo para verificar se esta funcionando.
Pode ser que com poucos dados não de resultado.

[m@r<3|o]

hehehe voce insiste em falar que tenho truques na manga .... rsrsrs
duro que voce tb tem os seus ....

somente nao vi o que diferencia ?

acho que testei incorretamente

tipo nao seria fazer isso

Thisform.Aguardar(.T.)

select into cursor
brow

Thisform.Aguardar(.F.)

fiz isso e nao viro ampulheta , era pra acontecer outra coisa ?
somente vira ampulheta qdo clica .... mais isso ja acontece naturalmente pelo XP
qual efeito do codigo ?

nao consigui testar ?

[m@r<3|o]

beatriz , posta ai , se é necessariamente ampulheta que voce quer
ou pode ser outros objetos, que surtiriam o mesmo efeito da questao ...
voce esta seleccionando ? ou processando ?
ou voce quer demonstrar uma questao visivel para os usuarios
em que o programa esta processando para adaptar ao sistema inteiro ?

[Julio]

Marcelo

Realmente se fizer um select nao surte efeito.

Mas veja o exemplo que fiz gerei uma tabela em torno de 12.000 registros, (existem registros duplicados na tabela, dei append from so para deixar ela grande)

Clique nos botões com e sem metodo e vera o resultado.

Pode ser que isso pode sofrer alteração devido a velocidade do processador e memoria, não mostrando o cursor em ampulheta.

[Você precisa estar registrado e conectado para ver este link.]

Acho que a Beatriz deseja "mostrar" ao usuário que o sistema esta execuntado a rotina e não esta travado.

Ja utilizei programas que tinham processamentos demorados e ficava desesperado para saber se estava sendo executado se tinha dado erro ,etc.

Tambem acho que um termometro resolveria isso, mas como nao sou muito bom nisso, to aprendendo ainda, não postei o termometro apesar de ter alguns modelos aqui.

julio

[beatriz]

Obrigada pelos votos de boas vindas.

Obrigada, nao sou orinetar, mas delicada como meu avatar.

Bem vou experimentar o que passaram depois volto para dar noticias.

É verdade Julio, preciso mostrar que a rotina esta sendo executada.

Pode ser o cursor virar uma ampulheta ou mesmo uma barra de porcentagem.


Beatriz

[m@r<3|o]

Julio , o set safsety off nao tinha colocado capaz que tenha a ver
falto um arquivo txt no envio

fiz um exemplo utilizando a tabela de cep ....
pra ver o andamento da barra pois quando é pocos registros
é muito rapido para ver o progresso só pisca

Beatriz segue um exemplo de Termometro
[Você precisa estar registrado e conectado para ver este link.]

lembrando que o fox tb tem seu proprio termometro
mais esse é legal e tem um efeito no mouse durante a omissao do tempo do processamento, alem da barra

[Marcos Guedes]

Apenas acrescentando...
Uma alternativa simples e que utilizo bastante é:

Código:

WAIT WINDOW 'Aguarde...' NOWAIT NOCLEAR
*!* Sua rotina
WAIT CLEAR

[Julio]

Marcelo

O arquivo texto ele gera.

Mas ai vai com o arquivo texto gerado.

[Você precisa estar registrado e conectado para ver este link.]

*!*
Marcos

É bem mais pratico, mas nao tenho o costume de utilizar. Vou ver se coloco mais em pratica.

So tira uma duvida "NOWAIT NOCLEAR" faz a parada e nao precisa confirmar com enter ou click para continuar?

obrigado

[Julio]

Marcelo Fazan Escreveu!
hehehe voce insiste em falar que tenho truques na manga .... rsrsrs
duro que voce tb tem os seus ....

Não truques na mangas e sim vc tem um cinto de utilidades...

[Marcos Guedes]

So tira uma duvida "NOWAIT NOCLEAR" faz a parada e nao precisa confirmar com enter ou click para continuar?

NOWAIT permite dar continuidade ao código sem necessidade de pressionar uma tecla ou click.
NOCLEAR não deixará sumir a mensagem, a menos que utilize o comando WAIT CLEAR.