PROGRESSBAR

[clebervn]

Alguém tem algum exemplo usando este componente, para por exemplo, criação de um índice ??

obg

[clebervn]

Exemplo :

oBar := hProgressBar():NewBox("teste indice",,,,,10,100)
USE BASE1
INDEX ON NOME TO NOME1 EVAL PROGRESSO() EVERY lastrec()/100
oBar:close()




function progresso()
oBar:step()
return .t.

[ROBERTO SÁVIO]

Prezados
Encontrei numa postagem do Toledo os fontes da classe hprogress
Um colega (Cavalo Marinho) acrescentou algumas melhorias na mesma e postou aqui no forum.
Este fonte usa o GETBOX que dá erro no HMG 3.3.0
Substitui o GETBOX por TEXTBOX, mas dá um erro no SetProperty( cFrmName, "xPercentual", "Value", nValue )
Comentando esta linha a barra funciona, sem mostrar o percentual.
Não sei resolver o erro.
Está no anexo.

Obrigado
Roberto Sávio

[sygecom]

Post o fonte de exemplo para ajudarmos.

[JoséQuintas]

Se o textbox for igual Visual Basic, o conteúdo é texto e não numérico.

[asimoes]

Uma barra de progresso simples:

Código: Selecionar todos

   nTotal := 1000
   FOR I:=1 TO nTotal
      nPerc := Int((I/nTotal) * 100)
      nPos  := Int((MaxCol() * nPerc)) / 100
      @ 24,00 SAY PADC(Transform(nPerc,"999%"), MaxCol()+1) COLOR "G/W*"
      ColorWin(24,0,24,nPos , "W+/B*")
      Inkey(.1)
   NEXT

[JoséQuintas]

que eu saiba, HMG não tem @ say.
A dúvida citada é sobre um componente de progressbar

[asimoes]

Quintas,

Abstrai, foi só um exemplo, a propósito o tópico também está no forum errado aqui é assunto de hwgui e não de minigui.

[kovalsk]

Desculpem sou novo aqui e estou tentando migrar a minha aplicação feita em Clipper 5.2e e estou agarrando em pequenas coisinhas.
Caso eu cometa algum erro nas postagem por favor me advertem explicando como fazer, pois não tenho costume de usar foruns.
O que colocar no lugar de @ say no HMG?

[JoséQuintas]

estou tentando migrar a minha aplicação feita em Clipper 5.2e

Bem vindo.

O fórum é dividido em seções.

Você postou na seção destinada a quem usa a biblioteca gráfica HWGUI, e aproveitou uma pergunta sobre progressbar.

Não sei até onde errou na hora de colocar a pergunta, porque com certeza não tem a ver com progressbar.
Se quer saber como usar o Harbour, deve direcionar a pergunta na seção do Harbour.

Não é obrigatório que aproveite uma mensagem existente.
Olhe o título da pergunta, se não está relacionado com o que quer saber, comece um novo tópico com a sua pergunta.

No momento sua questão deixa na dúvida se quer usar o Harbour, ou se quer usar a biblioteca gráfica HWGUI.

Numa explicação simples: sempre que aproveitar uma pergunta já existente, todos os envolvidos nessa pergunta receberão um email avisando que apareceu alguma solução, ou uma continuação do assunto.
E com certeza, não é essa a questão da sua pergunta.

Procure só colocar sua pergunta numa seção/tópico correto, e só continue uma pergunta existente se for sobre o mesmo problema/assunto/título.
Como é a sua primeira vez, melhor iniciar um novo tópico/assunto, mas procure colocar na seção relacionada.

É normal a pessoa errar nas primeiras postagens.
Nenhum problema em ter acontecido isso.
Fique à vontade pra postar novamente no lugar correto, ou prosseguir neste tópico até entender como funciona o fórum.

Nota: pode ser que esta mensagem seja movida depois pra outra secão, apenas pra questão de organizar na seção correta. Não pense que ela vai ser apagada, caso não esteja mais nesta seção.

[Toledo]

Bom, o JoséQuintas já respondeu muito bem como é o funcionamento do fórum, então vou apenas complementar um pequena coisa. Toda mensagem que não for postada na seção certa ou estiver fora do assunto principal do tópico, será movida para a seção correta e o autor será notificado sobre isto através de Mensagem Privada.

Sobre a sua dúvida, resta saber se você está usando o modo gráfico da HMG ou compilando em modo console (texto). Se for em modo console, não muda nada em relação ao @ SAY, mas se for em modo gráfico, ai muda tudo, veja na pasta \SAMPLES da sua HMG (MiniGui) exemplos de TextBox (\SAMPLES\CONTROLS\TEXTBOX ou \SAMPLES\BASIC\GETBOX).

Agora, se sua dúvida for sobre HwGui, veja a pasta \SAMPLES da sua HwGui, veja os arquivos testget1.prg, testget2.prg, etc.

Abraços,