Criar uma rotina para aguardar!

[deividdjs]

Bom dia Prezados ..

Alguém pode me ajudar com uma rotina ??

quero criar uma rotina onde fica aparecendo na tela "Aguarde conectando ...." porem esse pontinhos ficam apagando quando chega no quarto ponto, para que o usuário veja que não travou o sistema ... como faria isso para por dentro desta função ??

ou será que já existe pronto alguma coisa em harbour ... em gráfico seria legal !!

Código: Selecionar todos

if cIP # "localhost" 
   tela_conex := MSGBOX({".... Conectando al servidor ....", "", ;
                           "-- "+ cPathLeto +" --"} )
endif                           
	   
IF leto_Connect( cPathLeto, /*user*/, /*pass*/, nTimeOut /*timeout*/, nHotBuf /*hot buffer*/ ) == -1
   MSGBOX3D1({"Servidor no encontrado, verifique su conexi¢n!", "", ;
             "-- "+ leto_Connect_Err( .T. ) +" --"}, "Camino : " + cPathLeto )
   QUIT
ENDIF

Abraço!!

[Kapiaba]

Tem TIMER ou MSGWAIT() nesta linguagem que você usa?

Regards, saludos.

[deividdjs]

de qual biblioteca é o MSGWAIT() ? ... tento compilar com essa função e dá falta dela ..

hbmk2: Erro: Referenciado, faltando, mas funções desconhecida(s): MSGWAIT()

saludos !

[rochinha]

Amiguihos,

No Fivewin tem o objeto METER que é uma barra de progressão.

Código: Selecionar todos

  LOCAL oMTRMeter
  DEFINE DIALOG oDLGMeter NAME "dlgMedidor"
         ...
         REDEFINE METER oMTRMeter VAR nMTRActual ID 105 TOTAL nMTRTotal OF oDLGMeter
         ...
  ACTIVATE DIALOG oDLGMeter CENTERED 

Exemplo:

Selecione ou escolha a tabela que será contada:

Código: Selecionar todos

   USE INDICES NEW

Crie a medição com a fixação de um valor baseado nos registros da tabela em questão

Código: Selecionar todos

   nMetMed  := recco()/100
   if oMTRMeter <> NIL // Se objeto não estiver criado será ativado
      oMTRMeter:SetTotal( recco() )
   endif

Inicie o laço e vá atualizando o medidor:

Código: Selecionar todos

   GO TOP
   nActual := 0 // Necessário zerar o potenciometro
   DO WHILE .NOT. EOF()
      ... Codigo qualquer dentro do laço
      dbSkip()
      nActual := nActual + nMetMed
      if oMTRMeter <> NIL
         oMTRMeter:Set( nActual )
      endif   
   ENDDO

[JoséQuintas]

Demora tanto assim pra conectar com o servidor ?

Não tem como colocar nada nisso aí, só se usar multithread pra mostrar alguma coisa.
O melhor mesmo é verificar porque demora tanto.

Em todo caso.... talvez possa colocar a progressbar no estilo marquee.
Até criei pro harbour 3.2, mas até hoje não acrescentaram, por enquanto só no 3.4 ou se acrescentar avulso.
Nem sei se as LIBs lembraram desse modo pra liberar pro usuário.

https://learn.microsoft.com/en-us/windo ... ar-control

[deividdjs]

Demora tanto assim pra conectar com o servidor ?

Não tem como colocar nada nisso aí, só se usar multithread pra mostrar alguma coisa.
O melhor mesmo é verificar porque demora tanto.

Em todo caso.... talvez possa colocar a progressbar no estilo marquee.
Até criei pro harbour 3.2, mas até hoje não acrescentaram, por enquanto só no 3.4 ou se acrescentar avulso.
Nem sei se as LIBs lembraram desse modo pra liberar pro usuário.

https://learn.microsoft.com/en-us/windo ... ar-control

não demora zé .. mais queria por algo.. porque se demorar o usuário sabe q não está travador ... a tela fica muito statica quando esta abrindo o servidor ...

[alxsts]

Olá!

O tópico foi postado na seção Harbour mas parece que utiliza algum componente gráfico (MSGBOX3D1). O que está usando? Esta informação é importante para que te possam ajudar...

[deividdjs]

Visual lib com GTWVG