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

[VB 6.0] - Problema

Discussão em 'Programação' iniciada por HuSa, 24 de Fevereiro de 2009. (Respostas: 4; Visualizações: 641)

  1. HuSa

    HuSa Power Member

    Boa Tarde

    Eu queria fazer um programa que lesse de uma textbox uma soma e que depois dividia cada parcela numa lista e o resultado no fim.

    Exemplo: Textbox Lista

    52132+ 4134 + 56 + 524 +3


    52132
    4134
    56
    524
    3
    ---
    56849


    Cumprimentos
     
  2. alfinete

    alfinete Power Member

    não sei se existe em vb6 mas podes utilizar fazer um split "+" a string que escrevestes na txt

    guardas valor a valor desse split num array , depois fazes um for ao tamanho do array e somas um a um , e tens o valor

    procura por split e indexof

    ajuda http://www.macoratti.net/strings.htm

    como nam porgramo a vb6 a uns anos , e se vosse em vb.net faria uma coisa desse genero

    espero ter ajudado
     
    Última edição: 24 de Fevereiro de 2009
  3. PJ

    PJ Power Member

    Tens de fazer exactamente o que o Alfinete te disse.

    Ao texto que retiras da textbox fazes um split com o caracter identificador "+" e isto devolve-te um array de strings.

    Depois é só percorreres esse mesmo array com um ciclo for e somando cada um para obter o total. Não te esqueças que para somar os valores que se encontram do tipo string tens de fazer um cast para integer ou decimal.

    Cumps
     
  4. ribeiro55

    ribeiro55 Power Member

    Se mesmo assim não chegas lá para o VB6, toma lá uma solução .NET.
    Não usei "for each" nem "Array.lenght" porque acho que o VB6 não tem, daquilo que me lembro.
    Deve dar para chegares lá muito rápido :)

    Código:
            Dim P() As String = Split(TextBox1.Text, "+")
            Dim Soma As Double = 0
    
            Dim i As Integer = 0
    
            For i = 0 To UBound(P)
                ListBox1.Items.Add(P(i))
                Soma = Soma + CDbl(P(i))
            Next
    
            ListBox1.Items.Add("------")
            ListBox1.Items.Add(Soma)
     
  5. HuSa

    HuSa Power Member

    Já consegui

    Obrigado a todos
     

Partilhar esta Página