Resultado de valores de uma ListBox em Label.

[Danleonhart]

Olha eu aqui de novo...

Agora tou querendo saber se tem como uma Label da o resultado (soma) de valores que estão em uma ListBox...

veja a imagem:

Nesta ListBox são jogados valores aleatórios... então, tou tentando fazer com que a Label sempre apresente o resultado dos valores que são jogados na ListBox...

Na Label, estou fazendo pelo evento "Change":

Me.Label1.Caption =

Daí adiante é que empanquei :blush: coisa de iniciante mesmo...

[Matheus-vb6]

Você usara um botão?

se for segue o código:

List1.AddItem Text1.Text
For x = 0 To List1.ListCount - 1
resultado = resultado + Val(List1.List(x))
Next
Label1.Caption = resultado

edit--

list não tem opção change, tem?

Editado Outubro 1, 2010 por Matheus-vb6

[Danleonhart]

Você usara um botão?

se for segue o código:

Matheus... você poderia me fazer um favor ?! explicar cada comando dessa linha de comando que você postou...

não pretendo utilizar botão para isso... tenho um botão para jogar "os valores", um por vez, na ListBox... daí o comando teria de ser ou na ListBox ou no Label que irá informar o resultado...bem, pelo menos é o que tou tentando fazer... :)

*Edit:

:P Não, ListBox não tem o evento Change... nesse caso tou tentando na Label, pra sempre que um valor entrar na ListBox, a Label apresentar este valor somado aos demais... meio complicado né ?! :blink:

Editado Outubro 2, 2010 por Danleonhart

[Matheus-vb6]

então... esse codigo que passei ele irá inserir o valor e já alterara o label... tudo isso quando você adicionar o valor...

List1.AddItem Text1.Text 'Adicionara na lista o valor digitado na text1
For x = 0 To List1.ListCount - 1 ' For é um contador, ele ira contar os itens de baixo (porisso -1) da lista
resultado = resultado + Val(List1.List(x)) ' utilizei a variavel resultado para somar com valor (val) de list.list(x).. x no caso é o contador
Next ' fecha a instrução for, next (proximo), ira repetir isso nos itens!
Label1.Caption = resultado ' escreve na label o resultado

Insira esse codigo no botão que ele fará a inserção e soma!

Abraços..

Duvidas só postar :D

[Danleonhart]

:lol: Deu certinho Matheus !

Obrigado pela explicação também... assim aprendo o que estou fazendo.

Tou configurando agora para que o resultado apresentado na Label seja completo, ou seja, apresente também os "quebradinhos", como muitos gostam de chamar...

Mais uma vez obrigado pela ajuda!

[Matheus-vb6]

formata com Currency (moeda), assim ele já irá somar

Abraços

[Danleonhart]

formata com Currency (moeda), assim ele já irá somar

Abraços

@Matheus :

Tentei cara, mas não consigo... o valor sempre dá "???,00"...

Tem alguma coisa a ver em ter declarado no Form as Dim como Double ???

No evento Change da Label onde apresenta o resultado coloquiei assim:

Me.Label1.Caption = Format(Me.Label1.Caption, Format("#,##0.00"))

pois com Currency apresenta o sinal R$ antes dos valores...

Tem outra coisa... quando os valores colocados na ListBox aumentam o resultado fica desproporcional...veja nas imagens:

1ª IMA:

2ª IMA:

Tem alguma dica ? :wacko:

[Matheus-vb6]

tenta declarar eles como single ao invés de double... e nesse caso de ficar desproporcional seria quando esta com format?

[Danleonhart]

@Matheus...

Tirei o Evento da Label e continua mostrando resultados "loucos" :wacko:

Depois de inserir um valor maior:

Vou capturar com video e te passar o link para você vê em tempo real...

EDIT: Inclusão do vídeo.

Clique aqui e veja o vídeo do aplicativo...

Editado Outubro 3, 2010 por Danleonhart

[Matheus-vb6]

nada no formulário tem programação, somente o botão q é aquele código que te passei!! vou ver o video!

Olha, vendo o video não consegui identificar o erro! você poderia me mandar o programa? eu faço uma analise do codigo e te mando de volta sem o erro!

Mande compactado pro meu e-mail : matheus.rubens@hotmail.com

Abraços

Editado Outubro 3, 2010 por Matheus-vb6

[Danleonhart]

@Matheus:

Enviado... :)

[Matheus-vb6]

Cara... vo refaze todo seu sistema... n to conseguindo entende o código, to perdidinho kkk

Até quarta no maximo eu te mando, hj to meio corridoo kk

Editado Outubro 3, 2010 por Matheus-vb6

[Danleonhart]

Matheus, cara não leve a sério não !

Isso só é para exercício meu...

eu sabia que você não iria entender...o projeto é todo "amador", fui pensando e adicionando aos poucos...

Só uma curiosidade... você é professor ou algo do tipo ???

Obrigado pelas informações... vamos nos encontrar muito por aqui, dei uma olhada nos seus tópicos sobre comunicação entre VB-6 e Banco de Dados Access... sinceramente estou muito longe de entender tudo aquilo, mas vou aos poucos chegar lá...

Até breve... vou votar agora :lol:

[Matheus-vb6]

magina cara, quanto mais se aprende mais longe a gente vai!!! Respondendo a sua pergunta eu não so professor não, creio q estou muito longe de ser ainda kkk... curso um curso tecnico de informatica, e la aprendo vb...

To quase conseguindo o q você quer no programa, porem esqueci como é a instrução da single para esses casos, tipo val =valor int = integer str = string...

Se alguém postar acho q ajudaria :D