1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Somar Valores de uma ListBox em um Label

Discussão em 'Programação' iniciada por dkf, 30 de Agosto de 2008. (Respostas: 3; Visualizações: 1129)

  1. dkf

    dkf

    Bom tenho que fazer um Projeto de um Supermercado de Vendas, quando o usuario clicar no Botao Inserir Produto o preco do produto será adicionado na Listsubtotal e assim quando clicado no botao inserir produto o lbltotal (label) armazene os valores da Listbox.
    Mas oque ocorre é que quando adicionar 2 valores por exemplo
    2,55
    2,55
    lbltotal.caption = 7,65

    isso demonstra que ta somando 3x , nao sei porque, peço a ajuda.
    o total tinha que ser 5,10. =/

    -------------------------------------------
    Código:
    Dim x as Integer
    Dim result as Double
     
    Private Sub cmdinserir_Click() 
     
    For x = 0 To Listsubtotal.ListCount - 1
    result = result + CDbl(Listsubtotal.List(x))
    Next x
     
    lblTOTAL.Caption = result
     
    Última edição: 31 de Agosto de 2008
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Não percebi... 2,10 + 2,10 não é nem 7,65 nem 5,10! É 4,20! Ou estou a perceber alguma coisa mal?
    O código que tens aí parece-me bem.
     
    Última edição: 30 de Agosto de 2008
  3. dkf

    dkf

    Era 2 2,55 HAUEHAUEH
     
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    ?

    E esse código não funciona?
    Experimenta trocar a vírgula por um ponto. Se não for isso, nem faço ideia do que esteja a passar!
     

Partilhar esta Página