Programa (não está respondendo)

[indusoft]

Olá galera,

Sou iniciante no Harbour, e montei uma tela onde faço um processamento,
durante esta tarefa, não posso clicar em nada, pois o windows
mostra a mensagem de PROGRAMA NÃO ESTÁ RESPONDENDO,
mas o processo continua executanto sua tarefa.

Inclusive quando termina todo o cálculo, o processo, volta ao normal.
liberando a tela.

O que fazer?

Atenciosamente,

Vanderlei

[Itamar M. Lins Jr.]

Ola!
Existe algumas maneiras:
(1) via inkey(.1)
(2) via função millisec()
(3) via WaitPeriod()
(4) via Hwgui hwg_DoEvents()

Tem outras mas não lembro o nome agora.
Eu uso a opção (4)

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Neste caso, pode-se criar uma tela "Aguarde..." enquanto executa a rotina.

Saudações,
Itamar M. Lins Jr.

[lucimauro]

Itamar qual lib eu encontro a funcao millisec() ?

[Itamar M. Lins Jr.]

Ola!
Procurando no changelog do Harbour.

2008-12-25 11:14 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* include/hbextern.ch
* source/rtl/seconds.c
+ implemented hb_milliseconds(). This function returns time value
from some moment in the past (not midnigth!). It does not start
to cound from zero in midnight, thus, can be safetly used to
measure time intervals.
+ tests/ticktime.c
+ Added nice test for hb_milliseconds().
Results on WinXP:
Ticks per second: 63.595
Min/avg/max interval (ms): 15.000 / 15.724 / 47.000
Loops per tick: 13035.09
Results on openSUSE on VirtualBox on WinXP:
Ticks per second: 991.799
Min/avg/max interval (ms): 1.000 / 1.008 / 22.000
Loops per tick: 765.71

Saudações,
Itamar M. Lins Jr.

[Pablo César]

montei uma tela onde faço um processamento,
durante esta tarefa, não posso clicar em nada, pois o windows
mostra a mensagem de PROGRAMA NÃO ESTÁ RESPONDENDO

Se ainda não descobriu o erro, favor postar seu código para analisarmos.

[anacatacombs]

Se você usa a GTWVW utilize a função: wvw_processmessages()