PROGRESSBAR

LUCS 18/04/2023 23:27:58
#501307
Olá a todos!

Nesta imagem eu tenho um
valor da meta mes
valor Vendido mes
ao carregar o formulário queria que a progressbar carregasse somente a propoção do valor vendido, exemplo se a meta é 100 e foi vendido 50 então ela teria que parar na metade da Progressbar!
alguém poderia me ajudar a limitar no valor vendido correspondente a meta?
Estou usando vb6

Atenciosamente,
KERPLUNK 19/04/2023 00:17:22
#501310
Numa ProgressBar, o máximo, mínimo e valor, não precisam ser de 0 a 100.
No caso, o valor máximo seria a sua meta, o mínimo zero e o value o valor atual. Não precisa fazer calculo nenhum
PROGRAMADORVB6 19/04/2023 06:08:26
#501311
https://www.portugal-a-programar.pt/forums/topic/19214-c%C3%A1lculo-da/
LUCS 19/04/2023 21:12:28
#501312
Olá, o que esta errado, não esta dando muito certo!

  ProgressBar1.Max = txtValorMeta
         
         For x = 0 To txtValorVendido
            ProgressBar1.Value = x
            lblPorcentagem.Caption = ProgressBar1.Value & "%"
            Timer2.Enabled = False
         Next

LUCS 19/04/2023 22:47:49
#501313
Aqui até da certo,
mas ele não carregar com 1%, 2%
ele esta jogando direto a porcentagem calculada,
queria que ele começasse com 1% e chegasse com a porcentagem calculada exemplo 50% se foi vendido metade ou se foi ingido meta 100% porém queria criar um efeito de 1% a Valor vendido...

  ProgressBar1.Max = vValorMeta
         For x = 1 To vValorVendido
            ProgressBar1.Value = x
            lblPorcentagem.Caption = vValorVendido / vValorMeta * 100 - 0 & "%"
            Timer2.Enabled = False
            DoEvents
         Next

KERPLUNK 20/04/2023 00:20:17
#501314
Simples regra de tres.
LUIS2014 20/04/2023 10:00:49
#501317 
  ProgressBar1.Max = vValorMeta
         For x = 1 To vValorVendido
            ProgressBar1.Value = x
            lblPorcentagem.Caption = vValorVendido / vValorMeta * 100 - 0 & "%"
            lblPorcentagem.refresh
            Timer2.Enabled = False
            DoEvents
         Next


a imagem não carregou aqui.
pelo que entendi voce quer que o lblPorcentagem carregue conforme sua progressbar evolua, acho que só faltou esse refresh.
LUCS 20/04/2023 11:34:32
#501318
Citação:

:

  ProgressBar1.Max = vValorMeta
         For x = 1 To vValorVendido
            ProgressBar1.Value = x
            lblPorcentagem.Caption = vValorVendido / vValorMeta * 100 - 0 & "%"
            lblPorcentagem.refresh
            Timer2.Enabled = False
            DoEvents
         Next


a imagem não carregou aqui.
pelo que entendi voce quer que o lblPorcentagem carregue conforme sua progressbar evolua, acho que só faltou esse refresh.




Com o lblPorcentagem.refresh
ele sumiu só volta ao final do carregamento, não esta dando o incremento da carregar porcentagem por porcentagem
LUCS 20/04/2023 12:01:30
#501319
Neste código, única coisa é o carregamento
esta carregando diretamente a porcentagem final, queria só dar uma ilustração de carregamento da porcentagem, finalizando com o calculo lblPorcentagem.Caption = vValorVendido / vValorMeta * 100 - 0 & "%"
SINCLAIR 20/04/2023 17:08:48
#501320
percentual_realizado = int ( valor_vendido_no_mes * 100 / valor_meta )

for x = 0 to percentual_realizado

lblPorcentagem.Caption = str( percentual_realizado ) & "%"

ProgressBar1.value = x

DoEvents "muito importante, pois libera o sistema operacional para mostrar o conteúdo da barra de progresso e atualizar o label

sleep(100) "para fazer uma pausa, pois o laço for/next será rápido demais, se 100 milessegundos ficar um tempo pequeno demais ou grande demais, voce poderá modificá-lo

next x


EDITADO: se voce usar Timer2 para fazer uma pausa, apenas para isto, elimine o Timer2, pois Sleep está fazendo este trabalho.
LUCS 20/04/2023 19:25:39
#501321
Citação:

:
percentual_realizado = int ( valor_vendido_no_mes * 100 / valor_meta )

for x = 0 to percentual_realizado

lblPorcentagem.Caption = str( percentual_realizado ) & "%"

ProgressBar1.value = x

DoEvents "muito importante, pois libera o sistema operacional para mostrar o conteúdo da barra de progresso e atualizar o label

sleep(100) "para fazer uma pausa, pois o laço for/next será rápido demais, se 100 milessegundos ficar um tempo pequeno demais ou grande demais, voce poderá modificá-lo

next x


EDITADO: se voce usar Timer2 para fazer uma pausa, apenas para isto, elimine o Timer2, pois Sleep está fazendo este trabalho.





ele não evolui a porcentagem,
Não deu certo, sou obrigado desistir,
Agradeço aos amigos,
muito obrigado!
Faça seu login para responder
Voltar