Página 1 de 1
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 09:58
por 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!!
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 10:43
por Kapiaba
Tem TIMER ou MSGWAIT() nesta linguagem que você usa?
Regards, saludos.
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 11:19
por 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
!
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 11:25
por 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:
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
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 11:41
por 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
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 17:28
por deividdjs
JoséQuintas escreveu: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 ...
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 18:23
por 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...
Criar uma rotina para aguardar!
Enviado: 20 Mai 2024 22:02
por deividdjs
Visual lib com GTWVG