[VB 6.0] - Problema

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
 
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:
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
 
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)
 
Back
Topo