Clipper On Line • Ver Tópico - Barra de progresso para criar arquiv de indice

Barra de progresso para criar arquiv de indice

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Barra de progresso para criar arquiv de indice

Mensagempor nilv » 21 Mai 2014 15:45

Boa tarde, Gostaria de saber como faço para gerar a barra de progresso na hora de criar indice, no clipper eu usava assim:
index on nome to cliente.ntx EVAL PROGRESS(Cliente,Cliente.ntx) EVERY LASTREC()/100
em minigui como seria usando o PROGRESSBAR:
Avatar de usuário

nilv
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 28
Data de registro: 25 Jan 2013 12:54
Cidade/Estado: viçosa/MG
Curtiu: 0 vez
Mens.Curtidas: 2 vezes

Barra de progresso para criar arquiv de indice

Mensagempor Pablo César » 21 Mai 2014 18:04

Olha achei este exemplo:

..//..
          @ 30,19 PROGRESSBAR ProgressBar_1 RANGE 0,100 WIDTH 252 HEIGHT 18
          @ 6,94 LABEL Label_001 VALUE "Completed " WIDTH 120 HEIGHT 24

FUNCTION _INDEXAR(cCampo,cArqIdx)
INDEX ON &cCampo TO &ArqIdx EVAL NtxProgress() EVERY LASTREC()/20
RETURN NIL

FUNCTION NtxProgress()
LOCAL nComplete := INT((RECNO()/LASTREC()) * 100)
Local cComplete := LTRIM(STR(nComplete))
Form_idx.Label_001.Value := "Completed "+ cComplete + "%"
Form_idx.ProgressBar_1.Value := nComplete
Return .t.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Barra de progresso para criar arquiv de indice

Mensagempor nilv » 22 Mai 2014 00:04

Valeu Pablo, ficou ótimo, obrigado.
Nilson Vilela
Avatar de usuário

nilv
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 28
Data de registro: 25 Jan 2013 12:54
Cidade/Estado: viçosa/MG
Curtiu: 0 vez
Mens.Curtidas: 2 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro